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
 

 

SYNCSORT combine two records into one record

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
weibiao

New User


Joined: 08 Jun 2008
Posts: 5
Location: China

PostPosted: Tue Sep 16, 2008 6:41 pm    Post subject: SYNCSORT combine two records into one record
Reply with quote

I want to combine two records in two files to one record in the third file, could any one tell me how?

For example,
file A:

AAABBB
CCCDDD
EEEFFF

file B:
XXXYYY
YYYZZZ
ZZZXXX

I want to combine the two files to file c:
AAABBBXXXYYY
CCCDDDYYYZZZ
EEEFFFZZZXXX
Back to top
View user's profile Send private message

Gousiya Mulla

New User


Joined: 02 Jun 2008
Posts: 87
Location: Bangalore

PostPosted: Tue Sep 16, 2008 7:17 pm    Post subject: Reply to: SYNCSORT combine two records into one record
Reply with quote

Hi I think this has been already discussed in Forum .
Any ways FYI .. Please find the below JCL to satisfy your requirement .
Code:

//STEPS200 EXEC PGM=SYNCTOOL                                       
//TOOLMSG  DD SYSOUT=*                                             
//DFSMSG   DD SYSOUT=*                                             
//IN1      DD *                                                   
AAABBB                                                             
CCCDDD                                                             
EEEFFF                                                             
/*                                                                 
//IN2      DD *                                                   
XXXYYY                                                             
YYYZZZ                                                             
ZZZXXX                                                             
/*                                                                 
//T1 DD DSN=&&ATTU3,DISP=(MOD,PASS),SPACE=(TRK,(5,5)),             
// UNIT=SYSDA                                                     
//TOOLIN   DD *                                                   
  COPY FROM(IN1) TO(T1) USING(CTL1)                               
  COPY FROM(IN2) TO(T1) USING(CTL2)                               
  SPLICE FROM(T1) TO(OUT) ON(31,6,CH) WITH(8,6) USING(CTL3)       
/*                                                                 
//CTL1CNTL DD *                                                   
  OUTREC FIELDS=(1:1,30,31:SEQNUM,6,ZD)                           
/*                                                                 
//CTL2CNTL DD *                                                   
  OUTREC FIELDS=(8:1,6,31:SEQNUM,6,ZD)                             
/*                                                                 
//CTL3CNTL DD *                                                   
  OUTFIL FNAMES=OUT,BUILD=(1,30)                                   
/*                                                                 
//OUT      DD SYSOUT=*


O/P :
AAABBB XXXYYY
CCCDDD YYYZZZ
EEEFFF ZZZXXX

Hope this helps .
Back to top
View user's profile Send private message
weibiao

New User


Joined: 08 Jun 2008
Posts: 5
Location: China

PostPosted: Tue Sep 16, 2008 9:37 pm    Post subject:
Reply with quote

Thanks Mulla.
The answer is very good.
Back to top
View user's profile Send private message
banand

New User


Joined: 05 Jun 2007
Posts: 28
Location: Mumbai

PostPosted: Wed Sep 17, 2008 12:06 pm    Post subject: Re: Reply to: SYNCSORT combine two records into one record
Reply with quote

Gousiya Mulla wrote:
Hi I think this has been already discussed in Forum .
Any ways FYI .. Please find the below JCL to satisfy your requirement .
Code:

//STEPS200 EXEC PGM=SYNCTOOL                                       
//TOOLMSG  DD SYSOUT=*                                             
//DFSMSG   DD SYSOUT=*                                             
//IN1      DD *                                                   
AAABBB                                                             
CCCDDD                                                             
EEEFFF                                                             
/*                                                                 
//IN2      DD *                                                   
XXXYYY                                                             
YYYZZZ                                                             
ZZZXXX                                                             
/*                                                                 
//T1 DD DSN=&&ATTU3,DISP=(MOD,PASS),SPACE=(TRK,(5,5)),             
// UNIT=SYSDA                                                     
//TOOLIN   DD *                                                   
  COPY FROM(IN1) TO(T1) USING(CTL1)                               
  COPY FROM(IN2) TO(T1) USING(CTL2)                               
  SPLICE FROM(T1) TO(OUT) ON(31,6,CH) WITH(8,6) USING(CTL3)       
/*                                                                 
//CTL1CNTL DD *                                                   
  OUTREC FIELDS=(1:1,30,31:SEQNUM,6,ZD)                           
/*                                                                 
//CTL2CNTL DD *                                                   
  OUTREC FIELDS=(8:1,6,31:SEQNUM,6,ZD)                             
/*                                                                 
//CTL3CNTL DD *                                                   
  OUTFIL FNAMES=OUT,BUILD=(1,30)                                   
/*                                                                 
//OUT      DD SYSOUT=*


O/P :
AAABBB XXXYYY
CCCDDD YYYZZZ
EEEFFF ZZZXXX

Hope this helps .


Hi
Can you please explain how this code works?

Thanks In advance

Thanks,
Brit
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Wed Sep 17, 2008 12:23 pm    Post subject: Reply to: SYNCSORT combine two records into one record
Reply with quote

Banand,

Quote:
Can you please explain how this code works?


Take a look at the manual DFSORT getting started

Read and understand the topic on SPLICE and then post if you still don't understand the JCL.
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Record Not found in AlX but record re... mukun264 COBOL Programming 7 Fri Mar 24, 2017 9:28 am
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm
No new posts Join giving more records than expected Danielle.Filteau SYNCSORT 2 Thu Mar 09, 2017 3:28 am
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am


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