| ■ リターンコードを返す方法（ＥＯＦテスト） |  |
リターンコードを返すにはＥＡＳＹの予約語 RETURN-CODE を使います。
EX)
//STEP1 EXEC PGM=EZTP00
//FILEA DD DSN=FILEA,DISP=SHR
//SYSIN DD *
FILE FILEA
JOB INPUT (NULL) ←手動入力の指定
GET FILEA ←FILEAをＲＥＡＤ
IF EOF FILEA ←もし１件目でＥＯＦなら
RETURN-CODE = 4 ←レジスター１５に４をセット
END-IF
STOP
/*
//STEP2 EXEC PGM=AAAAA,COND=(0,LT,STEP1) ←FILEAが０件の時ＳＫＩＰ
/*
//STEP3 EXEC PGM=BBBBB,COND=(8,LT,STEP1)
/*
//
|