MVSFORUMS.com

[rkarthik22]

I have two files, input file one, has got duplicates in emp-key which is of 28 bytes
and input file two is not having duplicates of emp key (28 bytes)

I have to match this two files , without using IF MATCHED condition..like
IF inp1-emp-key = inp2-emp-key

and write all the records from both the input files to the output files. (output)

And if present only in input file1 write to outputfile2

And if present only in input file2 write to outputfile3


Following is the code snippet (This is one - to -many match)

[callanand]

Hi Rkarthik,

Why dont you want to use MATCHED feature of easytrieve. It will make the above code much easier. Here is the code that you can use

[kolusu]

rkarthik22,

You are unbelievable . You tend to choose the difficult route. Good Luck

Kolusu

[rkarthik22]

hi callanand

There is a slight change in my requirement.

I am not supposed to sort my first input file one on emp-key (28 bytes), Here duplicates are there

I am sorting the second file on emp-key (28 bytes) Duplicates are not here.

So, I cannot use IF MATCHED condition here

I have to match this two files , (without using IF MATCHED condition)..like
IF inp1-emp-key = inp2-emp-key

and write all the records from both the input files to the output files. (output1)

And if present only in input file1 , i have to write this records to the same first output file (output1)

And if present only in input file2 write to output2

Is there any possibility to code this in COBOL (If at all not possible in easytrieve)

Hi kolusu,

I was asked not to use IF MATCHHED logic ..thats why i tried by calling a proc and reading the input files until EOF..
but unfortunately that was not working...

[callanand]

rkarthik,

send me a sample input file and expected output file data. As far as I can understand from the above you can achieve your result by having the below modified code in else part

IF INPFIL1
EMP-NO-OUT2 = EMP-NO-INP1
PUT OUTPUT
END-IF

[cyber_snake]

I have similar issues...

example:
input 1:
abcd
abcd
abcd
abcd
hijk
hijk


input 2:
abcd 123
defg 456
hijk 789

expected output:
abcd 123
abcd 123
abcd 123
abcd 123
hijk 789
hijk 789

if using "matched" function, the result is like this:
abcd 123
abcd
abcd
abcd
hijk 789
hijk

any idea?

[cyber_snake]

please disregard my post.... I already know what happen... The keys in my matching record is interchanged... =)