Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
ajaimohanc,
The following DFSORT/ICETOOL JCL will give you the desired results. I assumed that your input files are of 80 bytes LRECL and FB RECFM.
| Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
KEYA123
KEYB234
KEYB345
KEYC544
KEYC654
KEYD367
//IN2 DD *
KEYA123
KEYB234
KEYC544
KEYC654
//T1 DD DSN=&&T1,DISP=(MOD,PASS),SPACE=(CYL,(1,1),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN2) USING(CTL1)
COPY FROM(IN1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(1,7,CH) WITHALL WITH(01,80) -
KEEPNODUPS USING(CTL3)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=T1,OVERLAY=(81:1,7)
//CTL2CNTL DD *
OUTFIL FNAMES=T1,OVERLAY=(81:7X)
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,BUILD=(01,80),
INCLUDE=(1,7,CH,NE,81,7,CH)
/* |
Hope this helps...
Cheers |
|
