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
 

 

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: 6966
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 OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 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