MVSFORUMS.com

RSP · Beginner Joined: 21 Nov 2003 Posts: 3 Topics: 1

Hi All!

I am new to REXX pgmming and had been using this forum to check out certain options to make my REXX tool work.
I am creating a tool for multi users and it works when I try testing it. All of a sudden I notice S806 and S0C4 abend when other users try to test it. Sad

FYI - This tool throws specific ISPF panels and also calls a cobol subroutine to do certain validations.
I have allocated appropriate libraries which point to loadlib of the subroutine and the intermediary files that I use in the REXX are prefixed with USERID of the user.

Please can you advice me on what to look for or how to prevent such abends?
Would TSO FREE ALL work? Embarassed

Thanks in advance and looking fwd to replies!
RSP

taltyman · Posted: Fri Nov 21, 2003 2:56 pm Post subject:

The 806 should be fairly easy to determine. Maybe the 0C4 is related. At any rate here is a common pitfall for allocations. Make sure you correctly quote the dsn in your libdef or allocate statements. If you don't then you may get allocations with the high level dsn node being whatever is set in the users tso profile prefix value. That value is typically the userid of the user or a null value but doesn't have to be either. You may want to post snippets of your code where you do your allocates or libdefs.

RSP · Beginner Joined: 21 Nov 2003 Posts: 3 Topics: 1

Hi Taltyman!
Thanks for your quick response. I did check that all the allocation and libdef stmts are correctly quoted.
The weird part is that out of 10 users - 3 have abends (and thats enough to rid me of my sleep! Shocked

) and others dont.
Here are some snippets of the code ->
"ALLOCATE DD(MAINLIB) DA('TPHT.LIB.TBLBASE') SHR"
"ISPEXEC LIBDEF ISPLLIB DATASET ID('T00P.DSD.#001118.LDB' 'T00P.OL.PGMLIB' 'T00P.BT.PGMLIB'
)"
"ALLOCATE DA(ABCD.FLAG) NEW SPACE(5,2) ,
RECFM(F,B) LRECL(10) BLKSIZE(10)"

Please let me know if I shld send something else too...
Thanks!
RSP

taltyman · Posted: Fri Nov 21, 2003 4:23 pm Post subject:

Are they local where you can watch over their shoulders and see what is happening when you add a 'trace i' to the code?
From what I see your allocates/libdefs appear to be okay.
Are you actually using 3 load libraries?

RSP · Beginner Joined: 21 Nov 2003 Posts: 3 Topics: 1

Well! 1 of the users is local but the abend she got was S806 stating that it couldnot find the loadlib of the called subroutine. (I checked in abendaid too). I checked if she could browse the loadlib of the subroutine ('T00P.DSD.#001118.LDB' ) and she could.

There are few more loadlibs in my REXX. I just pasted some.
S0C4 abend doesnt re-occur when I logoff and login again......

Help!
-RSP

taltyman · Posted: Sun Nov 23, 2003 8:09 am Post subject:

You may want to do a 'lista sta' just before you call the program and make sure you have all the needed loadlibs allocated. Being able to browse doesn't prove a whole lot. I've never really needed to allocate several ispllibs in an ispf application so I may not be much help. The fact that a logoff and logon cleans some errors up indicates that some cleanup is not done for re-executions that is being done during logoff/logon.

Mike · Posted: Sun Nov 23, 2003 4:52 pm Post subject:

Sorry jumped in too fast.
_________________
Regards,
Mike.