■  レポートプロシージャーサンプル


コントロールブレイク時に処理を入れたい場合はBEFORE−BREAK プロシ−ジャ・AFTER−BREAKプロシージャを使います。

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                ←TENごとに昇順指定
CONTROL TEN                 ←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

 



BEFORE PAGE

TOP PAGE