//FILEA DD * ←INPUTデータ
001 0000001 1111111 0000001000
001 0000002 1111111 0000000100
001 0000003 1111111 0000000010
002 0000022 2222222 0000003333
//OUTFILE DD DSN=OUTFILE,DISP=(,KEEP), ←サマリーファイル
//SYSLIN DD *
LIST OFF
PARM LIST(NOPARM NOFILE)
FILE FILEA ←INPUTデータ定義
I-MISE 1 3 N
I-DMY1 * 1 A
I-NUM1 * 7 N
I-DMY2 * 1 A
I-NUM2 * 7 N
I-DMY3 * 1 A
I-KINGAKU * 10 N 0
FILE OUTFILE ←サマリーファイル定義
*
JOB INPUT FILEA
PRINT
REPORT SUMMARY SUMFILE OUTFILE
SEQUENCE I-MISE I-NUM2 I-NUM1
CONTROL FINAL NOPRINT I-MISE NOPRINT I-NUM2
TITLE 1 '##### TEST #####'
LINE 1 I-MISE I-NUM2 I-KINGAKU TALLY
/*
↓実行結果
##### TEST #####
I-MISE I-NUM2 I-KINGAKU TALLY
001 1111111 1,110 3
002 2222222 3,333 1
<サマリーファイル内容>
********************************* データの始め ***
-------------------------------------------------
0011111111....................
FFFFFFFFFF00000000030000000010
0011111111000000000C000000011C
-------------------------------------------------
0022222222....................
FFFFFFFFFF00000000010000000033
0022222222000000000C000000033C
-------------------------------------------------
********************************* データの終り ***
※サマリーファイルのレイアウトは定義しなければ自動的にフォーマットされます(DCBも)。
S013でアベンドする場合は、JCL上のサマリーファイルのDCBの記述を
削除するとうまくいきます。
※レポートのLINEが複数行あってもサマリーファイルは1レコードで出力されます。
|