How to handle system abend codes occured for EXECIO in rexx

kiraj · Posted: Tue Oct 16, 2012 5:03 pm

Hi,

I get system abend code 013, reason code 00000200. Abend in host command EXECIO or address environment routine TSO

I used CALL BPXWDYN 'ALLOC DD(LAMIN) DA('DSN') SHR SUBSYS(LAM)'. And tried to read the librarain dataset using the below command
'EXECIO * DISKR LAMIN (STEM BOOK. FINIS'

How can I suppress this abend in the rexx code.?

I used SIGNAL ON ERROR/FAILURE, still the abend occurs at the console.

Robert Sample · Posted: Tue Oct 16, 2012 5:19 pm

Have you tried using a member name in the BPXWDYN allocation? I suspect your problem is that you cannot allocate the entire LIBRARIAN master file, just members, using the subsystem.

Nic Clouston · Posted: Tue Oct 16, 2012 5:51 pm

If the dataset really is a Librarian dataset then I believe it is in a proprietary format that EXECIO will not be able to handle. If I am wrong then someone will correct my belief.

Robert Sample · Posted: Tue Oct 16, 2012 6:05 pm

Nic, CA provides the LAM subsystem with LIBRARIAN to allow members to be read as if the master file is a PDS so IEBGENER, for example, can be used to copy a single member. However, I don't believe this subsystem will support other types of access -- but that really is a question to be directed to CA support to get an answer.

Nic Clouston · Posted: Tue Oct 16, 2012 6:47 pm

Thanks, Robert. I'll probably forget the info by the time I need it again!

dick scherrer · Posted: Tue Oct 16, 2012 8:04 pm

Hello,

One of the manuals on the Librarian bookshelf is the:
File Access Interface Routines Reference Guide.

Been a while since i used FAIR, but it has been around for a very long time.

Pedro · Posted: Tue Oct 16, 2012 9:31 pm

enrico-sorichetti · Posted: Tue Oct 16, 2012 9:43 pm

read the manuals about the abend code 013, reason code 00000200.
pretty easy to follow the logic

from the manual for the S013 abend
look at the description of the IEC141I. message to understand the meaning of the RC returned
and act accordingly

but something smells fishy around here , the terminology You used does not fit the S013 abend

suggest You investigate better

generally for <any> program is not easy to handle from the inside the system abends

Akatsukami · Posted: Tue Oct 16, 2012 9:45 pm

dick scherrer · Posted: Tue Oct 16, 2012 9:49 pm

Hello,

A Librarian Master File is stored in a proprietary format and a "normal"
open will Not work.

You need to use the access tools provided by CA or find another way to get to what you need.

kiraj · Posted: Wed Oct 17, 2012 10:38 am

Nic Clouston · Posted: Wed Oct 17, 2012 2:21 pm

"doesn't work" does not help without the 'how it does not work'!
Why do you want to hide the abend when there is an error? It is an error and you need to know about it.

enrico-sorichetti · Posted: Wed Oct 17, 2012 2:27 pm

let' s start working around the problem

since a LAM subsystem <thing> is considered a SEQUENTIAL DATASET

when happened when Yo tried a simple iebgener

SYSUT2 DD SYSOUT=*

SYSUT1 pointing to an existing member
SYSUT1 pointing to a NON existing member

as already told You cannot trap a SYSTEM abend unless You use pretty sophisticated coding
Assembler ONLY and not easy

and REXX unfortunately can NOT do it

Bill Woodger · Posted: Wed Oct 17, 2012 6:05 pm

Kiraj,

What exactly are you trying to do?

If you work off a list of Librarian modules, there'd be no need to try to "trap" anything untrappable, except in the unfortunate instance someone deleting a module after you have accessed the list.

Set out here, or with CA Support, what it is you are trying to achieve, rather than some unworkable work-around for the method you have chosen to implement.

kiraj · Posted: Thu Oct 18, 2012 8:48 am

Hi Bill,

My requirement is to read the member from librarian file and expand in a screen. I want to search the member across available librarian datasets, if member is not found then it should do nothing or send error message.

Hence i used dynamic allocation routine to perform my requirement. It works for existing members. For members not found,it is abending. Either i want to supress this abend or send some error message.

How can I achieve this?

dick scherrer · Posted: Thu Oct 18, 2012 7:03 pm

Hello,

Is there some reason you are unwilling to use the CA provided access method?

I don't know anyone who has tried to access Librarian via BPXWDYN (so i'm not aware of what should/will work). Everyone i know that used CA's offerings was successful reading Librarian.

Is there some business / technical Not to use what is supported?

Mickeydusaor · Posted: Fri Oct 19, 2012 3:16 am

Did you even try to check the RETURN CODEs from EXECIO

Stefan · Posted: Fri Oct 19, 2012 2:52 pm

PeterHolland · Posted: Fri Oct 19, 2012 4:29 pm