Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Pam,
Here's a DFSORT/ICETOOL job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file1 (keys in 1-13)
//IN2 DD DSN=... input file2 (FB/1200) - keys in 14-26
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//T2 DD DSN=&&T2,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD DSN=... output file (FB/1200)
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(T2) ON(14,13,CH) -
WITHALL WITH(1,1201) WITH(1203,8) USING(CTL3)
SORT FROM(T2) TO(OUT) USING(CTL4)
/*
//CTL1CNTL DD *
INREC BUILD=(14:1,13,1201:C'BB',1203:8X)
/*
//CTL2CNTL DD *
INREC OVERLAY=(1201:C'VV',1203:SEQNUM,8,ZD)
/*
//CTL3CNTL DD *
OUTFIL FNAMES=T2,INCLUDE=(1201,2,CH,EQ,C'VB')
/*
//CTL4CNTL DD *
SORT FIELDS=(1203,8,ZD,A)
OUTREC BUILD=(1,1200)
/*
|
|
|