Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
sreekusr,
The following DFSORT JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD *
1
2
3
4
5
//INB DD *
2
4
5
//SORTOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS F1=INA,FIELDS=(1,1,A),SORTED
JOINKEYS F2=INB,FIELDS=(1,1,A),SORTED
JOIN UNPAIRED,F1,ONLY
OPTION COPY
//* |
If the input files are not already in sorted order, remove ',SORTED'. |
|