MVSFORUMS.com

rkarthik22 · Beginner Joined: 27 Sep 2008 Posts: 24 Topics: 9

I have two input files INP1 and INP2.

I have to match two files on A1 field/key (Present in both the files)

If match is found. Again i have to check if match on P1 field/key (Present in both the files)

And present in INP1 ,write in to separate file
And present in INP2, write in to separate file

If match is not found on P1 ,

And present only in INP1 ,write in to separate file
And present only in INP2, write in to separate file

If match is not found on A1

write INP1 records in to separate file
write INP2 records in to separate file

requirement:

IF match is found on A1 key
Check if match on P1 key
Write INP1 records in to separate file
Write INP2 records in to separate file

If match is not found on P1 key
And present only in INP1 ,write in to separate file
And present only in INP2, write in to separate file

ELSE
IF match is not found on A1 key
write INP1 records in to separate file
write INP2 records in to separate file

Please help me how to do this in easytrieve using Many to Many match

kolusu · Posted: Sun Apr 26, 2009 8:13 am Post subject:

rkarthik22,

*Sigh*

1. Sort file1 with A1 P1 key combination Ascending
2. Sort file2 with A1 P1 key combination Ascending
3. Read file1
4. Read file2
5. If file1 combo key = file2 combo key , load f2 records into an internal table
6. write the output from the internal table and initialize it before every load
7. If unmatched write to the respective output files

Kolusu

rkarthik22 · Beginner Joined: 27 Sep 2008 Posts: 24 Topics: 9

Kolusu..

I have to deliver this tomorrow...can u please help me to write Easytrieve code..
As i dont know abt this internal table concept

Thanks in advance..

kolusu · Posted: Sun Apr 26, 2009 8:30 am Post subject:

Anuj Dhawan · Posted: Fri May 01, 2009 9:47 am Post subject:

Hi,

Probably if you show what you have done so far some one will be around to make you progress litltle faster.
_________________
Regards,
Anuj

rkarthik22 · Beginner Joined: 27 Sep 2008 Posts: 24 Topics: 9

Hi kolusu/anuj model,

I am back ....i have tries for the past 7 days to code (Many to Many match Easytrieve)

This is my requirement.

Input file 1:

INFILE1 LRECL = 149

Product 01 11 A
Account Key 12 28 A
SSN 104 09 A

Input file 2:

INFILE2 LRECL = 133

Product 01 11 A
Account Key 12 28 A
SSN 104 09 A

Match the two input files on Account key
If matches on Account key
Check if matches on Product
Write Input file 1 records to output file 1
Write Input file 2 records to output file 2
If match is not found on Product
And present only in Input file 1,move zeros to SSN field and
write the records to the same output file 1
And present only in Input file 2,move zeros to SSN field and
write the records to the same output file 2

If match is not found on account key
And present only in input file 1, write the records to output file 3
And present only in input file 2, write the records to output file 4

(Technical Tip: It will be MANY to MANY Easytrieve match, needs to be accomplished using GET file. IF MATCHED condition will not work here)

rkarthik22 · Beginner Joined: 27 Sep 2008 Posts: 24 Topics: 9

Here is my Code...

********************************************************************
PARM DEBUG (NODMAP FLDCHK FLOW STATE XREF LONG) +
ABEXIT (NOSNAP) VFM (4000)
********************************************************************

FILE INFILE1 FB(149 0)

I1-PRODUCT 01 11 A
I1-ACCOUNT-KEY 12 28 A
I1-SSN 104 09 A

FILE INFILE2 FB(133 0)

I2-PRODUCT 01 11 A
I2-ACCOUNT-KEY 12 28 A
I2-SSN 104 09 A

FILE OUTFIL1 FB(149 0)

PRODUCT1 01 11 A
ACCOUNT-KEY1 12 28 A
SSN1 104 09 A

FILE OUTFIL2 FB(133 0)

PRODUCT2 01 11 A
ACCOUNT-KEY2 12 28 A
SSN2 104 09 A

FILE OUTFIL3 FB(149 0)

PRODUCT3 01 11 A
ACCOUNT-KEY3 12 28 A
SSN3 104 09 A

FILE OUTFIL4 FB(133 0)

PRODUCT4 01 11 A
ACCOUNT-KEY4 12 28 A
SSN4 104 09 A

