■ リターンコードを返す方法(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) /* //