Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
With z/OS DFSORT V1R5 PTF UK51706 or z/OS DFSORT V1R10 PTF UK51707 (Nov, 2009), you can use JOINKEYS to do this as follows:
Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD DSN=... input file1 (FB/5)
//SORTJNF2 DD DSN=... input file2 (FB/5)
//SORTOUT DD DSN=... output file (FB/10)
//SYSIN DD *
SORT FIELDS=COPY
JOINKEYS FILE=F1,FIELDS=(6,8,A),SORTED,NOSEQCK
JOINKEYS FILE=F2,FIELDS=(6,8,A),SORTED,NOSEQCK
REFORMAT FIELDS=(F1:1,5,F2:1,5)
//JNF1CNTL DD *
INREC OVERLAY=(6:SEQNUM,8,ZD)
//JNF2CNTL DD *
INREC OVERLAY=(6:SEQNUM,8,ZD)
/*
|
For complete details on date conversion functions and the other new functions available with the Nov, 2009 DFSORT PTF, see:
www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000174
If you don't have the Nov, 2009 DFSORT PTF, you can use a DFSORT/ICETOOL job like the following:
Code: |
//S2 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB/5)
//IN2 DD DSN=... input file2 (FB/5)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD DSN=... output file (FB/10)
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(11,8,ZD) WITH(6,5) USING(CTL3)
/*
//CTL1CNTL DD *
INREC OVERLAY=(11:SEQNUM,8,ZD)
/*
//CTL2CNTL DD *
INREC BUILD=(6:1,5,11:SEQNUM,8,ZD)
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,BUILD=(1,10)
/*
|
|
|