| ■ レポートプロシージャーサンプル |  |
コントロールブレイク時に処理を入れたい場合はＢＥＦＯＲＥ－ＢＲＥＡＫ プロシ－ジャ・ＡＦＴＥＲ－ＢＲＥＡＫプロシージャを使います。
EX)
FILE FILEA
TEN 1 3 A
NUM1 5 6 N 0
NUM2 12 6 N 0
PER W 3 P 2 MASK('ZZ9.99')
JOB INPUT FILEA
PRINT
REPORT SUMMARY ←サマリーレポート
SEQUENCE TEN ←ＴＥＮごとに昇順指定
CONTROL TEN ←ＴＥＮごとにブレーク指定
TITLE '### TEST ###'
LINE TEN NUM1 NUM2 PER
BEFORE-BREAK. PROC ←ブレイク前処理
PER = NUM1 / NUM2
END-PROC
AFTER-BREAK. PROC ←ブレイク後処理
IF LEVEL = 2 ←最終のブレイク時
DISPLAY SKIP 0 COL 43 '**TOTAL**' ←重ね打ち
END-IF
END-PROC
↓実行結果例
### TEST ###
TEN NUM1 NUM2 PER
301 200 20 10.00
302 200 20 10.00
303 600 30 20.00
**TOTAL** 1,000 70 14.28
|
