Take first file and check an indicator if it is Y

venkatatcts · New User Joined: 16 Mar 2009 Posts: 55 Location: India

Hi,

I have three input file which has key in 1 to 7 and 36 to 39 in sorted order.

I need to take first file and check an indicator if it is Y then i need to check the key of the first with second if it matches then need to write to file and same to next file.

for example,

A000072 A000068 A000068
A000078 A000072 A000069
A000079 A000073 A000072

I need to take first record and find the second file exact and write some output file with some variables from first record.

how to do this,

Thanks,
Venkatraman B

dick scherrer · Posted: Tue Jun 01, 2010 10:09 pm

Hello,

You need to post sample data from both input files and the output you want from that sample input data. If either file can contain duplicates, show this also.

Clearly explain the "rules" for your process.

venkatatcts · New User Joined: 16 Mar 2009 Posts: 55 Location: India

Hi,

dick scherrer · Posted: Wed Jun 02, 2010 2:08 am

Hello,

How many records will there be in each of the files?

What you are looking for is a 3-file match/merge - not so common. . . 2-file match/merge is very common and there is a working example of the code in the "Sticky" near the top of the COBOL part of the forum.

If one of the files is always very small, it might be read into an array and used from there. If 2 of the files could be combined, the sample code from the "Sticky" could be used.

If you start from scratch, it may take a bit of work to create the 3-file match/merge code. Due to more and more direct accrss to data, i've not needed a 3-file match/merge for over 30 years so i don't have an example. . .

venkatatcts · New User Joined: 16 Mar 2009 Posts: 55 Location: India

Hi,

I am reading three sequential file on which one key is same which is 10 bit field and all the three fields are in sorted order.

I need to read the first file and match the second file and third file by key and update the records if there is no match from second file and third file to first file.

If there is no match need to write it to error record.

I am reading all the three files first record.

dbzTHEdinosauer · Posted: Thu Jun 03, 2010 8:15 pm

venkatatcts · New User Joined: 16 Mar 2009 Posts: 55 Location: India

hi,

1. file 1 has duplicates
2. file 1 has all the key which is in 2 and 3
3. when key matches and some comparison after that

Thanks.

dick scherrer · Posted: Thu Jun 03, 2010 11:04 pm

Hello,

dbzTHEdinosauer · Posted: Thu Jun 03, 2010 11:07 pm

ok,
what output is generated when:

key1 = key2 & key1 = key3
key1 = key2 & Key1<> key3
key1 <> key2 & key1 = key3
key1 <> key2 & Key1 <> key3

<> key means there is no match.

when file1 has duplicates, that means the above holds true for second file1 (the dup).
what output is generated?

and the other comparisons that you mention, what are they?
those also have to do with the logic.

CICS Guy · Posted: Fri Jun 04, 2010 3:45 am

venkatatcts · New User Joined: 16 Mar 2009 Posts: 55 Location: India

Hi,

Input file :

Ln code is the comparison after the code

Key1 Ln Bi pd key2 Ln Bi PD key 3 Ln Bi Pd
10001 40 01 00 10001 40 01 00 10002 50 10 10
10001 40 01 00 10002 50 10 10
10001 50 10 10
10001 50 10 10

Before that a claim indicator is checked if it is Y then file1 is compared with file2 else file1 is compared with file3.
If key 1 = key 2
then
compare the bi of first file with second file FIRST-FILE-KEY <= SECOND-FILE-KEY OR UNTIL FIRST FILE EOF
if it matches write record
else write it to error file
compare the pd of first file with second file FIRST-FILE-KEY <= SECOND-FILE-KEY OR UNTIL FIRST FILE EOF
if it matches write record
else write it to error file
ELSE
Same logic for 1 file vs 3 file.

If the file1 key matched with file 2 it should write to output. since there are two records with the same key in first file i need to write both the record to output. But my code will not do that.

Actually i need to have a hold variable to to hold the second file key and then check the next first file comparison (LN and PD) if it matches then again i need to write.

For example the output should be like this,
output file :
Key1 Ln Bi pd updated value from key1 or key 3
10001 40 01 00 XXX
10001 40 01 00 YYYYYYY
10001 50 10 10 dddfdd
10001 50 10 10 dsfdssd

Please suggest on this,

Thanks,
venkat

William Thompson · Posted: Fri Jun 04, 2010 8:14 am

What did you want?
This:

dick scherrer · Posted: Fri Jun 04, 2010 8:53 am

Hello,

You seem to be determined to continue with the same approach you started with. I believe if you continue and do get something running this way, it will not work for all situations than could be encountered in real data.

The main problem i see with this approach is that your "driver" has no way to stay in sync between the 3 files. . .

If your system has Easytrieve, you might get what you want more quickly using the MATCH function of Easytrieve.

Or look for a way to make the main process work with only 2 files by combining 2 of them before this main step or storing one in an internal array (depending on size).

venkatatcts · New User Joined: 16 Mar 2009 Posts: 55 Location: India

Hi William,

I want the second one.

Thanks,
Venkat

dick scherrer · Posted: Fri Jun 04, 2010 9:46 am

Hello,

You do understand that what Bill posted is both the same thing - just a different display (Quote versus Code). Did you click on the link he provided (where it says Please refere to. . .)?

You too can post in a more readable way by using the Code tag. . .