| ■ コントロールブレイク時にブレイク件数を表示する方法 |  |
ＥＡＳＹのシステムフィールド ＴＡＬＬＹを使って表示することが できます。
ＴＡＬＬＹのデフォルトのサイズはパックの１０バイトです。
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
|