Author: Rohit Umarjikar
Posted: Wed May 17, 2017 10:22 pm (GMT 5.5)
So basically you don't want to put time and efforts to learn yourself, your choice.
Feed this card to your input data and let us know.
May be someone can suggest you a better way as there always is.
_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."![icon_razz.gif]()
Posted: Wed May 17, 2017 10:22 pm (GMT 5.5)
So basically you don't want to put time and efforts to learn yourself, your choice.
Feed this card to your input data and let us know.
| Code: |
| //JS040 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=Input file VB-32750 //T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS) //T2 DD DSN=&&T2,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS) //T3 DD SYSOUT=* //TOOLIN DD * COPY FROM(IN) USING(CTL1) RESIZE FROM(T1) TO(T2) TOLEN(80) COPY FROM(T2) USING(CTL2) //CTL1CNTL DD * OUTFIL FNAMES=(T1),VTOF,BUILD=(5,32746) //CTL2CNTL DD * OUTFIL FNAMES=(T3),INCLUDE=(1,1,CH,NE,C' ') |
May be someone can suggest you a better way as there always is.
_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."
