Author: magesh23586
Subject: Reply to: How to split the records using the amount field
Posted: Tue Nov 01, 2016 2:57 am (GMT 5.5)
Arun,
We can do this in one step and save resources![icon_smile.gif]()
_________________
Regards,
Magesh
Subject: Reply to: How to split the records using the amount field
Posted: Tue Nov 01, 2016 2:57 am (GMT 5.5)
Arun,
We can do this in one step and save resources
| Code: |
//STEP0100 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD * 12345 3000000 12346 2000000 12347 2500000 12348 0250000 //FILE1 DD SYSOUT=* //FILE2 DD SYSOUT=* //TOOLIN DD * RESIZE FROM(IN) TO(FILE1) TOLEN(013) USING(CTL1) //CTL1CNTL DD * INREC OVERLAY=(1,5,X,7,7, 1,5,X,7,7,ZD,SUB,+250000,LENGTH=7,TO=ZD, 1,5,X,20,7,ZD,SUB,+250000,LENGTH=7,TO=ZD, 1,5,X,33,7,ZD,SUB,+250000,LENGTH=7,TO=ZD, 1,5,X,46,7,ZD,SUB,+250000,LENGTH=7,TO=ZD, 1,5,X,59,7,ZD,SUB,+250000,LENGTH=7,TO=ZD, 1,5,X,72,7,ZD,SUB,+250000,LENGTH=7,TO=ZD, 1,5,X,85,7,ZD,SUB,+250000,LENGTH=7,TO=ZD, 1,5,X,98,7,ZD,SUB,+250000,LENGTH=7,TO=ZD, 1,5,X,111,7,ZD,SUB,+250000,LENGTH=7,TO=ZD, 1,5,C'~',124,7,ZD,SUB,+250000,LENGTH=7,TO=ZD) OUTFIL FNAMES=FILE1,INCLUDE(7,7,ZD,GT,0,AND,6,1,CH,NE,C'~'), BUILD=(1,5,X,C'250000') OUTFIL FNAMES=FILE2,INCLUDE(7,7,ZD,GT,0,AND,6,1,CH,EQ,C'~'), OVERLAY=(6:C' ') |
_________________
Regards,
Magesh