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
 

 

MERGING FILE

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Help-Me-Out

New User


Joined: 09 Dec 2006
Posts: 56
Location: Pune

PostPosted: Mon Nov 19, 2007 10:58 am    Post subject: MERGING FILE
Reply with quote

I have requirenment in which I need to create a file from two input file such that o/p file should contain first record of first file then first record of second file like wise?
e.g.
i/p-1

A
B
C

I/P-2

1
2
3

O/P
A
1
B
2
C
3


Tried by inserting the seq no. but it is not working, like

SORT FIELDS=(1,5,CH,A)
OUTREC FIELDS=(1:1,5,6:4X,10:SEQNUM)

Can we add odd/even nos at the end of the file like
Back to top
View user's profile Send private message

murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Mon Nov 19, 2007 11:13 am    Post subject:
Reply with quote

Sandy,

Use the following -

Code:
//STEP@@@@  EXEC PGM=ICETOOL             
//TOOLMSG  DD SYSOUT=*                   
//DFSMSG  DD SYSOUT=*                   
//*                                     
//FILE1 DD *                             
A                                       
B                                       
C                                       
/*                                       
//FILE2 DD *                             
1                                       
2                                       
3                                       
/*                                       
//TEMP1 DD DSN=&&TEMP1,DISP=(MOD,PASS)   
//FINAL DD SYSOUT=*                     
//TOOLIN DD *                                           
  COPY FROM(FILE1) TO(TEMP1) USING(CTL1)                 
  COPY FROM(FILE2) TO(TEMP1) USING(CTL2)                 
  SORT FROM(TEMP1) TO(FINAL) USING(CTL3)                 
/*                                                       
//CTL1CNTL DD *                                         
  OUTREC OVERLAY=(10:SEQNUM,8,ZD,START=1,INCR=2)         
/*                                                       
//CTL2CNTL DD *                                         
  OUTREC OVERLAY=(10:SEQNUM,8,ZD,START=2,INCR=2)         
/*                                                       
//CTL3CNTL DD *                                         
  SORT FIELDS=(10,8,ZD,A)                               
  OUTREC BUILD=(1,1)                                     
/*                                                       


O/P as desired.
Back to top
View user's profile Send private message
Help-Me-Out

New User


Joined: 09 Dec 2006
Posts: 56
Location: Pune

PostPosted: Mon Nov 19, 2007 5:01 pm    Post subject: Reply to: MERGING FILE
Reply with quote

Its working murmohk1 icon_biggrin.gif

Thanks alot icon_wink.gif
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Mon Nov 19, 2007 6:52 pm    Post subject:
Reply with quote

Sandy,

You are welc icon_biggrin.gif me.
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 Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 11 Tue May 16, 2017 2:20 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts File processing vishwakotin Mainframe Interview Questions 9 Fri Apr 28, 2017 11:38 am
No new posts Occurrence of various strings within ... TS70363 JCL & VSAM 1 Thu Apr 27, 2017 8:18 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us