|
View previous topic :: View next topic
|
| Author |
Message |
weibiao
New User
Joined: 08 Jun 2008
Posts: 5
Location: China
|
|
|
|
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 |
|
 |
Gousiya Mulla
New User
Joined: 02 Jun 2008
Posts: 87
Location: Bangalore
|
|
|
|
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 |
|
|
weibiao
New User
Joined: 08 Jun 2008
Posts: 5
Location: China
|
|
|
|
Thanks Mulla.
The answer is very good. |
|
| Back to top |
|
|
banand
New User
Joined: 05 Jun 2007
Posts: 28
Location: Mumbai
|
|
|
|
| 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 |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
|
|
|
|
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 |
|
|
|
|
|
