MVSFORUMS.com

[Dibakar]

I have KSDS VSAM file (INCAST) where each record contains an external VSAM KSDS file name and a key of external file name, all in fixed position and of fixed length.

I am interested in only two external file names, INFILEA and INFILEB.

Each file is present in both test and model regions. Now I wan't to extract all keys of INFILEA which are present in both Test and Model INFILEA as well as in INCAST and write them in OUTFILEA, without any duplication. Similarly for INFILEB. But not for any other INFILEs.

All files are huge, contains about 10 to 100 thousand records. But matching records are not expected to be more than 10 thousand.

Below is a sample of input and output.

Please tell me how to proceed with this.
Input files are like this:

Test INCAST

[kolusu]

Dibakar,

Concatenate TEST INCAST & MODEL INCAST and sum sort on the key and file name and write 2 different files.

[Dibakar]

Sorry,

All input files are KSDS, I corrected the post accordingly.

Kolusu,

I will try your suggestion.

Thanks,
Dibakar.

[Dibakar]

The day I posted this question the scope of our project got reduced by 60%, so I had to for only one file name to work with. Next day I was told I will be out of project so there was not much interest left to do this. Again, another day, my new boss asked me to practice some VSAM-COBOL so that's what I finally did.

I am providing the code as it might be tailored for similar purpose.

Logic is:

1: Select common pols from CASTTEST, CK4TEST and CK4MODL into TEMPTEST.

2: Select common pols from TEMPTEST and CASTMODL into MATCHED

3: Pols are key (or part of key) in CK4TEST, CK4MODL and TEMPTEST.

4: CASTTEST and CASTMODL have different keys and pols are extracted by reading the files dyanamically.

5: MATCHED is non VSAM sequential file.