■  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

 



BEFORE PAGE

TOP PAGE