MVSFORUMS.com

[Ganesh_999]

I am trying to use SHOWCB to display the error codes for a VSAM file.

I am reading an empty VSAM file. OPEN macros fails and R15 contains X'08'. I want to have a reason code by using SHOWCB macros.

Can anybody tell me how I can distinguish between simple open error and 'empty file' open error ?

Thanks,
Ganesh

[RonB]

No, but I can tell you how to obtain the Reason Code. After returning from the OPEN with an RC=8 in R15, do the following:

[Ganesh_999]

Hi Ron,
Thanks..But I don't understand why you are moving the return code from R15 to RETURN8 field before issuing a call to SHOWCB ? I gues it won't be used by SHOWCB.
I tried this , But reason code is not returned in VSAMRC4 field ?

Regards,
Ganesh

[RonB]

I'm moving the return code from R15 to RETURN8 field before doing a SHOWCB so that I can "display" the VSAM Return Code as well as the VSAM Reason Code. After the SHOWCB etc., I "display" both the Return Code AND the Reason Code.
It is my experience, though, that the situation you describe ( empty VSAM kSDS being opened for Input ) results in a Return Code of 8, and a Reason Code of zero. I don't know WHY the Reason Code is zero, but it is.

Ron
_________________
A computer once beat me at chess, but it was no match for me at kick boxing.

[Ganesh_999]

Hi Ron,
You are right if Return code is 8(empty VSAM KSDS being opened for Input), Reason code is zero!
In my case I found a way. The file I am opening contains a NULL record always as the first record.
I open it and if there is an OPEN error (R15 = 8), I use SHOWCB to get the count of the records in the file. If it is not greater or equal to 1, then it means it is an empty file error.
And if its non-empty OPEN error, than SHOWCB itself fails to give the record count.

Thanks a lot for your help,
Ganesh