Have you looked at the VTOF parameter? Something like: OUTREC FIELDS=(9,40),VTOF
-----Original Message----- From: af dc [mailto:[email protected]] Sent: Thursday, February 09, 2012 6:45 AM To: [email protected] Subject: ICETOOL extract fields from input dsn and copy to an output dsn Hello, I'm hanging around with this task and I'm getting what I want, can you pls give me an help ?? >> input dsn: Organization . . . : PS Record format . . . : VB Record length . . . : 7004 Block size . . . . : 27998 >> input dsn: MVST E TI02AA.REPTEXT.NOTOK2.MCGRID Line 00000000 Col 001 080 Command ===> Scroll ===> CSR ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8 ********************************* Top of Data ********************************** D EXPBD.BACKUP.BDPADM01.ESP09000.G6087V00 2011/04/18203146MVS2 2011/08/ D EXPBD.BACKUP.BDPADM01.ESP09000.G6088V00 2011/04/19202910MVS2 2011/08/ on the output dsn I want to get only the dsn field. I'm using ICETOOL with: //TOOLIN DD * * COPY FROM(INDD) TO(OUT1) USING(COP1) * //COP1CNTL DD * SORT FIELDS=COPY OUTREC FIELDS=(9,40) and I'm getting: ICE146I 0 END OF STATEMENTS FROM COP1CNTL - PARAMETER LIST STATEMENTS FOLLOW DEBUG NOABEND,ESTAE OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=COP1,SORTIN=INDD, ORTOUT=OUT1,DYNALLOC SORT FIELDS=COPY ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5 ICE251A 0 MISSING RDW OR DATA FOR *OUTREC : REASON CODE 03, IFTHEN 0 What am I missing ?? Many thx, A.Cecilio. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
