Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Output as input

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL IBM Manuals
Quick References
View previous topic :: :: View next topic  
Author Message
sijayapal

New User


Joined: 23 Dec 2008
Posts: 69
Location: India
PostPosted: Thu Nov 18, 2010 1:35 pm    Post subject: Output as input
 Reply with quote
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
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England
PostPosted: Thu Nov 18, 2010 2:09 pm    Post subject:
Reply with quote
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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England
PostPosted: Thu Nov 18, 2010 2:19 pm    Post subject:
Reply with quote
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
View user's profile Send private message
sijayapal

New User


Joined: 23 Dec 2008
Posts: 69
Location: India
PostPosted: Thu Nov 18, 2010 2:31 pm    Post subject:
Reply with quote
yes i am almost there... how dumb i didn't think that i wrote to a sysout icon_redface.gif icon_rolleyes.gif
Back to top
View user's profile Send private message
sijayapal

New User


Joined: 23 Dec 2008
Posts: 69
Location: India
PostPosted: Thu Nov 18, 2010 2:52 pm    Post subject:
Reply with quote
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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England
PostPosted: Thu Nov 18, 2010 3:09 pm    Post subject:
Reply with quote
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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 
Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts JES2 doesn't honor the priority of th... Aron Lendvai JCL & VSAM 7 Thu Jun 29, 2017 1:41 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm


Facebook
© 2003-2016 IBM MAINFRAME Software Support Division Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us