Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
S0C4 UNEXPECTED SYSTEM ERROR HANDLED

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
Michael Angelo Pagala

New User


Joined: 02 Mar 2007
Posts: 34
Location: somewhere in the middle

PostPosted: Wed Aug 18, 2010 1:11 pm    Post subject: S0C4 UNEXPECTED SYSTEM ERROR HANDLED
Reply with quote

Hi guys,

I tried checking the listing and pinpoint where is the problem but I can't figure out why am I missing.

The abend occurs when calling the batch module called the utility module.

statement 28659 at compile unit offset +00021A58 at entry offset +00021A58 at address 3CB44E80

Code:
028659  ADD                                                                     
   021A54  5820 9BAC               L     2,2988(0,9)             BLL=5         
   021A58  D201 DDB8 20BD          MVC   3512(2,13),189(2)       TS2=16         
   021A5E  960F DDB9               OI    3513(13),X'0F'          TS2=17         
   021A62  5830 C03C               L     3,60(0,12)              CBL=3         
   021A66  FA10 DDB8 3767          AP    3512(2,13),1895(1,3)    TS2=16         
   021A6C  D201 20BD DDB8          MVC   189(2,2),3512(13)       CDA-LEVEL-INDEX
   021A72  960F 20BE               OI    190(2),X'0F'            CDA-LEVEL-INDEX


CDA-LEVEL-INDEX is defined as
CDA-LEVEL-INDEX PIC 9(03) COMP-3

Code:
028659                    ADD 1          TO  CDA-LEVEL-INDEX.


value of CDA-LEVEL-INDEX before the call
CDA-LEVEL-IDX: 001

any inputs is appreciated..If the date I have given is insufficient please tell me and I will try to provide it.
Back to top
View user's profile Send private message

Michael Angelo Pagala

New User


Joined: 02 Mar 2007
Posts: 34
Location: somewhere in the middle

PostPosted: Wed Aug 18, 2010 1:51 pm    Post subject:
Reply with quote

I cannot edit my message. I just want to correct the message of my typo errors.

Hi guys,

I tried checking the listing and pinpoint where is the problem but I can't figure out what am I missing.

The abend occurs when the batch module called the utility module.

this is from the called module

statement 28659 at compile unit offset +00021A58 at entry offset +00021A58 at address 3CB44E80
Code:

028659  ADD                                                                     
   021A54  5820 9BAC               L     2,2988(0,9)             BLL=5         
   021A58  D201 DDB8 20BD          MVC   3512(2,13),189(2)       TS2=16         
   021A5E  960F DDB9               OI    3513(13),X'0F'          TS2=17         
   021A62  5830 C03C               L     3,60(0,12)              CBL=3         
   021A66  FA10 DDB8 3767          AP    3512(2,13),1895(1,3)    TS2=16         
   021A6C  D201 20BD DDB8          MVC   189(2,2),3512(13)       CDA-LEVEL-INDEX
   021A72  960F 20BE               OI    190(2),X'0F'            CDA-LEVEL-INDEX



CDA-LEVEL-INDEX is defined as
CDA-LEVEL-INDEX PIC 9(03) COMP-3

this is the statement where the error occured

Code:
028659                    ADD 1          TO  CDA-LEVEL-INDEX.


value of CDA-LEVEL-INDEX before the call
CDA-LEVEL-IDX: 001

I will try to put some displays on the called module to check whether I am passing invalid values on the linkage.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6970
Location: porcelain throne

PostPosted: Wed Aug 18, 2010 2:08 pm    Post subject:
Reply with quote

Basically a SOC4 is when you are attempting to modify storage outside of your authorized space.

so, where is CDA-LEVEL-IDX defined? (in both modules)
where is the ADD statement defined?

what does the CALL look like?
what does the PROCEDURE DIVISION USING statement look like?

does the structure containing CDA-LEVEL-IDX in the CALLed module
receive addressability via the PROC-DIV USING statement?

a display of CDA-LEVEL-IDX will just give you a SOC4.
Back to top
View user's profile Send private message
Michael Angelo Pagala

New User


Joined: 02 Mar 2007
Posts: 34
Location: somewhere in the middle

PostPosted: Wed Aug 18, 2010 2:49 pm    Post subject:
Reply with quote

The CDA-LEVEL-IDX is defined for both

the add statement is on the beginning of the called module

the call uses three copybooks (in order) which are the same in the linkage and procedure divison of the called module

I check the dump again..looks something is misaligned in the linkage.

I will try to find out what.
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
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts -502 Error - Cursor already open anand jeyapaul DB2 7 Sun Oct 29, 2017 4:22 am
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts FTP Skip or ignore error and process ... AJAYREDDY All Other Mainframe Topics 3 Wed Sep 27, 2017 8:12 pm
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us