View previous topic :: View next topic
|
Author |
Message |
dharani.nagarajan
New User
Joined: 11 Nov 2010 Posts: 21 Location: India
|
|
|
|
Hi,
I have a situation here.
File1 is of 179 bytes length. File2 is of 10 bytes length.
Now, these 2 files needs to be compared (length 17:10 of File1 with Lenght 1:10 of File2) and the unmatched records of File1 shoule be sent to output. Nomatter there are duplicates in File1:
For Example:
FILE1:
------
XXXXXXXXXXXXXXXX1234567890XXXXXX
XXXXXXXXXXXXXXXX1234567890XXXXXX
XXXXXXXXXXXXXXXX1234567891XXXXXX
XXXXXXXXXXXXXXXX1234567892XXXXXX
XXXXXXXXXXXXXXXX1234567893XXXXXX
XXXXXXXXXXXXXXXX1234567894XXXXXX
FILE2:
------
1234567891
1234567892
1234567893
Expected O/P
------------
XXXXXXXXXXXXXXXX1234567890XXXXXX
XXXXXXXXXXXXXXXX1234567890XXXXXX
XXXXXXXXXXXXXXXX1234567894XXXXXX
How can be this done in JCL?
Thank you for your help. |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
Below DFSORT step will give you desired result
Code: |
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//FILE1 DD *
XXXXXXXXXXXXXXXX1234567890XXXXXX
XXXXXXXXXXXXXXXX1234567890XXXXXX
XXXXXXXXXXXXXXXX1234567891XXXXXX
XXXXXXXXXXXXXXXX1234567892XXXXXX
XXXXXXXXXXXXXXXX1234567893XXXXXX
XXXXXXXXXXXXXXXX1234567894XXXXXX
//FILE2 DD *
1234567891
1234567892
1234567893
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
JOINKEYS F1=FILE1,FIELDS=(17,10,A),SORTED
JOINKEYS F2=FILE2,FIELDS=(1,10,A),SORTED
JOIN UNPAIRED,F1,ONLY
REFORMAT FIELDS=(F1:1,179)
|
Output will be
Code: |
XXXXXXXXXXXXXXXX1234567890XXXXXX
XXXXXXXXXXXXXXXX1234567890XXXXXX
XXXXXXXXXXXXXXXX1234567894XXXXXX
|
|
|
Back to top |
|
|
dharani.nagarajan
New User
Joined: 11 Nov 2010 Posts: 21 Location: India
|
|
|
|
@ Escapa
Thank you So much. Its working fine now. |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
dharani.nagarajan wrote: |
@ Escapa
Thank you So much. Its working fine now. |
Nice to hear back.. |
|
Back to top |
|
|
|