Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
selvius

New User


Joined: 11 Sep 2004
Posts: 5

PostPosted: Tue Dec 02, 2008 7:51 pm    Post subject: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

I need help resolving a s0c4 reason code 10 (segemt translation) abend.

We have been using this assembler program for 20 years. Over the weekend our system people upgraded the system preparing for the new release of zos. Now this 20 year old program is abending.

We do not have the source code for this program. I am hoping it can be fixed by setting some parameter on the linkage editor and relinking it.

We are running on the following environment;

z/OS 01.08.00 JES version JES2


Here is a copy of the message.

Code:
SYSTEM COMPLETION CODE=0C4  REASON CODE=00000010                   
 TIME=04.10.47  SEQ=02166  CPU=0000  ASID=0089                     
 PSW AT TIME OF ERROR  078D2000   0000C6BA  ILC 4  INTC 10         
   ACTIVE LOAD MODULE           ADDRESS=000076F0  OFFSET=00004FCA 
   NAME=WAAPDSUT                                                   




Any help will be appreciated.

Selvius


Edited: Please use BBcode Tags when You post some code, that's rather readable, Thanks...Anuj
Back to top
View user's profile Send private message

Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Tue Dec 02, 2008 8:21 pm    Post subject: Re: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

Sounds like either an AMODE, RMODE or both error condition.

Is this a sub-program called by a HLL (such as COBOL)?

If so and you're passing a parmlist to this sub-program, the COBOL caller needs to be compiled using option DATA(24) to ensure below-the-line addressability for the sub-program.

Assembler programs of 20+ years and older were probably linked as below-the-line, as this was quite common, due to OS/VS COBOL also being linked below-the-line.

HTH....

Bill
Back to top
View user's profile Send private message
selvius

New User


Joined: 11 Sep 2004
Posts: 5

PostPosted: Tue Dec 02, 2008 8:24 pm    Post subject: Reply to: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

Bill,
This is the main program on the excute statment in the jcl.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Dec 02, 2008 8:26 pm    Post subject: Reply to: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

The utility at the heart of Your misfortunes is the WAAPDSUT utility, which EDS wrote and used.

I heard once, but cannot confirm
that it was meant for EDS use only and not left at the customer at the end of the contract

the reasons.... You just found one
Back to top
View user's profile Send private message
selvius

New User


Joined: 11 Sep 2004
Posts: 5

PostPosted: Tue Dec 02, 2008 8:41 pm    Post subject:
Reply with quote

enrico,
Thanks for you comment.

As I understand it, the upgrade to zos may be forcing some rule regarding registers and how storage is used. I was hoping by relinking I could get by.

PS... You sound like you have had some experience with WAAPDSUT?

Selvius
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Dec 02, 2008 8:57 pm    Post subject: Reply to: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

No, relinking will not help
check with Your support about the SWA placement for the old system and the new one
( jes2 parmlib startup member )

if in the old one the location was below and in the new one the location is above
then You might have the solution

the parameter can be changed with a command an You can test on the fly
Back to top
View user's profile Send private message
selvius

New User


Joined: 11 Sep 2004
Posts: 5

PostPosted: Tue Dec 02, 2008 9:18 pm    Post subject:
Reply with quote

enrico,

I am checking with our system people to see if the jes2 parm changed.

As an old computer operator I am somewhat familiar with SWA. I know the SWA can be set at the time the initiator is allocated. Can the SWA location be changed through? Is there some other was to change SWA without getting system people involved?

Selvius
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Dec 02, 2008 9:21 pm    Post subject: Reply to: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

it can be changed at class level with a $T cmmand
it' s just a guess, worth to try,
20 years ago the programs would do their own control block chasing
and the chase for allocated dnames is usually a good point to start from
Back to top
View user's profile Send private message
selvius

New User


Joined: 11 Sep 2004
Posts: 5

PostPosted: Wed Dec 03, 2008 8:55 pm    Post subject:
Reply with quote

RESOLVED....

I wrote an assembler shell to handle I/O. I then dropped the WAAPDSUT code inside the shell and then assembled as a new program.
Back to top
View user's profile Send private message
kevinolive

New User


Joined: 04 Dec 2008
Posts: 1
Location: Winston Salem, NC, USA

PostPosted: Fri Dec 05, 2008 6:11 pm    Post subject: WAAPDSUT OC4
Reply with quote

We have the same issue but it wasn't discovered until Wednesday (12/3) and our implementation to z/os 1.9 *was* scheduled for 12/7. The code to this solution would help us meet our year end deadline and get it implemented 12/14.

KevinOlive
Back to top
View user's profile Send private message
Homer Monts

New User


Joined: 27 Jun 2008
Posts: 4
Location: Columbia, SC

PostPosted: Mon Jan 12, 2009 11:20 am    Post subject: Reply to: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

