SQL/MP Programming Manual for COBOL85

SQL/MP System Procedures
HP NonStop SQL/MP Programming Manual for COBOL85—429326-004
5-9
Additional Considerations for SQLCA_DISPLAY2_
Example 5-1. Error Processing Using SQLCA_DISPLAY2_
WORKING-STORAGE SECTION.
EXEC SQL INCLUDE SQLCA END-EXEC.
PROCEDURE DIVISION.
EXEC SQL WHENEVER NOT FOUND PERFORM :8000-NOT-FOUND END-EXEC.
EXEC SQL WHENEVER SQLWARNING PERFORM :9900-SQL-WARN END-EXEC.
EXEC SQL WHENEVER SQLERROR PERFORM :9999-SQL-ERROR END-EXEC.
DO-BEGIN.
PERFORM READ-MESSAGE.
IF NOT EOF-MESSAGE-IN
MOVE MSG-KEY TO HOSTVAR-KEY
MOVE ZERO TO REPLY-CODE
PERFORM DO-TRANS
PERFORM WRITE-REPLY.
DO-TRANS.
EVALUATE TRANS-CODE OF INPUT MSG
WHEN 1 PERFORM TRANS-CODE-1
WHEN 2 PERFORM TRANS-CODE-2
WHEN OTHER PERFORM INVALID-TRANS-CODE.
TRANS-CODE-1.
MOVE "REQUESTED ROW DISPLAYED" TO ADVISORY-LINE OF REPLY
EXEC SQL SELECT COL1, COL2
FROM TABLE
INTO :HOSTVAR1, :HOSTVAR2
WHERE KEY = :HOSTVAR-KEY
FOR BROWSE ACCESS
END-EXEC.
MOVE HOSTVAR1 TO REPLY-FIELD1.
MOVE HOSTVAR2 TO REPLY-FIELD2.
...
TRANS-CODE-2.
MOVE "SPECIFIED ROW UPDATED" TO ADVISORY-LINE OF REPLY.
MOVE MSG-COL1 TO HOSTVAR1.
MOVE MSG-COL2 TO HOSTVAR2.
EXEC SQL UPDATE TABLE
SET COL1 = :HOSTVAR1,
COL2 = :HOSTVAR2
WHERE KEY = :HOSTVAR-KEY
END-EXEC.
...
*******************************************************************
* Copy error processing routines from the copy library COPYCODE
*******************************************************************
COPY REQUEST-NOT-FOUND OF COPYCODE.
COPY SQL-WARNING OF COPYCODE.
COPY SQL-ERROR OF COPYCODE.