SQL/MP Programming Manual for COBOL

SQL/MP System Procedures
HP NonStop SQL/MP Programming Manual for COBOL—529758-003
5-10
Additional Considerations for SQLCA_DISPLAY2_
Example 5-2 shows the routines in the file COPYCODE.
Example 5-2. Error Routines in Copy Library
?SECTION REQUEST-NOT-FOUND, TANDEM
8000-NOT-FOUND.
MOVE "REQUESTED ROW NOT FOUND" TO ADVISORY-LINE OF REPLY.
MOVE 9998 TO REPLY-CODE.
?SECTION SQL-WARNING, TANDEM
9900-SQL-WARN.
MOVE -1 to SQL-MSG-FILE-NO.
MOVE "N" to STATS.
MOVE "N" to ERR-LOC.
*******************************************************************
* Send the SQL Warning message to HOMETERM for DBA analysis. *
*******************************************************************
ENTER TAL "SQLCA_DISPLAY2_" USING SQLCA,
OMITTED,
OMITTED,
SQL-MSG-FILE-NO,
OMITTED,
OMITTED,
STATS,
OMITTED,
ERR-LOC.
?SECTION SQL-ERROR, TANDEM
9999-SQL-ERROR.
MOVE "PROCESS ERROR SQL = FS = - NOTIFY DB ADMINISTRATOR"
TO ADVISORY-LINE OF REPLY.
MOVE 9999 TO REPLY-CODE.
*******************************************************************
* *
* Move the SQL return code to the advisory line and multiply it *
* by -1 to show a positive number. *
* Move any file system error to the advisory line. *
* *
*******************************************************************
MOVE SQLCODE OF SQLCA TO ADVISORY-SQL OF ADVISORY-LINE.
MULTIPLY ADVISORY-SQL OF ADVISORY LINE BY -1
GIVING ADVISORY-SQL OF ADVISORY-LINE END-MULTIPLY.
ENTER TAL "SQLCAFSCODE" USING SQLCA GIVING MY-FS-CODE.
MOVE MY-FS-CODE TO ADVISORY-FS OF ADVISORY-LINE.
MOVE -1 to SQL-MSG-FILE-NO.
MOVE "N" to STATS.
MOVE "N" to ERR-LOC.
*******************************************************************
* Send the SQL error message to HOMETERM for DBA analysis. *
*******************************************************************
ENTER TAL "SQLCA_DISPLAY2_" USING SQLCA,
OMITTED,
OMITTED,
SQL-MSG-FILE-NO,
OMITTED,
OMITTED,
STATS,
OMITTED,
ERR-LOC.