Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
The following DFSORT/ICETOOL JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=your unique 15 lrecl file,
// DISP=SHR
//IN2 DD DSN=your duplicate 30 lrecl file,
// DISP=SHR
//T1 DD DSN=&&T1,DISP=(MOD,PASS),SPACE=(CYL,(1,1),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) USING(CTL1)
COPY FROM(IN2) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(15,12,CH) WITHALL WITH(01,30) USING(CTL3)
//CTL1CNTL DD *
OUTFIL FNAMES=T1,OVERLAY=(15:1,12,31:1,12)
//CTL2CNTL DD *
OUTFIL FNAMES=T1,OVERLAY=(31:12X)
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,BUILD=(01,30),
INCLUDE=(15,12,CH,EQ,31,12,CH)
/*
|
|
|