kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
Posted: Thu Sep 16, 2010 4:01 pm Post subject: |
|
|
computer,
Use the following DFSORT JCL which will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD *
F1R1
F1R2
F1R2
F1R3
F1R3
F1R4
//INB DD *
F1R3
F1R4
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(1,4,A)
JOINKEYS F2=INB,FIELDS=(1,4,A)
JOIN UNPAIRED,F1,ONLY
//* |
_________________ Kolusu
www.linkedin.com/in/kolusu |
|