MVSFORUMS.com

[tommy123]

Hai,


I have seen in many COBOL-DB2 programs ,normally the abend para's are written like this below:


**********************************************************************************
* DECLARATIONS / MESSAGE STRUCTURES *
* *
**********************************************************************************
01 DSNTIAR-MESSAGE.
05 MESSAGE-LENGTH PIC S9(4) COMP VALUE +800.
05 DSNTIAR-MSG-TEXT OCCURS 8 TIMES INDEXED BY DSNTIAR-INDEX PIC X(120).
01 DSNTIAR-LINE-LENGTH PIC S9(9) COMP VALUE +120.



ABEND-PARA.


IF SQLCODE NOT EQUAL ZERO
CALL 'DSNTIAR' USING SQLCA DSNTIAR-MESSAGE DSNTIAR-LINE-LENGTH
IF RETURN-CODE EQUAL ZERO
PERFORM WITH TEST AFTER VARYING DSNTIAR-INDEX FROM 1 BY 1
UNTIL DSNTIAR-INDEX GREATER THAN 8
IF DSNTIAR-MSG-TEXT(DSNTIAR-INDEX) NOT EQUAL SPACE
DISPLAY DSNTIAR-MSG-TEXT(DSNTIAR-INDEX)
END-IF
END-PERFORM
END-IF
END-IF.
MOVE 12 TO RETURN-CODE.
STOP RUN.





Can anyone tell me why exactly do we use this piece of code and what does the description indicates in the ABEND-PARA ?
Is this kind of declaration standard and used in all shops / where can i get a detailed description of this code.

[kolusu]

Tommy123,

DSNTIAR is an IBM supplied Error Reporting Routine for DB2. The DSNTIAR program takes error data from SQLCA, adds explanatory text and presents it in a more user friendly format. You can call DSNTIAR from a Cobol program to display a formatted message when an error occurs when accessing DB2.

Check this link which explains in detail about DSNTIAR

http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/DSNAPH10/2.1.5.4?SHELF=&DT=20010209162045&CASE=

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu