ID YEAR MONTH AMOUNT
0001 2009 1 100
0002 2009 2 200
0003 2009 3 300
0004 2009 4 400
0005 2009 5 500
0006 2009 6 600
DATA BYTE
ID (1-4) 1-5
YEAR (6-9) 6-10
MONTH (11-12)11-16
AMOUNT(17-19)17-22
MIDDLE FORMAT
ID YEAR JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC
0001 2009 100 0 0 0 0 0 0 0 0 0 0 0
0002 2009 0 200 0 0 0 0 0 0 0 0 0 0
0003 2009 0 0 300 0 0 0 0 0 0 0 0 0
0004 2009 0 0 0 400 0 0 0 0 0 0 0 0
0005 2009 0 0 0 0 500 0 0 0 0 0 0 0
0006 2009 0 0 0 0 0 600 0 0 0 0 0 0
ID (1-4) 1-5
YEAR (6-9) 6-11
JAN (12-15)12-15
FEB (16-19)16-19
MAR (20-23)20-23
APR (24-27)24-27
MAY (28-31)28-31
JUN (32-35)32-35
JULY (36-39)36-39
AUT (40-43)40-43
SEP (44-47)44-47
OCT (48-51)48-51
NOV (52-55)52-55
DEC (56-59)56-59
OUTPUT FORMAT
ID YEAR JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC
0001 2009 100 200 300 400 500 600 0 0 0 0 0 0
ID (1-4) 1-5
YEAR (6-9) 6-11
JAN (12-15)12-15
FEB (16-19)16-19
MAR (20-23)20-23
APR (24-27)24-27
MAY (28-31)28-31
JUN (32-35)32-35
JULY (36-39)36-39
AUT (40-43)40-43
SEP (44-47)44-47
OCT (48-51)48-51
NOV (52-55)52-55
DEC (56-59)56-59
ファイル 編集 編集設定 メニュー ユーティリティー
コンパイラー テスト ヘルプ
sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
VIEW HW07I.EV6871.IG20.JCLM(YEARMON) - 01.03 欄 . : 00001 00072
コマンド ===> スクロール ===> CSR
****** ***************************** データの始め *****************************
000001 //EV6871M1 JOB (F9500B,LD21X,32),
000002 // EV6871ADAM,REGION=4096K,
000003 // CLASS=A,MSGCLASS=M,NOTIFY=EV6871
000004 //*--------------------------------------------------------------------
000005 //* DELETE THE PRE_SORT_OUT DS
000006 //*---------------------------------------------------------
000007 //DEL EXEC MSSSCR2
000008 SCRATCH DSN=HW07I.EV6871.IG20.DS.REC1MO12
000009 //*--------------------------------------------------------------------
000010 //* SORT OUT MATCHED DATA
000011 //*---------------------------------------------------------
000012 //SORT EXEC NEWSORT
000013 //SYSOUT DD SYSOUT=*
000014 //SORTIN DD DSN=HW07I.EV6871.IG20.DS.REC1MON1,DISP=SHR
000015 //SORTOUT DD DSN=HW07I.EV6871.IG20.DS.REC1MO12,
000016 // DISP=(,CATLG),
000017 // SPACE=(TRK,(1,1),RLSE),
000018 // DCB=(RECFM=FB,LRECL=58)
000019 //SYSIN DD *
000020 INREC IFTHEN=(WHEN=INIT,OVERLAY=(23:36C'0')),
000021 IFTHEN=(WHEN=(11,2,CH,EQ,C'01'),OVERLAY=(23:17,3)),
000022 IFTHEN=(WHEN=(11,2,CH,EQ,C'02'),OVERLAY=(26:17,3)),
000023 IFTHEN=(WHEN=(11,2,CH,EQ,C'03'),OVERLAY=(29:17,3)),
000024 IFTHEN=(WHEN=(11,2,CH,EQ,C'04'),OVERLAY=(32:17,3)),
000025 IFTHEN=(WHEN=(11,2,CH,EQ,C'05'),OVERLAY=(35:17,3)),
000026 IFTHEN=(WHEN=(11,2,CH,EQ,C'06'),OVERLAY=(38:17,3)),
000027 IFTHEN=(WHEN=(11,2,CH,EQ,C'07'),OVERLAY=(41:17,3)),
000028 IFTHEN=(WHEN=(11,2,CH,EQ,C'08'),OVERLAY=(44:17,3)),
000029 IFTHEN=(WHEN=(11,2,CH,EQ,C'09'),OVERLAY=(47:17,3)),
000030 IFTHEN=(WHEN=(11,2,CH,EQ,C'10'),OVERLAY=(50:17,3)),
000031 IFTHEN=(WHEN=(11,2,CH,EQ,C'11'),OVERLAY=(53:17,3)),
000032 IFTHEN=(WHEN=(11,2,CH,EQ,C'12'),OVERLAY=(56:17,3))
000033 SORT FIELDS=(6,4,CH,A)
000034 SUM FIELDS=(23,3,26,3,29,3,32,3,35,3,38,3,41,3,44,3,47,3,50,3,53,3,
000035 56,3),FORMAT=ZD
000036 OPTION ZDPRINT
000037 OUTFIL BUILD=(1,10,X,23,3,X,26,3,X,29,3,X,32,3,X,
000038 35,3,X,38,3,X,41,3,X,44,3,X,47,3,X,
000039 50,3,X,53,3,X,56,3)
000040 /*
****** **************************** データの終り ****************************
