MVSFORUMS.com

[manojagrawal]

Hello,

Say I have to files, both FB RECL=240 with the records having HEX also.

The First file has a number of records.
The Second file has only 1 record.

I want to compare the first record of the first file, with the only record in the second file. If they are the same, I want the job to stop with some RC. If they are different, then I want the job to continue to the next step. How can I do the compare and such decision making?

I did a search but could not find anything similar.
_________________
Thanks & Regards,
Manoj.

[kolusu]

Manoj,

This is fairly simple. Do you want to compare the records in a pgm or utility like sort?

If it is program, just compare the 2 records and if they match then move 16 to the return code or else move someother code to the return code . Then in the JCL using cond condition you can skip/continue all other steps.

Check this link for setting return code in cobol

http://www.mvsforums.com/helpboards/viewtopic.php?t=2059&highlight=returncode

Check this link for setting return code in PL/I

http://www.mvsforums.com/helpboards/viewtopic.php?t=2068&highlight=returncode

I will post the solution using sort if you provide me with the details.

1. what is the lrecl & recfm of the files?
2. what are the positions to be compared for equality check?

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[manojagrawal]

Hello Kolusu,

I want to do this only using a job step's and not any program. As mentioned above the files are FB with LRECL = 240 and I want to compare the entire record for equality. Thanks!
_________________
Thanks & Regards,
Manoj.

[kolusu]

Manoj,

The following JCl will give you the desired results. The first step copies the first record from your file which has more records.

The next step we concate the above created file with the one record file and sort on the entire record and using sum fields we eliminate the dupes.

using startrec on outfil we always will write out the second record.

Now if the both records are matched , there will only be one record since we are using sum fields=none. So writing the output from second record will end in an empty file. It is where we use the NULLOUT parm where we can set the return code to 0,4,or 16. Here I am setting the return code to 4 in this case.

If the records do not match then we have 1 record in the output and the return code will automatically be zero.

Now using cond on the following steps we either skip or run the other steps.

[manojagrawal]

Kolusu,

Wonderful!!!! Worked just as required. Thanks a ton and Hats off to you!!!

The NULLOUT Parm did not work (So I do have a older version of sort ). Used the other methods to check for the NULL file and make RC = 12 when empty, else the job automatically continues to the next step and the COND parameter was not needed.
_________________
Thanks & Regards,
Manoj.

[syandra]

Hi manoj,

Can you explain breifly wht are the othe rmethods you employed to find the NULL file

Thanks,
Sukumar

[Phantom]

syandra,

Check the following link which explains different types of empty file checking.

http://www.mvsforums.com/helpboards/viewtopic.php?t=1285&highlight=empty

Hope this helps,

Thanks,
Phantom

[syandra]

Phantom,

Thanks for the info.

Thanks,
Sukumar