View previous topic :: View next topic
|
Author |
Message |
sijayapal
New User
Joined: 23 Dec 2008 Posts: 69 Location: India
|
|
|
|
Code: |
//S055 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//OUT3 DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) TO(OUT1) USING(ILC1)
COPY FROM(IN1) TO(OUT2) USING(ILC2)
COPY FROM(OUT1) TO(OUT3) USING(ILC1)
//ILC1CNTL DD *
SORT FIELDS=COPY
//ILC2CNTL DD *
SORT FIELDS=COPY
OUTREC OVERLAY=(3:C'L')
|
is it possible to use output as input in ICETOOL???
My requirement is
The input will have data in which the third position needs to be changed to L. I need a file which has both the input as well as the modified output. If there is any other way to achieve this... it will be helpful |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
You are almost there, but I suggest that you DO NOT use DD SYSOUT=* for the OUT1 and OUT2 files.
I have changed them to be
Code: |
//OUT1 DD SPACE=(TRK,(10,10))
//OUT2 DD SPACE=(TRK,(10,10)) |
and the TOOLIN to be
Code: |
COPY FROM(IN1) TO(OUT3) USING(ILC1)
COPY FROM(IN1) TO(OUT2) USING(ILC2)
COPY FROM(OUT2) TO(OUT3) USING(ILC1) |
and get the following output
Code: |
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXLXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXLXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXLXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX |
|
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
In fact, thinking about it you do not need them, change TOOLIN to
Code: |
COPY FROM(IN1) TO(OUT3) USING(ILC1)
COPY FROM(IN1) TO(OUT3) USING(ILC2) |
|
|
Back to top |
|
|
sijayapal
New User
Joined: 23 Dec 2008 Posts: 69 Location: India
|
|
|
|
yes i am almost there... how dumb i didn't think that i wrote to a sysout |
|
Back to top |
|
|
sijayapal
New User
Joined: 23 Dec 2008 Posts: 69 Location: India
|
|
|
|
Expat i am not getting the output
Quote: |
and get the following output Code:
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXLXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXLXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXLXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
I getting only three records in the output. Please share the jcl that you used. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Code: |
//S055 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
//OUT3 DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) TO(OUT3) USING(ILC1)
COPY FROM(IN1) TO(OUT3) USING(ILC2)
//ILC1CNTL DD *
SORT FIELDS=COPY
//ILC2CNTL DD *
SORT FIELDS=COPY
OUTREC OVERLAY=(3:C'L') |
|
|
Back to top |
|
|
|