Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
With z/OS DFSORT V1R5 PTF UK51706 or z/OS DFSORT V1R10 PTF UK51707 (Nov, 2009), DFSORT now supports the JOINKEYS function which will give you the desired results as shown below
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD DSN=your input VB 604 file 1,DISP=SHR
//SORTJNF2 DD DSN=your input VB 604 file 2,DISP=SHR
//MATCH DD SYSOUT=*
//NOMATCH DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(6,20,A)
JOINKEYS FILES=F2,FIELDS=(6,20,A)
REFORMAT FIELDS=(F1:1,4,?,F1:5)
JOIN UNPAIRED,F1
SORT FIELDS=COPY
OUTFIL FNAMES=MATCH,INCLUDE=(5,1,CH,EQ,C'B'),BUILD=(1,4,6)
OUTFIL FNAMES=NOMATCH,SAVE,BUILD=(1,4,6)
//* |
|
|