selvius

Can you provide the logic you used behind the 'shell' that will make WAAPDSUT work under z/OS 1.9? My company has quite few executions of this program (as I can only imagine with other companies that EDS has 'touched' over the years). I have replaced some with SYNCSORT, SAS, ASM and EZT+ routines but I miss being able to do 'down and ditry' file manipulation with this program. Been using it for 20+ years and hate to have to give it up!!

Thanks for any information you can supply!!
Homer
Back to top
View user's profile Send private message
Clive Adams

New User


Joined: 04 Jun 2009
Posts: 1
Location: Australia

PostPosted: Tue Jun 16, 2009 6:35 am    Post subject: Reply to: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

The problem with WAAPDSUT was brought on by the change associated with IBM APAR OA22679. As a result of this, SVC 24 (used to find the devtype) no longer retained the R1 contents on return from the SVC. WAAPDSUT tries to update a value based on R1 after the SVC, and as it has changed and points to non-authorised storage, it gets the S0C4.

IBM have told me via ETR 49238,101,616 that this problem "may" be resolved by PTF UA90499, but they do not have confirmation as yet.

In the mean time I have created a simple zap which fixes the problem. Here it is:

//SUPZAP EXEC PGM=AMASPZAP
//SYSLIB DD DISP=SHR,DSN=LoadlibContainingWaapdsut
//SYSPRINT DD SYSOUT=*
NAME WAAPDSUT WAAPDSUT
VER 4E34 4770,8E9A
REP 4E34 1814,0700
/*
Back to top
View user's profile Send private message
Cindy Grosse

New User


Joined: 25 Jun 2009
Posts: 1
Location: Minnesota

PostPosted: Tue Jun 30, 2009 7:45 pm    Post subject: Reply to: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

Thank you for the zap.
My load module is dated 3/6/1981 and is x'5800' long.
I had to change the displacements a bit for my version.
VER 4EAC 4770,8EEA
REP 4EAC 1814,0700

This is really helped me out. I feel crippled without WAAPDSUT.
Back to top
View user's profile Send private message
Homer Monts

New User


Joined: 27 Jun 2008
Posts: 4
Location: Columbia, SC

PostPosted: Wed Sep 16, 2009 9:15 pm    Post subject: Reply to: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

Thanks for the zap! It's nice to have this old utility back up and running!

The version I have has a link date of 91.149 and is X'59D0' in size. The offsets for this version are....

NAME WAAPDSUT WAAPDSUT
VER 507C 4770,8EEA
REP 507C 1814,0700
Back to top
View user's profile Send private message
er_neo

New User


Joined: 10 Jan 2006
Posts: 18
Location: Indore

PostPosted: Wed Nov 18, 2009 3:17 am    Post subject: Query on ZAP
Reply with quote

Hi,

Can you tell me how are you translating the size of WAAPDSUT into the offset.
The size in my system of WAAPDSUT is x'5910'

TIA
Back to top
View user's profile Send private message
er_neo

New User


Joined: 10 Jan 2006
Posts: 18
Location: Indore

PostPosted: Thu Nov 19, 2009 3:50 am    Post subject:
Reply with quote

i am still not sure how to modify this proposed AMASPZAP solution to fit in my case.

Can anyone help me out how to find out the displacement and what to verfy and what to replace that with?


Thanks
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Nov 19, 2009 3:54 am    Post subject: Reply to: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

since it looks like that there are many versions of that program around

the zaps posted were applicable to programs with the quoted sizes.
if the size of Your program is different the zap might work as might not !
if that is the case You will have to rework the zap

using ispf browse the load module and find all the occurences of the instruction "47708EEA"
after You have found it run an AMASPZAP with the DUMPT command to get a
dump of module in order to finf the address and build the proper ZAP
Back to top
View user's profile Send private message
er_neo

New User


Joined: 10 Jan 2006
Posts: 18
Location: Indore

PostPosted: Thu Nov 19, 2009 10:36 pm    Post subject:
Reply with quote

thanks enrico ...

i found out the correct ZAP .... and that solved my problem as well

however i do have one final question

Why are we replacing "4770,8EEA" with "1814,0700". Or what is the significance of "1814,0700".
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Nov 19, 2009 11:11 pm    Post subject: Reply to: SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
Reply with quote

Quote:
1814,0700


the x'18' op code is a LR ( load register )
the x'07' op code is a no operation ( NOPR to be picky )
Back to top
View user's profile Send private message
er_neo

New User


Joined: 10 Jan 2006
Posts: 18
Location: Indore

PostPosted: Fri Nov 20, 2009 12:21 am    Post subject:
Reply with quote

thanks a bunch enrico....
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts Check System time(Minute) Using TIME1... balaji81_k DFSORT/ICETOOL 5 Fri Nov 11, 2016 10:53 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us