OUTTRAP

[Grant Ward Able]

Hello fellow REXX practitioners,

I thought that using OUTTRAP would enable me to catch an 013 abend if I
tried to EXECIO a non-existant PDS member (or a file). However, this does
not seem to be the case, as I get this:

IEC141I
013-18,IGG0191B,XXFS,SPF221,MYFILEI,78AB,TSUPBW,XXFS.MQMT.MDEF.LOGLIB.BKUP(HAPP)

IRX0250E System abend code 013, reason code 00000024.
IRX0255E Abend in host command EXECIO or address environment routine TSO.

IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=013 REASON CODE=00000018
.
.
.
IRX0670E EXECIO error while trying to GET or PUT a record.
+++ RC(20) +++
27 *-* x = OUTTRAP('VAR.')
>L> "VAR."
>F> "VAR."
28 *-* CRC = RC
>V> "20"
29 *-* IF CRC > 0
>V> "20"
>L> "0"
>O> "1"
*-* THEN
*-* DO X = 1 TO VAR.0
>L> "1"
>V> "0"

What am I not understanding? Feel free to tell me to RTFM if that is the
case, but if so - what section?

--
Regards - Grant
=======================================
Note: Any opinion expressed is my own
=======================================
No trees were killed in the sending of this message, but a large number of
electrons were severely disturbed.
=======================================
The views I have expressed on this website/service are my own personal
views, and are not endorsed or supported by, and do not necessarily
express or reflect, the views, positions or strategies of my employer.
=======================================

Telephone Number: +44 20765 01496

<BR>_____________________________________________________________
<FONT size=2><BR>
DTCC DISCLAIMER: This email and any files transmitted with it are
confidential and intended solely for the use of the individual or
entity to whom they are addressed. If you have received this email
in error, please notify us immediately and delete the email and any
attachments from your system. The recipient should check this email
and any attachments for the presence of viruses. The company
accepts no liability for any damage caused by any virus transmitted
by this email.</FONT>

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

[Sambataro, Anthony [E] , NIH/CIT]

OUTTRAP captures output of TSO commands issued from REXX, not REXX statements

[Don Imbriale]

You can use the SYSDSN function before the EXECIO to determine if the member
exists.

- Don Imbriale

----------------------------------------------------------------------

[Donald Johnson]

One option is to issue a SYSDSN call ( stat = SYSDSN("'"dsn"'");) and then
test the result field for "OK" or "MEMBER NOT FOUND" or any of the other
results depending on how you want to handle it.

This is found in the REXX Syntax manual and it is an external TSO/E command.
*don*

[Paul Gilmartin]

On Mar 30, 2011, at 05:37, Sambataro, Anthony (NIH/CIT) [E] wrote:

> OUTTRAP captures output of TSO commands issued from REXX, not REXX statements
>

Not really. If the OP were to code:

address TSO 'EXECIO ...'

which is issuing EXECIO from Rexx as a TSO command, I doubt
that the messages would be captured.

EXECIO is not a "REXX statement".

> -----Original Message-----
> From: Grant Ward Able [mailto:GWar...@DTCC.COM]
> Sent: Wednesday, March 30, 2011 7:30 AM
>

> I thought that using OUTTRAP would enable me to catch an 013 abend if I
> tried to EXECIO a non-existant PDS member (or a file). However, this does
> not seem to be the case, as I get this:
>
> IEC141I
> 013-18,IGG0191B,XXFS,SPF221,MYFILEI,78AB,TSUPBW,XXFS.MQMT.MDEF.LOGLIB.BKUP(HAPP)

-- gil

[Grant Ward Able]

Thanks for the help, people. I will be using SYSDSN and checking for
MEMBER NOT FOUND before attempting to do the EXECIO reads. This will stop
me getting the S013 abends.

--
Regards - Grant
=======================================
Note: Any opinion expressed is my own
=======================================
No trees were killed in the sending of this message, but a large number of
electrons were severely disturbed.
=======================================
The views I have expressed on this website/service are my own personal
views, and are not endorsed or supported by, and do not necessarily
express or reflect, the views, positions or strategies of my employer.
=======================================

Telephone Number: +44 20765 01496

Paul Gilmartin <PaulGB...@AIM.COM>
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
30/03/2011 16:38
Please respond to
TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>

To
TSO-...@VM.MARIST.EDU
cc

Subject
Re: [TSO-REXX] OUTTRAP

address TSO 'EXECIO ...'

-- gil

<BR>_____________________________________________________________

<FONT size=2><BR>
DTCC DISCLAIMER: This email and any files transmitted with it are
confidential and intended solely for the use of the individual or
entity to whom they are addressed. If you have received this email
in error, please notify us immediately and delete the email and any
attachments from your system. The recipient should check this email
and any attachments for the presence of viruses. The company
accepts no liability for any damage caused by any virus transmitted
by this email.</FONT>

----------------------------------------------------------------------

[adrianstern]

On Mar 30, 7:31 am, GWarda...@DTCC.COM (Grant Ward Able) wrote:
> Hello fellow REXX practitioners,
>
> I thought that using OUTTRAP would enable me to catch an 013 abend if I
> tried to EXECIO a non-existant PDS member (or a file). However, this does
> not seem to be the case, as I get this:
>
> IEC141I

> 013-18,IGG0191B,XXFS,SPF221,MYFILEI,78AB,TSUPBW,XXFS.MQMT.MDEF.LOGLIB.BKUP(­HAPP)

> Telephone Number:+44 20765 01496begin_of_the_skype_highlighting            +44 20765 01496      end_of_the_skype_highlighting

>
> <BR>_____________________________________________________________
> <FONT size=2><BR>
> DTCC DISCLAIMER: This email and any files transmitted with it are
> confidential and intended solely for the use of the individual or
> entity to whom they are addressed. If you have received this email
> in error, please notify us immediately and delete the email and any
> attachments from your system. The recipient should check this email
> and any attachments for the presence of viruses.  The company
> accepts no liability for any damage caused by any virus transmitted
> by this email.</FONT>
>
> ----------------------------------------------------------------------
> For TSO-REXX subscribe / signoff / archive access instructions,

> send email to LISTS...@VM.MARIST.EDU with the message: INFO TSO-REXX

this is extremely strange - are you running in batch? if the file is
missing you should get a jcl error
if you're running on-line then your allocate statement should fail
if the dataset should already be allocated then somwhere a non zero
return code is missed
execio should not dump - ever!