IBM Mainframe Forum

[nkvprasad]

Hi,
I have a requirement where I will get two files from the source as below.

FILE-1:
OLD_ID NEW_ID
--------- ----------
AA1 121
AA2 122
AA3 123
AA4 NONE

FILE-2:
CUST ID LOCATION
-----------------------------
XXX AA1 LONDON
YYY AA3 PARIS
ZZZ AA4 LONDON

They are FB datasets. Now I need to process the FILE-2 to replace the ID with its corresponding NEW_ID from FILE-1. The ID in the FILE-2 is the OLD_ID in the FILE-1. My output should be like:

OUTPUT:

CUST ID LOCATION
-----------------------------
XXX 121 LONDON
YYY 123 PARIS

Please note that the record should NOT be written into the output dataset whenever its corresponding NEW_ID is "NONE". (so why the last records has not been written into the output.

- Prasad

[skolusu]

nkvprasad,

The following DFSORT JCL will give you the desired results

Select all

//STEP0100 EXEC PGM=SORT                     
//SYSOUT   DD SYSOUT=*                       
//INA      DD *                             
----+----1----+----2----+----3----+----4----+
AA1 121                                     
AA2 122                                     
AA3 123                                     
AA4 NONE                                     
//INB      DD *                             
XXX AA1 LONDON                               
YYY AA3 PARIS                               
ZZZ AA4 LONDON                               
//SORTOUT  DD SYSOUT=*                       
//SYSIN    DD *                             
  OPTION COPY                               
  JOINKEYS F1=INA,FIELDS=(1,3,A)             
  JOINKEYS F2=INB,FIELDS=(5,3,A)             
  REFORMAT FIELDS=(F2:1,4,F1:5,4,F2:9,72)   
//*                                         
//JNF1CNTL DD *                             
  OMIT COND=(5,4,CH,EQ,C'NONE')             
//*

[nkvprasad]

Thanks Kolusu!! But the issue is, these values are stored and set in two different datasets and there can be thousands of records in each dataset.

[BillyBoyo]

Have you tried the sort cards provided? Do they work (yes, with what you have said so far)? What problem do you have with the solution?

[Frank Yaeger]

But the issue is, these values are stored and set in two different datasets and there can be thousands of records in each dataset.

What about this do you think is an issue and why? Just point INA, INB and SORTOUT to the appropriate data sets using Kolusu's job and run it. If it doesn't do what you want, then you can tell us exactly what the "issue" is. "thousands of records" is truly trivial for DFSORT.

[nkvprasad]

Thanks for your replies. I could achieve this using the ICETOOL's "SPLICE" operator.

Thanks to Kolusu also, I did miss some part of his code as my browser didn't load the code properly. The solution he provided worked perfectly.