Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts Garbage on output file Hervey Martinez SYNCSORT 4 Wed Sep 27, 2017 12:50 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us