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

PL/I - IMS DB program abending while updating


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Thu Apr 25, 2013 12:41 pm
Reply with quote

Hi,

I'm running a program to update the database. Program works fine on small databases like for 500 records, but when I run it on large database it abends with following description:

Code:
IEA995I SYMPTOM DUMP OUTPUT  228                           
  USER COMPLETION CODE=4083 REASON CODE=00000004           
 TIME=19.54.49  SEQ=26223  CPU=0000  ASID=0094             
 PSW AT TIME OF ERROR  078D1E00   85E0DA3A  ILC 2  INTC 0D
   NO ACTIVE MODULE FOUND                                 
   NAME=UNKNOWN                                           
   DATA AT PSW  05E0DA34 - 00181610  0A0D9500  C39DA774   
   AR/GR 0: 8CD0858A/84000000   1: 00000000/84000FF3       
         2: 00000000/00082F00   3: 00000000/0DB44F18       
         4: 00000000/0012A000   5: 00000000/0DB46658       
         6: 00000000/0DB455C0   7: 00000000/00114BA0       
         8: 00000000/0DB46410   9: 00000000/00000004       
         A: 00000000/00000000   B: 00000000/05E0DC10       
         C: 00000000/000FAB88   D: 00000000/0DB45518       
         E: 00000000/85E0DA28   F: 00000000/00000004       
 END OF SYMPTOM DUMP                                       


In abend aid, I get the following information:

Code:
A program check was trapped by Language Environment.  During the error     
handling process, Language Environment determined that there was an error   
with the chaining of the dynamic storage areas (DSA) and issued user abend 
4083, reason code 04.  The save area is located at the beginning of the DSA.
                                                                           
A save area back chain pointer contains a value that is not a fullword     
aligned address.  Save areas must be fullword aligned.  Also, check to see 
if the back chain pointer contains the character string of "F1SA"           
(X'C6F1E2C1') which indicates use of the linkage stack.                     
                                                                           
Use of the linkage stack is not supported by Language Environment.         
                                                                           
The information pertaining to the program check is no longer available.  The
problem with the save area may be related to the original error.  Abend-AID
will print the save area chain from each end to indicate what program calls
were made.                                                                 
                                                                           
Following is the save area chain using the back pointer (BCK) starting with
the save area at 0DB45518. All addresses are resolved as 31 bit addresses.
                                                                           
Backward save area chain                                                   
                                                                           
                                                                           
Following is the save area chain using the forward pointers starting with 
the Language Environment Dummy DSA at 000FB630. All addresses are resolved
as 31 bit addresses.                                                       
                                                                           
Forward save area chain                                                   
                                                                           
                                                                           
Program Information                                                       
                                                                           
The program DFSPCC32 was compiled on 30DEC2010.                           
It is part of load module DFSPCC30.                                       

The module was dynamically loaded.                                 
                                                                   
The module was loaded from LINKLIST library SYS1.RESLIB.           
The module was link edited on 03MAR2011 and is 00001EF8 bytes long.

Call Trace Summary                                                       
*******Calling*******  ****Return****           *******Called********   
Load-Mod  Program      Type     Value           Program      Load-Mod   
*SYSTEM                                Links to DFSRRC00     DFSRRC00   
DFSRRC00  DFSRRC00     DISP  0000009A  Links to DFSPCC30     DFSPCC30   
DFSPCC30  DFSPCC30     DISP  00000928  Calls    DFSPCC31     DFSPCC30   
DFSPCC30  DFSPCC31     DISP  00000136  Calls    DFSPCC32     DFSPCC30   
DFSPCC30  DFSPCC32                     Calls    DFSDVBI0     DFSDVBI0   
DFSDVBI0  DFSDVBI0     DISP  00000E2F  Calls    DFSDOBI0     DFSDOBI0   
DFSDOBI0  DFSDOBI0                     Calls    DFSPCC32     DFSPCC30 * 
DFSPCC30  DFSPCC32     DISP  000000E6  Links to CEESTART     TS001       
TS001     CEESTART                     Calls    undetermined             
          undetermined                 Calls    undetermined             
          undetermined                 Calls    undetermined             
          undetermined                 Calls    DFSPCC32     DFSPCC30   
DFSPCC30  DFSPCC32                     Calls                 DFSBATWK   
DFSBATWK                               Calls                 CEEPLPKA   
CEEPLPKA               DISP  05E0DA28  Calls                 CEEPLPKA   
                                                                         
                                               Program Causing Error  * 


GU................... 476,044
GN................... 476,045
GNP.................. 0     
GHU.................. 952,088
GHN.................. 0     


For the Registers at abend, select REGS                       
                                                               
Abend PSW........ 078D1E00 85E0DA3A   A(CEEPLPKA) + 000DEA72   
Program PSW...... 078D1E00 85E0DA3A   A(CEEPLPKA) + 000DEA72   
Last Branch Issued from... 00000000                           
                                                               
Load Module.......................... TS001                   
Entry Point.......................... 0DB379B0                 
Load Point........................... 0DB379B0                 
Length of the instruction............ 02                       
Interrupt code....................... 0D                       
                                                               
Parameter Data Length................ 28                       
PARM='DLI,TS001,TS001,1,1100,EX,0,'                           


I'm not able to figure out what is causing the abend.
And for that matter, How to analyze/process the above data to find out the problem.
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: Thu Apr 25, 2013 6:35 pm
Reply with quote

Hello,

Suggest you ask your technical support people which debugging tool(s) might be available.

If there are none, you can put "footprints" in your code to determine where the problem occurs.
Back to top
View user's profile Send private message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Fri Apr 26, 2013 4:56 pm
Reply with quote

Thanks Dick..I added "footprints" in the code. Program is updating one particular segment using and Input file. And one of the record was occuring more than the defined Segment array limit in Database and causing the error.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


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

PostPosted: Fri Apr 26, 2013 5:39 pm
Reply with quote

I lurk around this topic to see what might be the solution; as you get U4083, which LE callable abend and IMS is involved, so was curious for the solution. Appreciate your efforts of telling what worked for you, Thanks.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Fri Apr 26, 2013 5:48 pm
Reply with quote

Quote:
Program works fine on small databases like for 500 records, but when I run it on large database


usually when SMALL works and LARGE does not
some array/table has overflowed
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 -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts EZT program to build a flat file with... All Other Mainframe Topics 9
Search our Forums:

Back to Top