Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Abend Information How to get Formatted DUMP

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL
Author Message
syandra

New User


Joined: 30 May 2003
Posts: 1

PostPosted: Fri May 30, 2003 5:49 am    Post subject: Abend Information How to get Formatted DUMP
Reply with quote

Hi,

Can anyone please help me understanding the DUMP messages, when a job gets abended.


Thanks,
Sukumar
Back to top
View user's profile Send private message
References
PostPosted: Fri May 30, 2003 5:49 am    Post subject: Re: Abend Information How to get Formatted DUMP Reply with quote

mcmillan

Site Admin


Joined: 18 May 2003
Posts: 899
Location: India

PostPosted: Sun Jun 01, 2003 6:05 pm    Post subject: ABEND DETAILS..
Reply with quote

But you forget to mention which dump you need to be described!

There are 4 dumps and 5 Listings available

Quote:
1. Formatted Dump
2. SNAP Dump
3. System Dump
4. COBTEST Dump


Quote:
1. Source Listing
2. Procedure Cross reference Listing
3. Data Division map Listing
4. Nested Program listing
5. Diagnostic Message LISTING


I assume your program may be written in VS COBOL II..

Code:

+-------------------------------------------------------------------------------------------------------+
?                                                   
?   --- VS COBOL II Formatted Dump at ABEND ---             
?                                   
?   Program = 'DUMPPGM'     =>Program name                                                                                       
?   Completion code = 'U1035'       => Program Completion code upto Abend                                                                             
?   PSW at ABEND = '000400CA60F39A78'     => Program Status Word at ABEND time                         
?   The ABEND address was outside of mainline COBOL code.        => Abend Address                                 
?   Optimization was in effect for this program.                 => under OPTIMIZE compiler option                                 
?   The relative address of the next instruction to be executed:                                                     
?   '00F19A78'                   => Relative address of Next Instruction                           
?   The GP registers at entry to ABEND were      => Values in General Purpose Registers                                               
?       Regs  0 - 3  - '80000000  8000040B  0000040B  00042164'                                                     
?       Regs  4 - 7  - '00030DA8  00045B98  00042170  000422E2'                                                     
?       Regs  8 - 11 - '00024BBC  00045B98  00026894  0003EF80'                                                       
?       Regs 12 - 15 - '40045D9A  00030D60  50045DF6  00035920'                                                     
?   Data Division dump of 'DUMPPGM'                                                                                   
?   000180 FD DUMPPGM.FILE-1 FD           => File Description details if declared                                                                       
?   FILE SPECIFIED AS:                                                                                             
?     ORGANIZATION=SEQUENTIAL   ACCESS MODE=SEQUENTIAL                                                               
?     RECFM=FIXED BLOCKED                                                                                             
?   CURRENT STATUS OF FILE IS:                                                                                     
?     QSAM STATUS CODE=35                  => File status Code at program ends                                                                               
?   000240 01 DUMPPGM.RECORD-1 X(80)                                                                                 
?                                                         ADDRESS CANNOT BE CALCULATED               
?   000264 01 DUMPPGM.FILLER AN-GR                      => Alphanumeric Group item                                                         
?   000265 02 DUMPPGM.ABEND-ITEM1 S9999                                                                             
?         CMP    ===>+0010                                        => Numeric Computational item                               
?   000266 02 DUMPPGM.ABEND-ITEM2 S9999                                                                             
?         CMP3    ===>+0000                                         => Numeric Packed Decimal item                                   
?   000270 01 DUMPPGM.EOF-SW X                                                                                         
?         DISP    ===>                                      => Alphanumeric Display item                                 
?   000295 01 DUMPPGM.WORK-RECORD AN-GR       => Alphanumeric Group item                                                                       
?   000300 02 DUMPPGM.W-EMPLOYEE-NO 9(6)                                                                             
?                                                    INVALID DATA FOR THIS DATA TYPE               
?         DISP    HEX>000000          => Value that causes the ABEND                                       
?                     000000                                                                                         
?   000305 02 DUMPPGM.NAME-FIELD AN-GR                                                                             
?   000310 03 DUMPPGM.FIRST-NAME X(10)                                                                             
?   .                                                                                                                 
?   .                                                                                                                 
?   .                                                                                                                 
?   --- End of VS COBOL II Formatted Dump at ABEND ---                                                                 
?                                                                                                                   
+----------------------------------------------------------------------------------------------------+
Back to top
View user's profile Send private message
mcmillan

Site Admin


Joined: 18 May 2003
Posts: 899
Location: India

PostPosted: Tue Jun 03, 2003 11:36 pm    Post subject: re
Reply with quote

Another way to learn about Error Messages:

COMPILE this program and check your JCL OUTPUT messages.
Code:
IDENTIFICATION DIVISION.
PROGRM-ID. ERRMSG.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL All times are GMT + 6 Hours
Page 1 of 1