Author: Arun Raj
Posted: Tue Mar 14, 2017 8:21 pm (GMT 5.5)
maxsubrat,
If your input VSAM data set is of fixed-length, you could use the ICETOOL RESIZE operator to achieve this, to avoid repeating code for each line.
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
Posted: Tue Mar 14, 2017 8:21 pm (GMT 5.5)
maxsubrat,
If your input VSAM data set is of fixed-length, you could use the ICETOOL RESIZE operator to achieve this, to avoid repeating code for each line.
| Code: |
| //STEP01 EXEC PGM=ICETOOL //IN DD DISP=SHR,DSN= (VSAM Input AvgLen/Maxlen=3616) //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //OUT DD DISP=(,CATLG),DSN= (FB Output LRECL=90) //TOOLIN DD * RESIZE FROM(IN) TO(OUT) TOLEN(90) USING(CTL1) //CTL1CNTL DD * INCLUDE COND=(1,4,SS,EQ,C'SS01,HH01,ZZ01') INREC BUILD=(1,4,91:17,3600) OUTFIL OMIT=(1,1,CH,EQ,C' ') |
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard