Easytrieve - how to get all matching records

lakshmi08 · New User Joined: 01 Jul 2010 Posts: 6 Location: delhi

Hi all,
I got a requirement to compare two sequential files and write the matched records to one file and non matched records to another file using eazytreive. However, here the case is that even the repeated matching records should be written to the outfile. Like for example,
Infile1:
ERA
ERA
ERI
ERI
ENM

INFILE2:
ERA
ERA
ERA
ENM

then the matched out file should have:
ERA
ERA
ERA
ERA
ERA
ERA
ENM

Can anyone suggest how to proceed for this?

expat · Posted: Mon Jul 05, 2010 5:18 pm

Look at the JCl / DFSORT forums, depending on which sort product that you have installed.

Matching records is a very common request and there will be many good examples.

lakshmi08 · New User Joined: 01 Jul 2010 Posts: 6 Location: delhi

But the requirement is to write it in eazytrieve, just wondering if it is feasible or not? because you have to get the repeated records from file 1 as well as from file2(two input files)

expat · Posted: Mon Jul 05, 2010 5:43 pm

Well, it seems to me that the person who set the requirement by stating that a great waste of effort is needed here, is somewhat mentally lagging behind a cerebally impaired amoeba.

A sort solution would take about 10 minutes to produce and without fail be far more resource efficient that any home grown program.

So what logic will you employ to do this ?

PeterHolland · Posted: Mon Jul 05, 2010 5:44 pm

Match/Merge in the Easytrev manual (chapter synchronized file processing) will explain it all.

expat · Posted: Mon Jul 05, 2010 5:51 pm

This will work for your given example. It may be worth comparing the resource used by both methods .

PeterHolland · Posted: Mon Jul 05, 2010 6:00 pm

Expat,

poaching on someone's (my) territory

lakshmi08 · New User Joined: 01 Jul 2010 Posts: 6 Location: delhi

Sorry, I forgot to mention that the key position of the two input files are not the same. For input file 1 the position is from 15 to 18 position. For 2nd input position it is 1st position to 4 rth position.

PeterHolland · Posted: Mon Jul 05, 2010 6:04 pm

lakshmi08,

after all help you got till now, start to RTFM.

A sample :

expat · Posted: Mon Jul 05, 2010 6:12 pm

rkarthik22 · New User Joined: 18 Apr 2009 Posts: 47 Location: India

Hi Lakshmi,

have you try the solution given by Mr. Expat and Mr.Peter?

Thanks,
Karthik

dick scherrer · Posted: Fri Jul 09, 2010 7:33 pm

Hello,

@lakshmi08 -

Please re-read your original post. There are 5 ERA records and 2 ENM input records but your "expected output" shows 6 ERA znd only 1 ENM. Is that is really what you want?

You never did post why you had a problem. . .

Have you tried the suggestions already provided?

rkarthik22 · New User Joined: 18 Apr 2009 Posts: 47 Location: India

Hi d.sch.,

I dont find any issue with the input and the expected output records...

Since it is many-to-many match concept, the expected o/p is correct.

(both the input files has got duplicates)

It goes like this..

Infile1 1st ERA is matched to first three ERA's of infile2

Infile2 2nd ERA is matched to first three ERA's of infile2

So totally Six ERA's in the output.

Infile1 last record ENM is matched to infile2 's ENM . so totally one ENM records.

Finally, the expected output should be correct

@lakshmi,

Can you pls share what you have tried so far?

dick scherrer · Posted: Fri Jul 09, 2010 8:19 pm

Hello,

rkarthik22 · New User Joined: 18 Apr 2009 Posts: 47 Location: India

We had this kind of similar requirement last year.

Description:

Generally with eazytrieve we cant handle many to many situation's , i.e if we are having a match on two files then the first file should have only single occurrences of the key, but with this code you can deal with many to many condition,that is multiple occurences of key in file1 and as well as in file2.

Solution:

we can solve this using an working storage array, terms used in this code are first dup (which means the first duplicate record in a set of duplicate records),
in if matched , only the first record of a group will be handled, rest will be treated as not matched so the rest of records in a group will be handled in not matched.
last-dup means last duplicate record in a set of duplicate records.

1)so for the first duplicate record in a group it will come under if matched and i will write all the records from file2 in a array till the key is same.

2)so for the second record in a group(from the first file)it will come under if not matched and we will read from the ws-array instead of file til the key is same (save key = rcifkey1 )

3)and when we reach the last dup in a group we will move spaces to the array for handling the next group.

I will NOT post the code , until i get back something from the OP - Lakshmi.

I dont know whether he/she tried anything yet!!!!

CaptBill · Posted: Sat Jul 10, 2010 5:34 am

lakshmi08 · New User Joined: 01 Jul 2010 Posts: 6 Location: delhi

Hi all,
Sorry for the delayed reply...the explanation given by rkarthik22 is correct. In the first infile for one ERA occurence there are 3 matching ERAs in the second file, and similarly for the second ERA too. Hence 6 ERAs in the output is correct requirement.
However I didn't try the alternatives given by xperts in this post, I tried it by writing a COBOL code and it worked fine for me. I know it may not be an optimal solution but due to the time constraint on the deliverable I couldn't experiment.

rkarthik22 · New User Joined: 18 Apr 2009 Posts: 47 Location: India

@Lakshmi,

Thanks for letting us know...

I will share the easytrieve code tomorrow sure...

Can you please share your cobol code with us...