1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
//RAPPR1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD DISP=SHR,DSN=FIC1
//SORTJNF2 DD DISP=SHR,DSN=FIC2
//F1ONLY DD DSN=
//*...
//F2ONLY DD DSN=
//*...
//BOTH DD DSN=
//*...
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(01,400,A)
JOINKEYS FILE=F2,FIELDS=(01,400,A)
JOIN UNPAIRED,F1,F2
REFORMAT FIELDS=(F1:1,400,F2:1,400,?)
OPTION COPY
OUTFIL FNAMES=F1ONLY,INCLUDE=(801,1,CH,EQ,C'1'),
OUTREC=(001,400)
OUTFIL FNAMES=F2ONLY,INCLUDE=(801,1,CH,EQ,C'2'),
OUTREC=(401,400)
OUTFIL FNAMES=BOTH,INCLUDE=(801,1,CH,EQ,C'B'),
OUTREC=(1,800)
/* |
Partager