SQL/MP Programming Manual for COBOL

Writing Pathway Servers
HP NonStop SQL/MP Programming Manual for COBOL—529758-003
E-5
CALL Model: SQL Main Program
The reply message fields REPLY-CODE and ERROR-CODE are set as follows:
The main program for the sample server illustrating the CALL model is shown in
Example E-2.
Reply Message REPLY-CODE ERROR-CODE
Operation successful 0 N.A.
Error, operation not performed 9999 Positive SQLCODE value
(transformed from original negative
value)
Warning, but operation successful 9998 Positive SQLCODE value
Invalid ENTRY-TYPE 9997 N.A.
CALL error occurred 9996 N.A.
Example E-2. CALL Model Main Program (page 1 of 3)
IDENTIFICATION DIVISION.
PROGRAM-ID. call-model-sql.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. Tandem NonStop.
OBJECT-COMPUTER. Tandem NonStop.
SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT msg-in
ASSIGN TO $RECEIVE
FILE STATUS IS receive-file-status.
SELECT msg-out
ASSIGN TO $RECEIVE
FILE STATUS IS receive-file-status.