MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

rexx tso system abend 0c4 reason code 10

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Thu Sep 22, 2022 1:12 am    Post subject: rexx tso system abend 0c4 reason code 10 Reply with quote

I was testing something in TSO and received the following error so I thought I'd append what seemd to be a/the solution in case anyone else runs into it
Quote:

406 *-* /* rc = fred(selected_database) */
407 *-* rc = casedb2(selected_database)
System abend code 0C4, reason code 00000016.
Abend in external function CASEDB2.
System abend code 0C4, reason code 00000016.
PHASE 1 PROCESSING OF CLIST OR REXX EXEC ENDED ABNORMALLY +
ABEND CODE: S0C4 REASON CODE: 0010

The actual script I'm running is called MSCASEDB. This shows a panel where one of the input fields is called casedb
Note the commented line on 406.

If I flip-flop the fred call and the casedb2 one (and fred is an exact copy of casedb2), then all works well.
My guess is that it has something to do with the generic names of the panel variables and the actual rexx script name, but having found a work-around, I'm not going to bother to report it or investigate it any more.
Just thought I'd post this so anyone else could possible be helped by this post.

(As a quick experiment, I changed the CASEDB2 script name to CASEDL1, after which the abends disappeared).
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12354
Topics: 75
Location: San Jose

PostPosted: Thu Sep 22, 2022 8:58 pm    Post subject: Reply with quote

misi01,

Looks like you have casedb2 exec in your concatenation list which does not support the receiving of parms.

To debug the issue

1. Type TSO ISRDDN and press enter
2. Issue the command Member casedb2 and press enter.
3. It should now find the PDS which has this member.
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Fri Sep 23, 2022 3:03 am    Post subject: Reply with quote

Thanks for the pointer. You were quite right. This is what I found (Obviously (?) some CA software): -
Quote:

CASEDB2 CAW1F00
├╝RMID(RESERVE)
├╝ 20180507 15.57
.......CA ENF/D
B2
R15.0 - COPYR
IGHT (C) 1993-20
18 CA. ALL RIG
HTS RESERVED.


As I mentioned, I simply renamed my script and everything was fine after that.
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group