Using a COBOL program
To verify Z Abend Investigator with DB2® using a COBOL program, edit and submit the sample job HFZVPDBB in data set HFZ.SHFZSAM1. This job uses as input another sample member, HFZSDB2B, containing the COBOL program source code. Refer to the instructions in the sample job for more information.
The job compiles and executes a COBOL program, which abends with a system abend code of S0C9.
Before running this IVP, ensure that the DB2® sample data base environment is set up correctly. Follow the instructions in the DB2® for z/OS® Installation and Migration Guide for running the DSNTEJ2C DB2® IVP. Once DSNTEJ2C is running correctly, then either make the changes listed in the Z Abend Investigator HFZVPDBB sample to the DB2® DSNTEJ2C sample, or make the same changes that were made to the DB2® DSNTEJ2C sample in the Z Abend Investigator HFZVPDBB sample.
As a result of the TER(TRACE) LE option that is specified on the DB2® RUN command for the HFZSDB2B program, Z Abend Investigator is invoked via the LE CEEEXTAN exit, HFZXCEE.
The synopsis section of the Z Abend Investigator report that is written to HFZREPRT should contain the following:
For the Japanese feature of Z Abend Investigator, this section should be in Japanese if the Language(JPN) option is in effect.
A system abend 0C9 occurred in module HFZSDB2B program HFZSDB2B at offset
X'1EE2'.
A program-interruption code 0009 (Fixed-Point-Divide Exception) is associated
with this abend and indicates that:
The divisor was zero in a signed binary division.
The cause of the failure was program HFZSDB2B in module HFZSDB2B. The COBOL
source code that immediately preceded the failure was:
Source
Line #
------
001165 DIVIDE NOT-FOUND BY PERCENT-COUNTER
001166 GIVING ERROR-TEXT-LEN.
The COBOL source code for data fields involved in the failure:
Source
Line #
------
000137 77 NOT-FOUND PIC S9(9) COMP VALUE +100.
000146 77 ERROR-TEXT-LEN PIC S9(9) COMP VALUE +120.
000207 *
000208 77 PERCENT-COUNTER PIC S9(4) COMP.
Data field values at time of abend:
ERROR-TEXT-LEN = 120
NOT-FOUND = 1
PERCENT-COUNTER = 0 *** Cause of error ***
The analysis should include a DB2® Information section similar
to the following: --------------------------------------------------------------------------------
<H3> DB2 Subsystem DB42
DB2 Version . . . . . . . . : V8R1M5
Plan Name . . . . . . . . . : DSN8BH81 (Bound 2006/08/25 14:30:52)
Plan Owner. . . . . . . . . : NWILKES
Database Request Module Name: DB2V810.DB42.DBRMLIB.DATA(HFZSDB2B)
Consistency Token . . . . . : X'17E9C40018AE6A18'
Primary Authorization ID. . : NWILKES
Current SQL ID. . . . . . . : NWILKES
Source
Line #
------
Last Executed SQL Statement : 001149 ***** EXEC SQL FETCH TELE1 INTO :PPHONE END-EXEC.
Z Abend Investigator Event #: 4 (Program HFZSDB2B)
Declare Cursor Stmt No. . . : 200
Declare Cursor Stmt . . . . : DECLARE TELE1 CURSOR FOR SELECT * FROM DSN8810 .
VPHONE
Open Cursor Stmt No . . . . : 346
Open Cursor Stmt. . . . . . : OPEN TELE1
Output Host Variables:
Name and Data Type. . . . : PPHONE.LASTNAME VARCHAR(15)
At Address. . . . . . . : 168A83D8
Data Value. . . . . . . : HAAS
Name and Data Type. . . . : PPHONE.FIRSTNAME VARCHAR(12)
At Address. . . . . . . : 168A83E9
Data Value. . . . . . . : CHRISTINE
Name and Data Type. . . . : PPHONE.MIDDLEINITIAL CHARACTER(1)
At Address. . . . . . . : 168A83F7
Data Value. . . . . . . : I
Name and Data Type. . . . : PPHONE.PHONENUMBER CHARACTER(4)
At Address. . . . . . . : 168A83F8
Data Value. . . . . . . : 3978
Name and Data Type. . . . : PPHONE.EMPLOYEENUMBER CHARACTER(6)
At Address. . . . . . . : 168A83FC
Data Value. . . . . . . : 000010
Name and Data Type. . . . : PPHONE.DEPTNUMBER CHARACTER(3)
At Address. . . . . . . : 168A8402
Data Value. . . . . . . : A00
Name and Data Type. . . . : PPHONE.DEPTNAME VARCHAR(36)
At Address. . . . . . . : 168A8405
Data Value. . . . . . . : SPIFFY COMPUTER SERVICE DIV.
--------------------------------------------------------------------------------
<H3> DB2 Control Blocks
SQL Communications Area (SQLCA) for subsystem DB42 not shown as it is identical
to the SQLCA in the detail section for event # 4 program HFZSDB2B.