| ■ ＥＯＦ時の処理方法−その１ |  |
ＥＯＦ時の処理をするにはＪＯＢステートメントにＦＩＮＩＳＨプロシージャを指定すると便利です。
EX)
これ
↓
JOB INPUT FILEA FINISH CNT-DISP
IF (AAA = '01')
CNT = CNT + 1
END-IF
PRINT
CNT-DISP. PROC ←REPORTセクションより前にあること！
DISPLAY SKIP 2 COL 60 '*** ｹﾝｽｳ ***'
DISPLAY SKIP 2 'CNT = ' CNT ' ｹﾝ'
DISPLAY 'TOTAL RECORD = ' RECORD-COUNT 'ｹﾝ' ←処理した件数（ＥＡＳＹの予約語）
END-PROC.
*
REPORT
TITLE '****** TITLE *****'
LINE 1 AAA
|