**********COUNTERS*********

WS-IN1-MATCH-COUNT W 5 P 0 VALUE +0
WS-IN2-MATCH-COUNT W 5 P 0 VALUE +0
WS-IN1-MATCH-COUNT1 W 5 P 0 VALUE +0
WS-IN2-MATCH-COUNT1 W 5 P 0 VALUE +0
WS-INFILE1-COUNT W 5 P 0 VALUE +0
WS-INFILE2-COUNT W 5 P 0 VALUE +0

***********TEMP VARIABLE***********

WS-IN1-ACCT-KEY W 28 A
WS-IN1-PRODUCT W 11 A
WS-IN1-SSN W 09 A

WS-IN1-ACCT-KEY-TEMP W 28 A
WS-IN1-PRODUCT-TEMP W 11 A
WS-IN1-SSN-TEMP W 09 A

WS-IN2-ACCT-KEY W 28 A
WS-IN2-PRODUCT W 11 A
WS-IN2-SSN W 09 A

WS-IN2-ACCT-KEY-TEMP W 28 A
WS-IN2-PRODUCT-TEMP W 11 A
WS-IN2-SSN-TEMP W 09 A

WS-INP1-EOF W 1 A VALUE 'N'
WS-INP2-EOF W 1 A VALUE 'N'

*****************************************************

JOB INPUT(NULL) +
START(INIT-PROCESS) +
FINISH(WRAP-UP)
PERFORM GET-INP1-FILE
PERFORM GET-INP2-FILE

MAIN-PROCESS.
IF WS-INP1-EOF = 'Y' AND +
WS-INP2-EOF = 'Y'

ELSE
IF WS-IN1-ACCT-KEY = WS-IN2-ACCT-KEY
IF WS-IN1-PRODUCT = WS-IN2-PRODUCT
IF WS-INP2-EOF = 'N' OR +
WS-INP1-EOF = 'N'
PRODUCT1 = WS-IN1-PRODUCT
ACCOUNT-KEY1 = WS-IN1-ACCT-KEY
SSN1 = WS-IN1-SSN
WS-IN1-MATCH-COUNT = WS-IN1-MATCH-COUNT + 1
PUT OUTFIL1
PRODUCT2 = WS-IN2-PRODUCT
ACCOUNT-KEY2 = WS-IN2-ACCT-KEY
SSN2 = WS-IN2-SSN
WS-IN2-MATCH-COUNT = WS-IN2-MATCH-COUNT + 1
PUT OUTFIL2
END-IF
WS-IN1-ACCT-KEY-TEMP = WS-IN1-ACCT-KEY
WS-IN1-PRODUCT-TEMP = WS-IN1-PRODUCT
WS-IN1-SSN-TEMP = WS-IN1-SSN
WS-IN2-ACCT-KEY-TEMP = WS-IN2-ACCT-KEY
WS-IN2-PRODUCT-TEMP = WS-IN2-PRODUCT
WS-IN2-SSN-TEMP = WS-IN2-SSN
PERFORM GET-INP2-FILE
PERFORM GET-INP1-FILE
ELSE
IF WS-IN1-PRODUCT > WS-IN2-PRODUCT
IF WS-IN1-PRODUCT-TEMP = WS-IN2-PRODUCT AND +
WS-IN1-PRODUCT-TEMP NOT SPACES AND +
WS-INP2-EOF =

rkarthik22 · Beginner Joined: 27 Sep 2008 Posts: 24 Topics: 9

I got the following outputs
OUTFIL1 4 RECORDS
OUTFIL2 5 RECORDS
OUTFIL3 12 RECORDS
OUTFIL4 6 RECORDS

OUTFIL3 has got more number of records(both input files has got only 10 records) than i expected, which is wrong

Please guide me whether my logic is correct or not?!

kolusu · Posted: Sun May 10, 2009 5:04 am Post subject:

rkarthik22,

No offense but you made the program rather large and complex than it needs to be. It almost made me go blind!

Ps: Here is an untested code.Use this code at your own risk as I won't be answering any more questions regarding this code.

It is a basic skeleton program which does all the work as per your requirement, with minimal error checking. It is written in english like language and if you can't make this code work go back to your old code and try to figure out what went wrong with it.