I am not able to get my head around to solve my problem . Would appreciate if some one helps me out.
I have three fields having names in my input file. The first two first being 15 characters long and third field being 30 characters long. Their starting positions being 172,187 and 272.
I would like the output to be one file of record length 30 having distinct names from the three fields.
The output desired is like :
SUDHIR
RAMESH
TOM
HARRY
CHRIS
NICK
The order of the output is not important, as if sort is used then the output record would be sorted.
The second problem I see is that one of the field is greater in length, hence the comparison would have to either neglect spaces or add spaces to the smaller fields.
Tried the above JCL, the message I get in the DFSMSG is:
Code:
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE000I 0 - CONTROL STATEMENTS FOR 5740-SM1, DFSORT REL 14.0 - 00:03 ON TUE OCT
OUTFIL FNAMES=T1,BUILD=(2,10,/,18,5,/,32,20)
$
ICE213A 0 INVALID OUTFIL STATEMENT OPERAND
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION LIST,MSGPRT=ALL,MSGDDN=DFSMSG,RESINV=0,SORTDD=CTL1,SORTIN=IN,COP*
Y
END OF DFSORT
The message in TOOLMSG is :
Code:
ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS: TOOLIN
ICE630I 0 MODE IN EFFECT: STOP
COPY FROM(IN) USING(CTL1)
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM IN TO OUTFIL USING CTL1CNTL TERMINATED
ICE602I 0 OPERATION RETURN CODE: 16
ICE630I 2 MODE IN EFFECT: SCAN
SELECT FROM(T1) TO(OUT) ON(1,20,CH) FIRST
ICE612I 0 NO ERRORS FOUND IN STATEMENT
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
Quote:
I am using version 14 of DFSORT, so it should have recognised the BUILD statement.
The fact that it didn't recognized BUILD tells me that your site is way, way behind on DFSORT service. BUILD has been available with DFSORT since Dec, 2004 with DFSORT R14 PTF UQ95213. Your site obviously doesn't have that PTF installed even though it's been available for several years. Ask your System Programmer to install DFSORT R14 PTF UK90006 (April, 2006). That will get you all of the latest DFSORT/ICETOOL functions.
In the meantime you can use the older OUTFIL OUTREC=(...) parameter instead of the newer BUILD=(...) parameter.