View previous topic :: View next topic
Author
Message
pattabiraman.baskaran New User Joined: 10 Aug 2006Posts: 23
Hi,
My requirement is to convert records in the format
Code:
rajee mukesh 124576
to
Code:
rajee mukesh 124576
so, i used the build command to process the rquirement. but it is giving cond code as 20. no output records are generated.
input and output dataset parameters are lrecl=270 and recfm=fb.
this is my piece of code.
Code:
//STEP1 EXEC PGM=ICETOOL
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=A7105UF.PATTABI.TRICK003.INPUT,DISP=SHR
//SORTOUT DD DSN=A7105UF.PATTABI.TRICK003.OUTPUT1,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=270,BLKSIZE=2700)
//SYSIN DD *
OPTION COPY
INREC BUILD=(1,270,SQZ=(SHIFT=LEFT,MID=C' '))
/*
please help me out.
thanks in advance.
Back to top
pattabiraman.baskaran New User Joined: 10 Aug 2006Posts: 23
A small change in my query,
My requirement is to convert records in the format
rajee (5 spaces) mukesh (5 spaces) 124576
to
rajee mukesh 124576.
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
You have PGM=ICETOOL which invokes DFSORT's ICETOOL, but then you have the DD statements that go with PGM=ICEMAN rather than PGM=ICETOOL. The RC=20 indicates you're missing the TOOLMSG DD for ICETOOL. Change your EXEC statement to
Code:
//STEP1 EXEC PGM=ICEMAN
to invoke DFSORT instead of ICETOOL and the rest of your JCL will work fine.
Or if you want to use ICETOOL, change your job to:
Code:
//STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=A7105UF.PATTABI.TRICK003.INPUT,DISP=SHR
//OUT DD DSN=A7105UF.PATTABI.TRICK003.OUTPUT1,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=270,BLKSIZE=2700)
//TOOLIN DD *
COPY FROM(IN) TO(OUT) USING(CTL1)
/*
//CTL1CNTL DD *
INREC BUILD=(1,270,SQZ=(SHIFT=LEFT,MID=C' '))
/*
Back to top
Please enable JavaScript!