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
 
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 Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Addition of two records on 2 fields amar143 SYNCSORT 8 Tue Oct 03, 2017 11:14 am
No new posts Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm

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