Code: |
//S1 EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (FB/3000) //OUT1 DD DSN=... output file1 (FB/3000) //OUT2 DD DSN=... output file2 (FB/3000) //SYSIN DD * OPTION COPY INREC IFTHEN=(WHEN=INIT, OVERLAY=(3001:SEQNUM,8,PD, 3017:SEQNUM,8,PD,START=0,RESTART=(7,2))), IFTHEN=(WHEN=(3017,8,PD,EQ,+0), OVERLAY=(3001:SEQNUM,8,PD)), IFTHEN=(WHEN=NONE, OVERLAY=(3009:SEQNUM,8,PD, 3001:3001,8,PD,SUB,3009,8,PD,TO=PD,LENGTH=8)) OUTREC OVERLAY=(3001:3001,8,PD,MOD,+2,TO=ZD,LENGTH=1) OUTFIL FNAMES=OUT1,INCLUDE=(3001,1,ZD,EQ,1),BUILD=(1,3000) OUTFIL FNAMES=OUT2,SAVE,BUILD=(1,3000) /* |
Code: |
//S1 EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SORTIN DD DSN=... input file (FB/3000) //OUT1 DD DSN=... output file1 (FB/3000) //OUT2 DD DSN=... output file2 (FB/3000) //SYSIN DD * OPTION COPY INREC IFTHEN=(WHEN=INIT, OVERLAY=(3001:1,2,3003:7,2,3005:SEQNUM,8,PD, 3021:SEQNUM,8,PD,START=0,RESTART=(3001,4))), IFTHEN=(WHEN=(3021,8,PD,EQ,+0), OVERLAY=(3005:SEQNUM,8,PD)), IFTHEN=(WHEN=NONE, OVERLAY=(3013:SEQNUM,8,PD, 3005:3005,8,PD,SUB,3013,8,PD,TO=PD,LENGTH=8)) OUTREC OVERLAY=(3005:3005,8,PD,MOD,+2,TO=ZD,LENGTH=1) OUTFIL FNAMES=OUT1,INCLUDE=(3005,1,ZD,EQ,1),BUILD=(1,3000) OUTFIL FNAMES=OUT2,SAVE,BUILD=(1,3000) /* |
Quote: |
You guys are really helpful. |
Code: |
key1 key2 groupnum 1-8 3001-2 3003-4 3005-3012 P1V1C1D1 P1 D1 1 P1V1C1D2 P1 D2 2 P1V1C2D2 P1 D2 2 P2V1C1D2 P2 D2 3 P2V1C1D3 P2 D3 4 |
Code: |
key1 key2 output file indicator 1-8 3001-2 3003-4 3005 P1V1C1D1 P1 D1 1 P1V1C1D2 P1 D2 0 P1V1C2D2 P1 D2 0 P2V1C1D2 P2 D2 1 P2V1C1D3 P2 D3 0 |
Code: |
OPTION COPY
INREC IFTHEN=(WHEN=INIT, OVERLAY=(3001:1,12,3013:24,5,3018:SEQNUM,8,PD, 3034:SEQNUM,8,PD,START=0,RESTART=(3001,4))), IFTHEN=(WHEN=(3034,8,PD,EQ,+0), OVERLAY=(3018:SEQNUM,8,PD)), IFTHEN=(WHEN=NONE, OVERLAY=(3026:SEQNUM,8,PD, 3018:3018,8,PD,SUB,3026,8,PD,TO=PD,LENGTH=8)) OUTREC OVERLAY=(3018:3018,8,PD,MOD,+2,TO=ZD,LENGTH=1) OUTFIL FNAMES=OUT1,INCLUDE=(3018,1,ZD,EQ,1),BUILD=(1,3000) OUTFIL FNAMES=OUT2,SAVE,BUILD=(1,3000) |
Code: |
OPTION COPY
INREC IFTHEN=(WHEN=INIT, OVERLAY=(3001:1,12,3013:24,5,3018:SEQNUM,8,PD, 3034:SEQNUM,8,PD,START=0,RESTART=(3001,4))), IFTHEN=(WHEN=(3034,8,PD,EQ,+0), OVERLAY=(3018:SEQNUM,8,PD)), IFTHEN=(WHEN=NONE, OVERLAY=(3026:SEQNUM,8,PD, 3018:3018,8,PD,SUB,3026,8,PD,TO=PD,LENGTH=8)) OUTREC OVERLAY=(3018:3018,8,PD,MOD,+2,TO=ZD,LENGTH=1) OUTFIL FNAMES=OUT1,INCLUDE=(3018,1,ZD,EQ,1),BUILD=(1,3000) OUTFIL FNAMES=OUT2,SAVE,BUILD=(1,3000) |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours