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 Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 3:25 pm
No new posts splitting a file abdulrafi DFSORT/ICETOOL 4 Fri Mar 24, 2017 11:51 am
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Formatting VB File Learncoholic DFSORT/ICETOOL 3 Mon Mar 20, 2017 12:29 pm


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