IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Abending with USER COMPLETION CODE=4039 REASON CODE=00000000


IBM Mainframe Forums -> ABENDS & Debugging
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
nbalajibe
Warnings : 1

New User


Joined: 28 Nov 2006
Posts: 75
Location: India

PostPosted: Wed Sep 10, 2008 1:05 pm
Reply with quote

Hi,

I am getting the below abend in my job .

Code:
18.43.23 JOB45620  IEA995I SYMPTOM DUMP OUTPUT  530                             
   530               USER COMPLETION CODE=4039 REASON CODE=00000000             
   530              TIME=18.41.33  SEQ=36140  CPU=0000  ASID=00C5               
   530              PSW AT TIME OF ERROR  078D1000   A0C07056  ILC 2  INTC 0D   
   530                ACTIVE LOAD MODULE           ADDRESS=20B4AC00  OFFSET=000B
   530                NAME=CEEPLPKA                                             
   530                DATA AT PSW  20C07050 - 00181610  0A0D58D0  D00498EC     
   530                AR/GR 0: 80C7B81E/84000000   1: 00000000/84000FC7         
   530                      2: 00000000/0008A958   3: 00000000/00040004         
   530                      4: 00000000/20BFBE24   5: 00000000/0008A4A4         
   530                      6: 00000000/00000000   7: 00000000/20B458E0         
   530                      8: 00000000/0008A958   9: 00000000/0008C016         
   530                      A: 00000000/0008A4A4   B: 00000000/20C06F80         
   530                      C: 00000000/00073A58   D: 00000000/0008D158         
   530                      E: 00000000/A0C06FB2   F: 00000000/00000000         
   530              END OF SYMPTOM DUMP                                         
18.43.29 JOB45620  +AB400A      ===== ABEND-AID =====  556                     
   556                REPORT WRITTEN TO: ABND.DIR.RPT                 
   556                REPORT NUMBER: 908866                                     
   556                JOB-IMTSRNG8 STEP-REGION                                 
   556                LE COND CODE=CEE3204S / EXPECTED COMP CODE=S0C4           


The current statement shown in abendaid is a display statement. But the values displayed are populated fine in its variables (checked the listing in abend aid).

Please help me in interpretting the above dump and finding the reason for the abend.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Wed Sep 10, 2008 1:13 pm
Reply with quote

Hi,

Could be different causes. What pgm/utility was executing?
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Wed Sep 10, 2008 1:21 pm
Reply with quote

I would guess IKJEFT01..BTW.
Back to top
View user's profile Send private message
nbalajibe
Warnings : 1

New User


Joined: 28 Nov 2006
Posts: 75
Location: India

PostPosted: Wed Sep 10, 2008 1:23 pm
Reply with quote

A cobol sub-routine was executing.
Back to top
View user's profile Send private message
nbalajibe
Warnings : 1

New User


Joined: 28 Nov 2006
Posts: 75
Location: India

PostPosted: Wed Sep 10, 2008 1:24 pm
Reply with quote

It is being called from IMSDC online.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Wed Sep 10, 2008 1:55 pm
Reply with quote

Hi,

I'm sorry but it's really tough to explain what to do from my end, one guess would be -did you have both programs with same AMODE? If they differ (one = 24 and the other = 31) passing pointers easely leads to protection exeption, which can eventually lead to 4039.
Back to top
View user's profile Send private message
nbalajibe
Warnings : 1

New User


Joined: 28 Nov 2006
Posts: 75
Location: India

PostPosted: Wed Sep 10, 2008 4:37 pm
Reply with quote

Hi,

AMODE of the calling program and this program are 31 icon_sad.gif
Back to top
View user's profile Send private message
nbalajibe
Warnings : 1

New User


Joined: 28 Nov 2006
Posts: 75
Location: India

PostPosted: Wed Sep 10, 2008 6:11 pm
Reply with quote

We face this issue only when the input is more.
Back to top
View user's profile Send private message
Mahendran3784

New User


Joined: 04 May 2007
Posts: 20
Location: INDIA

PostPosted: Wed Sep 10, 2008 7:12 pm
Reply with quote

let me put this with an example

