IBM Mainframe Forum

Hi,

I need to compare one VSAM file with a flat file and write the matching and unmatched records in to 2 different files.
File1:
I have a VSAM File of LRECL=2014, which has Policy Number from (1,4) - BI (7 character - ZD)
File2:
A flat file which will just have the Policy Numbers (7 characters - ZD)

Can some one please suggest me if this is possible in a single JCL, using JOINKEYS.
If so, please let me know the logic.

The output should be two VSAM files, with the matching and unmatched records from File1

Thanks.

Hello,

Suggest you try and see what happens. Learning by doing is a very good way to learn.

You might also refer to the DFSORT manual - Frank has posted the link to the manuals in several topics.

If something that is confusing happens, post what you tried and what happened.

Hi,

I agree..
But I don't have access to MF as I am on vacation till next Monday. Neither I have work from home option
Will definitely try this out once I get access to work.

Thanks again for your inputs D.Sc

Hello,

Enjoy your vacation!

We'll be here when you get back

d

sudhirbabu149,

Using VSAM files with DFSORT's JOINKEYS function is not much different from using non-VSAM files. The only catch is you have to decide whether to process the VSAM input files as fixed length or variable length, use TYPE=F or TYPE=V accordingly and set the positions correctly (first data byte starts in position 1 for TYPE=F whereas first data byte starts in position 5 for TYPE=V).

If you need more specific help, show an example of the records in each input file (relevant fields only) and what you expect for output. Explain the "rules" for getting from input to output. Give the starting position, length and format of each relevant field. Give the RECFM and LRECL of the input files. If file1 can have duplicates within it, show that in your example. If file2 can have duplicates within it, show that in your example.

Hi Frank,

Thanks for your reply.
Here I am posting the details of the files.

Input file1 is a VSAM of RECFM:VB and LRECL:2014
Input File2 is a sequential file of RECFM:FB and LRECL:80

Comparison needed on Policy Numbers which is present in both the files.
In File1(VSAM) its from (1,4) - BI and in File2 its in (1,7) - ZD

Output should be two VSAM Files (VB) with same properties as of the Input VSAM file.

Below is an example,



Thanks

Hi Frank,

I was planning to convert the Binary Policy number to ZD in one step and appending the converted ZD number at last, to be compared with the QSAM's Policy number (1,7)



This is for FB Files though. Frank,Is this possible to do on VSAM files?

If so output file will be of LRECL - 2014+7(converted BI Policy Number) = 2021, which will be used in the 2nd SORT Step where we are using JOINKEYS.

Just an attempt to make this code more readable for the users.
Please let me know if any more details needed.

Thanks.

Do you need to do a conversion of the number? If you do need to/want to, presumably it wouldn't have to be a seperate step?

If you do a seperate step to an intermediate file, that file needn't be VSAM, so you next step ends up with flat files in and VSAM out anyway?

I doubt that there is much in DFSort which "works on a flat file, doesn't work on vsam". Try it out, and let us know the details if you get a problem.

You can use a DFSORT job like the following to do what you asked for:



Note that I converted the ZD key in file2 to a BI key for the match. This makes more sense than converting the BI key in file1 to a ZD key.
If you were going to convert the BI key in file1 to a ZD key, you would want to put the converted value between the RDW and the first data byte. Putting it at the end of the VB record would unnecessarily increase the length of EVERY VB record to the maximum LRECL.

Thanks a lot Frank.

Didn't really thought of converting BI to ZD, which had made the logic look relatively simple. Avoiding all the confusions as you said.
Thanks for that Frank.

Will try this out and let you know the result shortly.



Thanks.