If the INPUT file is VB format, job you provided goes wrong.
Can you help with the following error:
Code:
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS: TOOLIN
ICE630I 0 MODE IN EFFECT: STOP
SUBSET FROM(IN) TO(OUT) FIRST LAST INPUT KEEP USING(CTL1)
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM IN TO OUTFIL USING CTL1CNTL TE
ICE602I 0 OPERATION RETURN CODE: 16
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 16
******************************** BOTTOM OF DATA ********************************
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
You didn't say you had a VB file so I didn't code for that. You have to handle a VB file different than an FB file. A VB file has an RDW in positions 1-4 and variable length records. I'm not feeling well today, so I'll ask Kolusu to help you.
IFTHEN=(WHEN=(5,3,CH,EQ,C'TRL'),
BUILD=(C'TCON1,''',5,13,C'''',80:X))
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=IN,S
TOUT=OUT,DYNALLOC,EQUALS,NOCHECK,COPY
OMIT COND=ALL
OUTFIL FNAMES=OUT
ICE201I F RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE126A 9 INCONSISTENT OUT IFTHEN 1 REFORMATTING FIELD FOUND
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E9-K90013 E7-K44563
ICE052I 3 END OF DFSORT
******************************** BOTTOM OF DATA ********************************
I provided you a solution because I am aware of the limitations and yet you want to go back and do it the wrong way. The following are the reasons why I can't use Subset operator
1. VTOF canNOT be used with an IFTHEN or OVERLAY operand on OUTFIL.
2. You canNOT use OUTREC to perform the formatting with subset operator.
3. Symnames dataset should always be FB recfm and 80 bytes in length.
Considering all the above conditions I gave you a JCL which suits your requirement.