■ DTLCTL/SUMCTLに指定できる種類は
DTLCTL/SUMCTLに指定できる種類は 下記のとおりです。
(★は無指定時の場合と同じです)
<明細プリントの時>
DTLCTL(EVERY)・・・明細行に全コントロールフィールドをプリントする。
★DTLCTL(FIRST)・・・ページトップと各ブレイク後の第1明細行に全コントロールフィールドをプリントする。
DTLCTL(NONE)・・・各明細行にコントロールフィールドをプリントしない。
<サマリープリントの時>
SUMCTL(ALL)・・・各トータル行に全コントロールフィールドをプリントする。
★SUMCTL(HIAR)・・・トータル行にコントロールフィールドを階層的にプリントする。
SUMCTL(NONE)・・・トータル行にコントロールフィールドをプリントしない。
SUMCTL(TAG)・・・各コントロールブレイク毎にそのコントロールキーフィールド名+「TOTAL」(または「計」))をプリントする。(*1)
SUMCTL(DTLCOPY)・・・コントロールレポートに詳細情報をプリントする。
(*1)EASY実行時に漢字ライブラリーを指定するか否かで変ります。EX)漢字ライブラリがある場合
//FILEA DD * 46520000101AAAAABBBB 46520000101CCCCCDDDD 46520000101ZZZZYYYYY 46620010131BBBBBEEEE //SYSLIN DD * LIST OFF PARM LIST(NOPARM NOFILE) FILE FILEA ミセ 1 3 N HEADING('ミセ') MASK('999') ヒヅケ * 8 N HEADING('DATE') MASK('9999-99-99') ID1 * 5 A HEADING('ID1') ID2 * 5 A HEADING('ID2') * JOB INPUT FILEA PRINT REPORT SUMMARY SUMCTL(TAG) CONTROL ミセ TITLE 1 '***** HEADER *****' HEADING TALLY ('ケンスウ') LINE 1 ミセ ヒヅケ ID1 ID2 TALLY /* ↓(実行結果) ***** HEADER ***** ミセ DATE ID1 ID2 ケンスウ 465 2000-01-01 AAAAA BBBB 2000-01-01 CCCCC DDDD 2000-01-01 ZZZZY YYYY ミセ 計 3 ←「計」になる 466 2001-01-31 BBBBB EEEE ミセ 計 1 総合計 4
EX)漢字ライブラリがない場合
//FILEA DD * 46520000101AAAAABBBB 46520000101CCCCCDDDD 46520000101ZZZZYYYYY 46620010131BBBBBEEEE //SYSLIN DD * LIST OFF PARM LIST(NOPARM NOFILE) FILE FILEA ミセ 1 3 N HEADING('ミセ') MASK('999') ヒヅケ * 8 N HEADING('DATE') MASK('9999-99-99') ID1 * 5 A HEADING('ID1') ID2 * 5 A HEADING('ID2') * JOB INPUT FILEA PRINT REPORT SUMCTL(TAG) CONTROL ミセ TITLE 1 '***** HEADER *****' HEADING TALLY ('ケンスウ') LINE 1 ミセ ヒヅケ ID1 ID2 TALLY /* ↓(実行結果) ***** HEADER ***** ミセ DATE ID1 ID2 ケンスウ 465 2000-01-01 AAAAA BBBB 2000-01-01 CCCCC DDDD 2000-01-01 ZZZZY YYYY ミセ TOTAL 3 ←「TOTAL」になる 466 2001-01-31 BBBBB EEEE ミセ TOTAL 1 FINAL TOTAL 4