| ■ ＥＯＦ時の処理方法－その２ |  |
ＥＯＦ時の処理をするにはＪＯＢステートメントにＴＥＲＭＩＮＡＴＩＯＮプロシージャを指定すると便利です。
EX)
JOB INPUT FILEA
IF (AAA = '01')
CNT = CNT + 1
END-IF
PRINT
*
REPORT
TITLE '****** TITLE *****'
LINE 1 AAA
TERMINATION. PROC ←REPORTセクションより後にあること！
DISPLAY SKIP 2 'CNT = ' CNT ' ｹﾝ'
DISPLAY 'TOTAL RECORD = ' RECORD-COUNT 'ｹﾝ' ←処理した件数（ＥＡＳＹの予約語）
END-PROC
|
※ＳＥＱＵＥＮＣＥ句を指定している場合は、ＴＥＲＭＩＮＡＴＩＯＮプロシージャを使用します
