DSN8MCXX
THIS MODULE IS ENTERED AS STANDARD ACTION WHEN A 'SQLERROR' OR 'SQLWARNING' OCCURS .
*****************************************************************
* *
* MODULE NAME = DSN8MCXX *
* *
* DESCRIPTIVE NAME = SQLERROR HANDLING MODULE *
* COBOL VERSION *
* *
* COPYRIGHT = 5615 DB2 (C) COPYRIGHT IBM CORP 1982, 2013 *
* REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 *
* *
* STATUS = VERSION 11 *
* *
* FUNCTION = THIS MODULE IS ENTERED AS STANDARD ACTION *
* WHEN A 'SQLERROR' OR 'SQLWARNING' OCCURS *
* *
* NOTES = *
* *
* MODULE TYPE = BLOCK OF COBOL CODE *
* *
* PROCESSOR = DB2 PRECOMPILER, COBOL COMPILER *
* *
* MODULE SIZE = SEE LINKEDIT *
* *
* ATTRIBUTES = REUSEABLE *
* *
* ENTRY POINT = *
* *
* PURPOSE = SEE FUNCTION *
* *
* LINKAGE = * *
* *
* INPUT = PARAMETERS EXPLICITLY PASSED TO THIS FUNCTION: *
* SYMBOLIC LABEL/NAME = N/A *
* DESCRIPTION = DDNAME *
* *
* OUTPUT = PARAMETERS EXPLICITLY RETURNED: *
* PCONVSTA.OUTPUT.LINE(*) *
* SYMBOLIC LABEL/NAME = N/A *
* DESCRIPTION = N/A *
* *
* EXIT-NORMAL = *
* *
* EXIT-ERROR = *
* *
* RETURN CODE = N/A *
* REASON CODE = N/A *
* MESSAGE ID = N/A *
* *
* ABEND CODES = N/A *
* *
* ERROR-MESSAGES = *
* *
* EXTERNAL REFERENCES = *
* ROUTINES/SERVICES = MODULE DSNTIAR *
* *
* DATA-AREAS = *
* CONTROL-BLOCKS = *
* *
* TABLES = *
* *
* CHANGE-ACTIVITY = *
* *
* PSEUDOCODE = *
* *
* THIS CODE IS ENTERED AS STANDARD ACTION WHEN AN 'SQLERROR' OR *
* 'SQLWARNING' OCCURS. *
* *
* INFORMATION DESCRIBING THE ERROR WILL BE PLACED IN THE DISPLAY*
* AREA OF THE OUTPUT MESSAGE / PCONVSTA.OUTPUT.LINE(*) / *
* IN THE FOLLOWING WAY: *
* *
* LINE 4 WILL BE BLANK *
* LINE 5 CONTAINS A MESSAGE INCLUDING NAME (MAJOR AND MINOR)*
* OF THE MODULE WHERE THE ERROR OCCURRED *
* LINE 6 WILL BE BLANK *
* LINES 7-14 CONTAIN THE CONTENTS OF 'SQL COMMUNICATION AREA' *
* *
*****************************************************************
DB-ERROR.
MOVE 'DSN8001' TO LASTSCR IN PCONVSTA.
MOVE '1' TO EXITCODE.
MOVE SPACES TO LINE0(4), LINE0(6).
STRING '<========= A SQLERROR HAS OCCURRED IN MODULE: ',
MAJOR, SPACE, MINOR, ' =========>'
DELIMITED BY SIZE
INTO LINE0(5).
CALL 'DSNTIAR' USING SQLCA ERROR-MESSAGE DATA-LEN.
MOVE ERR-TEXT1 TO LINE0(7).
MOVE ERR-TEXT2 TO LINE0(8).
MOVE ERR-TEXT3 TO LINE0(9).
MOVE ERR-TEXT4 TO LINE0(10).
MOVE ERR-TEXT5 TO LINE0(11).
MOVE ERR-TEXT6 TO LINE0(12).
MOVE ERR-TEXT7 TO LINE0(13).
MOVE ERR-TEXT8 TO LINE0(14).