IBM Mainframe Forum

Posted: **Mon Nov 14, 2011 9:25 pm**

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

Posted: **Tue Nov 15, 2011 2:06 am**

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')
//*

Posted: **Tue Nov 15, 2011 3:09 pm**

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.

Posted: **Tue Nov 15, 2011 3:13 pm**

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?

Posted: **Wed Nov 16, 2011 12:06 am**

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.

Posted: **Wed Nov 16, 2011 6:50 pm**

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.

IBM Mainframe Forum

Lookup into a file to make changes

Lookup into a file to make changes

Re: Lookup into a file to make changes

Re: Lookup into a file to make changes

Re: Lookup into a file to make changes

Re: Lookup into a file to make changes

Re: Lookup into a file to make changes