■ コントロールブレイク時にブレイク件数を表示する方法
EASYのシステムフィールド TALLYを使って表示することが できます。
TALLYのデフォルトのサイズはパックの10バイトです。
EX)LINEに指定する方法
FILE FILEA TEN 1 3 A NUM1 5 6 N 0 NUM2 12 6 N 0 JOB INPUT FILEA PRINT REPT1 REPORT REPT1 TALLYSIZE 3 ←SIZE指定も可 SEQUENCE TEN CONTROL TEN TITLE '### TEST REPORT1 ###' HEADING TALLY ('ケンスウ') ←HEADING指定も可 LINE TEN NUM1 NUM2 TALLY ←LINEに指定する方法 ↓実行結果サンプル ### TEST REPORT1 ### TEN NUM1 NUM2 ケンスウ 301 100 10 100 10 301 200 20 2 302 100 10 100 10 302 200 20 2 303 100 10 200 10 300 10 303 600 30 3 1,000 70 7
EX)DISPLAYで指定する方法
FILE FILEA TEN 1 3 A NUM1 5 6 N 0 NUM2 12 6 N 0 JOB INPUT FILEA PRINT REPT2 REPORT REPT2 SEQUENCE TEN CONTROL TEN TITLE '### TEST REPORT2 ###' LINE TEN NUM1 NUM2 AFTER-BREAK. PROC IF LEVEL = 1 ←最終の一つ前のBREAK DISPLAY SKIP 0 COL 85 '**COUNT**' ←SKIP 0は重ね打ち END-IF IF LEVEL = 2 ←最終BREAK(=FINAL) DISPLAY SKIP 0 COL 85 '**ALL COUNT**' END-IF DISPLAY SKIP 0 COL 95 TALLY ←カラム指定で表示する方法 END-PROC ↓実行結果サンプル ### TEST REPORT2 ### TEN NUM1 NUM2 301 100 10 301 100 10 100 10 301 200 20 **COUNT** 2 302 100 10 100 10 302 200 20 **COUNT** 2 303 100 10 200 10 300 10 303 600 30 **COUNT** 3 1,000 70 **ALL COUNT ** 7