■  リターンコードを返す方法(EOFテスト)


リターンコードを返すにはEASYの予約語 RETURN-CODE を使います。

EX)
//STEP1  EXEC PGM=EZTP00
//FILEA  DD DSN=FILEA,DISP=SHR
//SYSIN  DD *
FILE FILEA
JOB INPUT (NULL)               ←手動入力の指定
    GET FILEA                  ←FILEAをREAD
    IF EOF FILEA               ←もし1件目でEOFなら
        RETURN-CODE = 4        ←レジスター15に4をセット
    END-IF
    STOP
/*
//STEP2 EXEC PGM=AAAAA,COND=(0,LT,STEP1)    ←FILEAが0件の時SKIP
/*
//STEP3 EXEC PGM=BBBBB,COND=(8,LT,STEP1)
/*
//

 



BEFORE PAGE

TOP PAGE