Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Ravi Kirti,
Use the following DFSORT JCL which will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD DISP=SHR,DSN=Your Input FB 650 byte file
//INB DD DISP=SHR,DSN=Your Input FB 600 byte file
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(1,6,A,10,10,A)
JOINKEYS F2=INB,FIELDS=(1,6,A,07,10,A)
JOIN UNPAIRED,F1,ONLY
//* |
|
|