Author: Learncoholic
Posted: Fri Apr 14, 2017 3:32 pm (GMT 5.5)
Thanks Bill, it worked.
I have pasted by code below for improvement suggestions & references:
Thanks once again.
_________________
Thanks for not dumping it
Posted: Fri Apr 14, 2017 3:32 pm (GMT 5.5)
Thanks Bill, it worked.
I have pasted by code below for improvement suggestions & references:
| Code: |
| //STEP01 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //INDD01 DD * ABC ,1234,XYZ, KEY-0001,CODE1,MESSAGE BCD ,2345,UCC, KEY-0002,CODE2,MESSAGE DF ,4555,CKI, KEY-003,CODE3,MESSAGE , , , ,CODE5,MESSAGE ABC ,1425,RBN, KEY=0004,CODE6,MESSAGE MOC ,5412,GHT, KEY=0004,CODE2,MESSAGE ABD ,4578,NBN, KEY*0005,CODE7,MESSAGE ABM ,1247,RBO, KEY-0006,CODE2,MESSAGE , , , ,CODE1,MESSAGE , , , , , /* //SPOOLDD DD SYSOUT=* //TOOLIN DD * COPY FROM(INDD01) TO(SPOOLDD) USING(CNT1) /* //CNT1CNTL DD * OMIT COND=(31,1,CH,EQ,C' ') OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(15,15,CH,NE,C' '), END=(15,15,CH,EQ,C' '), PUSH=(1:1,30)) /* |
Thanks once again.
_________________
Thanks for not dumping it