MVSFORUMS.com

[Frank Yaeger]

Dharani,

[nagarajan.dharani]

Hi Krisprems,

Thanks a lot for having solved my requirement. But that code is getting me unmatched records also.

I tried the following code that you had given me


//*******************************************************
//GETMATCH EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD file1
//IN2 DD file2
//OUT DD o/o file, lrecl=223
//TMP1 DD DSN=&&TEMP1,DISP=(MOD,PASS),SPACE=(TRK,(5,5)),UNIT=SYSDA
//TOOLIN DD *
COPY FROM(IN1) TO(TMP1) USING(CP01)
COPY FROM(IN2) TO(TMP1) USING(CP02)
SELECT FROM(TMP1) TO(OUT) ON(1,4,BI) ALLDUPS USING(CP03)
/*
//CP01CNTL DD *
OUTREC BUILD=(1,10,ZD,TO=BI,LENGTH=4,224:C'1')
//*
//CP02CNTL DD *
OUTREC OVERLAY=(224:C'2')
//*
//CP03CNTL DD *
OUTFIL INCLUDE=(224,1,CH,EQ,C'2'),BUILD=(1,223)
//*


The SELECT operator returns records that are duplicates as we have given ALLDUPS.

But this also gives me records that are duplicates in my IN1 which i do not need.
I need only need records that have a match in the IN2 file.

I tried with different logics and nothing gave me good results.

It would be great if some one help me out with this.

Thanks,
Dharani

[vivek1983]

nagarajan.dharani,

[nagarajan.dharani]

Hi Vivek,

Following are the input file values and the output that i need.

Contents of IN1 (Only the employee numbers, for example)

11111
11111
22222
33333
44444
44444
66666
66666


Contents of IN2 (Only the employee numbers, for example)

11111
44444
33333
55555


Now in the output that i need is
11111
11111
44444
44444
33333

But the code that kris gave will give the output as following

11111
11111
44444
44444
33333
66666
66666

Since we have given ALLDUPS the 66666 in the IN1 which is a duplicate in IN1
is in output. I should not have 66666 in the output.

Basically i want all the records in IN1 if the employee number is present in IN2 without the duplicates removed.

Here 66666 is not present in IN2.

Thanks,
Dharani

[krisprems]

nagarajan.dharani
vivek1983 is right, my ICETOOL JCL behaves as per the example shown by vivek1983.

[nagarajan.dharani]

Hi Kris,

I've posted my sample values already.

Thanks,
Dharani

[krisprems]

For the example that you have shown, this code should work:

[nagarajan.dharani]

Hi Kris,,

Thanks a lot for your code.

If my input files are as the following and the employee number is in binary format

Contents of IN1 (Employee numbers with their names, for example)

11111 zzzzzzz
11111 aaaaaa
22222 ccccccc
33333 dddddd
44444 eeeeee
44444 ffffff
66666 hhhhhh
66666 kkkkkk


Contents of IN2 (Only the employee numbers, for example)

11111
44444
33333
55555

My output should be as with the employee number in the binary format

11111 zzzzzzz
11111 aaaaaa
44444 eeeeee
44444 ffffff
33333 dddddd


Thanks again for your great help and trying to get some more help from you all as i have more requirements.


Thanks,
Dharani

[krisprems]

nagarajan.dharani