ozgurseyrek
New User
Joined: 22 Feb 2008
Posts: 70
Location: Turkey
|
|
|
|
Hello,
I want to merge 2 dataset just like described at the sample,
is it possible?
Thanks...
dataset 1 (FB, LRECL = 16)
| Code: |
000001 testdata1
000002 testdata2
000003 testdata3
000004 testdata4
000005 testdata5
000006 testdata6 |
dataset2 (FB, LRECL=12)
| Code: |
000001 info1
000003 info3
000004 info4 |
desired Output dataset (FB LRECL=21)
| Code: |
000001 testdata1info1
000002 testdata2
000003 testdata3info3
000004 testdata4info4
000005 testdata5
000006 testdata6 |
|
|
ozgurseyrek
New User
Joined: 22 Feb 2008
Posts: 70
Location: Turkey
|
|
|
|
I have merged files with that jcl,
thanks..
| Code: |
//SORTST1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=DATASET1,DISP=SHR
//IN2 DD DSN=DATASET2,DISP=SHR
//TMP1 DD DSN=DATASET.TEMP,DISP=MOD
//OUT DD DSN=DATASET.OUT,DISP=(NEW,CATLG,KEEP),
// RECFM=FB,LRECL=21,SPACE=(CYL,(1,1),RLSE)
//TOOLIN DD *
COPY FROM(IN1) TO(TMP1) USING(CPY1)
COPY FROM(IN2) TO(TMP1) USING(CPY2)
SPLICE FROM(TMP1) TO(OUT) ON(1,6,CH) WITHALL KEEPNODUPS WITH(17,5)
/*
//CPY1CNTL DD *
OUTREC FIELDS=(1:1,16,17:5X)
/*
//CPY2CNTL DD *
OUTREC FIELDS=(1:1,6,8:09X,17:8,5)
/* |
|
|
