IBM Mainframe Forum

Hello all,
The problem seems to be simple. I use EXECIO command to write something into a PDS file. When there is no space, I get RC of 20 and three lines of error messages:
IRX0250E System abend code E37, reason code 00000004.
IRX0255E Abend in host command EXECIO or address environment routine TSO.
IRX0671E EXECIO error while trying to close a DD.
This would be OK, but it doesn't look good, so I'd like to suppress these messages and just evaluate the return code and issue my own, prettier message. But how to do it? I tried MSG('OFF') and OUTTRAP('something.'), both with no effect - the messages keep being displayed. I have set ADDRESS TSO, which should be all right (didn't work under ISPEXEC either).

Is there any way to suppress this type of messages?

Thanks.

No, there isn't.

Thank you, sir!

I am not sure about those particular messages... but try setting your OUTTRAP in one rexx program, then calling another rexx program to do EXECIO.

Also, try ON ERROR or ON FAILURE (or other recovery routines)

IF USERID() <> "YOURID" THEN DO;
SIGNAL ON SYNTAX NAME ERRORMSG;
SIGNAL ON HALT NAME ERRORMSG;
SIGNAL ON NOVALUE NAME ERRORMSG;
SIGNAL ON ERROR NAME ERRORMSG;
SIGNAL ON FAILURE NAME ERRORMSG;
END;

The above works for us.

Check the OUTTRAP function.

http://publib.boulder.ibm.com/infocente ... 0/trap.htm

Just make sure the FB record length are the same. try to output the file into the same source of the input file.

nabilaal, I'm not sure how relevant your comment is after 11 years, 11 months (less 1 day) have passed.

re: "how relevant your comment is after 11 years"

It is not relevant at all. The original post was about a data set out-of-space condition rather than a record length problem.

And even more correctly, the original post was about suppressing the messages rather than about the data set out-of-space problem.