MVSFORUMS.com

kolusu

Requirement:

I have 2 seperate files containing account information is provided,each Record has Unique Account values in fields.Both the files are FB with a LRECL of 80 bytes.The Processing should create 3 files with the following information:

A. Match accounts in File A & File B
B. Accounts in File A but not in File B
C. Accounts in File B but not in File A

Solution:

There are so many ways to get the desired results.I am just listing a few of them.

1. DFSORT/ICETOOL
2. EASYTRIEVE
3. COBOL

Change the pgm name to SYNCTOOL,if you have syncsort at your shop

Frank Yaeger · Posted: Mon Mar 10, 2003 6:06 pm Post subject:

If you have DFSORT R14 PTF UQ90053, you can use the new SPLICE operator of ICETOOL to produce the three files needed. For more information, see the "Create files with matching and non-matching records" Smart DFSORT Trick at:

http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/

Here's the DFSORT/ICETOOL job:

rasprasads · Posted: Sat Apr 12, 2003 8:54 am Post subject:

Kolusu,

I tried the Easytrieve solution given. It worked well when both file had no duplicate keys. But when there were duplictae keys it did not work .

For example :

FILE A -

AA
BB
BB
BB
CC

FILE B -

AA
BB
BB
BB
CC

The OUT1 file had -

BB
BB

Why is this so? What should i do to correctl this problem...
_________________
Rasprasad S

kolusu · Posted: Sat Apr 12, 2003 10:41 am Post subject:

Rasprasad,

Easytrieve MATCH logic(Syncronised file) processing does not work with duplicates(Many to Many Match) . It works only with one to many and many to one match.

So you need to write your own logic instead of using "if matched".

for ex:

rasprasads · Posted: Sat Apr 12, 2003 4:21 pm Post subject:

Thanks a lot Kolusu !!!

And one more doubt too...

In soln. FILE MATCH FB(0 0) is given i.e,(lrecl=0,blksize=0).
Why is it so when o/p LRECL=80?

Thanks again...
_________________
Rasprasad S

kolusu · Posted: Sun Apr 13, 2003 1:35 am Post subject:

Rasprasad,

In easytrieve when you code FB (0 0) then the program expects the LRECL from the JCL.If you don't code the lrecl in jcl then the pgm will abend with S013.That is the reason why I coded the Lrecl as 80. Also I took the example of 80 byte input files.

Hope this helps...

cheers

kolusu

Prayank · Posted: Thu Feb 19, 2004 4:48 pm Post subject:

Just wanted to know the changes needed in the ICETOOL solution if the input files are Variable Block.

Thanks

Prayank

Frank Yaeger · Posted: Thu Feb 19, 2004 6:48 pm Post subject:

For VB, you would have the RDW in positions 1-4, the data would start in position 5 (instead of in position 1) and the records can be variable. So we need to put the id ('11' or '22') in positions 5-6 after the RDW which moves the starting position of the data to position 7:

vallishar · Posted: Tue Mar 02, 2004 6:41 pm Post subject:

I am trying to make use of the SYNCTOOL utility to achieve the the same as the original requirement in this post.

On executing the job, I get this message with a return code of 12.

kolusu · Posted: Tue Mar 02, 2004 6:59 pm Post subject:

vallishar,

If you look at the TOOLMSG messages you will find that you have spelled FROM as FORM. Very Happy

i.e

vallishar · Posted: Tue Mar 02, 2004 7:48 pm Post subject:

Thanks Kolusu.

I should better get my eyes tested Laughing

_________________
If you're not failing every now and again, it's a sign you're not doing anything very innovative.

infoman123 · Beginner Joined: 02 Nov 2004 Posts: 57 Topics: 20

Kolusu,

Will the below code help in ezy for many to many matching

kolusu · Posted: Fri Dec 10, 2004 8:33 am Post subject:

Infoman123,

I don't think that logic is going to work. The only way to use Easytrieve's syncronised file processing to match many to many is using internal tables. Normally, Synchronized File Processing would process the first FILEA key A against all of the FILEB key A records and the second key A record from FILEA would be presented as NOT MATCHED. The above code will read the first key A record from FILEA and the first Key A record from FILEB and present that as a MATCH, it will then read FILEB record 2 and present that as a match with the first record from FILEA. While this processing is going on, the FILEB records are being stored in the array. Once we read the fourth record in FILEB and encounter an unmatched key we then read ahead in FILEA, since the key of FILEA matches the SAVE-KEY we will process the second record from FILEA against the array of FILEB records. Record two from FILEA is the last duplicate which causes the array to be emptied. Processing continues to the next record in FILEA which now matches the current key of FILEB, another MATCH condition.

check this sample code

e_thani · Beginner Joined: 26 Jul 2004 Posts: 4 Topics: 1

Hi Kolusu,

I have a small doubt on cited topic using Synctool(JCL),
In above example the matched record i.e., 3456789012 is not displayed in the OUT Output Queue

Only the records that found in InputA NOT in inputB is displayed in FILEA and Vice versa.
I like to see both matched records and non-matched record in the output Queue

SDSF
JESMSGLG JES2 2 TSOTEKA X LOCAL
JESJCL JES2 3 TSOTEKA X LOCAL
JESYSMSG JES2 4 TSOTEKA X LOCAL
TOOLMSG STEP0100 107 TSOTEKA X LOCAL
DFSMSG STEP0100 108 TSOTEKA X LOCAL
OUT ????
FILEA STEP0100 109 TSOTEKA X LOCAL
FILEB STEP0100 110 TSOTEKA X LOCAL
I hope you understood my Question.

Phantom · Posted: Thu Dec 16, 2004 7:40 am Post subject:

e thani,

Could you please post your complete JCL. Kolusu's JCL works fine for me.

Thanks,
Phantom