Code:
Program-A (AMODE#31)
Data -Division
Working-Storage
01 VAR-1 pic x(9) value '123456789'.
01 VAR-2 pic 9(2) value 22.
Procedure-Division.
Call Program-b using VAR-1 VAR-2

Program-B (AMODE#31)
Data -Division
Linkage Section
01 VAR-1 pic x(9) value 'asd;lf'.
01 VAR-2 pic  9(2) value '..'.

i.e while receiving in program-b, the values in the variables are not what we passed from Program-A. And DISPLAY statement being the 1st statement in the Program-B, it abends there?
This abend is not happening all the times. Only when Program-A handles bulk values but not in the variables being passed, this issue occurs.
It would be better if we get some insight about how exactly the variables being passed are retrieved in the Called Module? (internal things)

Thanks,
M
Back to top
View user's profile Send private message
nbalajibe
Warnings : 1

New User


Joined: 28 Nov 2006
Posts: 75
Location: India

PostPosted: Wed Sep 10, 2008 7:30 pm
Reply with quote

The register values shown in abend-aid are as follows,

Code:
REG HEX       Decimal         Description                             
R0  00078FE8         495,592  A(00075000) + 00003FE8, PVT SP=001 ALLOC
R1  20E925EE     552,150,510  A(TSTDCIOS) + 000005EE                 
R2  10101010     269,488,144  A(100D1000) + 00030010, CSA SP=231 ALLOC
R3  20E92000     552,148,992  A(TSTDCIOS) + 00000000                 
R4  20E92038     552,149,048  A(TSTDCIOS) + 00000038                 
R5  000631BC         405,948  A(00063000) + 000001BC, PVT SP=001 ALLOC
R6  0007C5E8         509,416  A(00075000) + 000075E8, PVT SP=001 ALLOC
R7  00073A58         473,688  A(00072000) + 00001A58, PVT SP=001 ALLOC
R8  00063A80         408,192  A(00063000) + 00000A80, PVT SP=001 ALLOC
R9  20E89DF8     552,115,704  A(20E88000) + 00001DF8, PVT SP=001 ALLOC
R10 0007B850         505,936  A(00075000) + 00006850, PVT SP=001 ALLOC
R11 A0D71338  -1,596,517,576  A(IGZCDSP ) + 00000000                 
R12 20E920FC     552,149,244  A(TSTDCIOS) + 000000FC                 
R13 00078A90         494,224  A(00075000) + 00003A90, PVT SP=001 ALLOC
R14 00078C48         494,664  A(00075000) + 00003C48, PVT SP=001 ALLOC
R15 00078A90         494,224  A(00075000) + 00003A90, PVT SP=001 ALLOC
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Wed Sep 10, 2008 7:36 pm
Reply with quote

Are either of the programs being compiled as CICS programs.
Back to top
View user's profile Send private message
nbalajibe
Warnings : 1

New User


Joined: 28 Nov 2006
Posts: 75
Location: India

PostPosted: Wed Sep 10, 2008 7:38 pm
Reply with quote

No. We deal only with IMS.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Sep 10, 2008 7:53 pm
Reply with quote

The CEE3204 means there's a storage violation. Interesting that program TSTDCIOS is loaded with 31-bit addressing but several of the registers point to a 24-bit location (00075000, 00072000, 00063000). Is there any chance one of the subroutines is not compiled 31-bit?

Have you analyzed the CEEDUMP to see what it tells you? Are you using DISPLAY on LINKAGE-SECTION items? Have you googled CEE3204 and IMS to look at the various APARs that may apply?
Back to top
View user's profile Send private message
nbalajibe
Warnings : 1

New User


Joined: 28 Nov 2006
Posts: 75
Location: India

PostPosted: Wed Sep 10, 2008 8:49 pm
Reply with quote

Code:
------------------------
Load-Mod    Amode  Rmode
                       
TSTDCIOS     31    ANY 
TBROOTI      24     24 
DFSPCC20     31     24 
TSTDRIV      31    ANY 
CEEBINIT     24     24 
IGZCPAC      31    ANY 
TSTLOGS     31    ANY 
TSTLLLSS     31    ANY 
CEEPLPKA     31    ANY 
LEAID        31    ANY 
------------------------
Back to top
View user's profile Send private message
nbalajibe
Warnings : 1

New User


Joined: 28 Nov 2006
Posts: 75
Location: India

PostPosted: Wed Sep 10, 2008 8:50 pm
Reply with quote

Posted above is the AMODE info we got from Abend-aid
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Sep 10, 2008 9:55 pm
Reply with quote

Hello,

Does the program have one or more arrays?

Is there a check in the code to make sure that if there is more data than there is array entries that the code issues an error and stops or might the code just keep running and "walk on storage"?
Back to top
View user's profile Send private message
nbalajibe
Warnings : 1

New User


Joined: 28 Nov 2006
Posts: 75
Location: India

PostPosted: Wed Sep 10, 2008 10:11 pm
Reply with quote

We have done all the validations icon_sad.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Sep 10, 2008 10:52 pm
Reply with quote

Quote:
TBROOTI 24 24
This module could cause a problem. It looks like a 24-bit subroutine in a 31-bit routine; odd results could occur.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> ABENDS & Debugging

 


Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Reorg abended with REASON=X'00E40347' DB2 2
No new posts PuTTY - "User is not a surrogate... IBM Tools 5
No new posts REASON 00D70014 in load utility DB2 6
Search our Forums:

Back to Top