IBM Mainframe Forum

Hello,

For example, after an OPEN and a test SHOWCB by giving an error, we must stop the program and indicate the problem.

Example:
OPEN ESDSFILE

LTR R15,R15
BNZ BADOPCL

BADOPCL DS 0H
ST R15,SAVR15 SAVE R15 FOR LATER DISPLAY
*
SHOWCB ACB=ESDSFILE, X
AREA=RETCODE, X
LENGTH=4, X
FIELDS=ERROR

LTR R15,R15
BNZ ERROR

what to put in my paragraph ERROR?


Is there a particular macro to do this?



Thanks.

Well, to start with you cannot use ERROR as both a data area and the target of a conditonal branch.

error is just a label in Your program,
You are free to do anything You like/feel useful to provide to the user.
You might probably want to display the return code and the reason code and exit nicely with a 16 RC

Most likely you could (A) ABEND the program or (B) set a non-zero RETURN CODE and terminate the program

Schubie wrote:Most likely you could (A) ABEND the program or (B) set a non-zero RETURN CODE and terminate the program

I think michel123 is looking for something like the SYNADAF macro for non-VSAM. It's possible that the "VSAMFAIL" routine, described here, might be able to do what he wants, but I've never used it, so I can't vouch for it. Unlike the "DAIRFAIL" routine, it does not appear to have an option to return its error message in a buffer, which limits its utility.

When I said I've never used it, I was not telling the whole truth. I used it once, for a TSO related capability of the program, but I was unhappy with its output and never tried it again.

Isn't there a dump macro to dump sections of your program/storage? You could then preface each area with something like:

DS 0D
BEGACB DC CL8"ACB>>>>>"
MYACB ACB whatever
ENDACB DC CL8"<<ENDACB"

You could do the same for RPL or any area you would like to see.