IBM Mainframe Forum

Hi,

I have two files that need to be compared based on a field.

first file : is of record length 90 and the field to be compared is from column pos 1-9. This field is duplicated.
Second file: is of record length 150 and the field to be compared is from column pos 1-9. This field is not duplicated.

If the field in first file is present in the second file then we need to write the record from first file to third file along with a filed from the second file present in col pos 140-150.
If it is not present then we need to have it as spaces.

Please guide me with a solution.

Hi,

You need to first run a step to remove duplicate records from your first file. Code is

//Sysin dd*
sort fields=(1,9,CH,A)
sum fields=none
/*

Then you have to use JOINKEYS in your sysin card as below:
JOINKEYS F1=FILEA,FIELDS=(1,9,A)
JOINKEYS F2=FILEB,FIELDS=(1,9,A)
REFORMAT FIELDS=(F1:1,90,F2:140,11)
SORT FIELDS=COPY

Hope this will help.