SQL/MP Programming Manual for COBOL85

Writing Pathway Servers
HP NonStop SQL/MP Programming Manual for COBOL85—429326-004
E-8
CALL Model: SQL Subprograms
CALL Model: SQL Subprograms
Following are the two subprograms that are called to perform SQL operations on the
PARTS table.The reply message fields REPLY-CODE and ERROR-CODE are set as
follows:
UPDATE Subprogram
The SQL subprogram UPDATE-PARTS that updates the PARTS table is illustrated in
Example E-3.
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
Example E-3. SQL UPDATE Subprogram (page 1 of 2)
IDENTIFICATION DIVISION.
PROGRAM-ID. update-parts.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. Tandem NonStop.
OBJECT-COMPUTER. Tandem NonStop.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
* The definition of PARTS-RECORD should be an INVOKE directive.
01 parts-record.
02 partnum PIC 9(4).
02 partname PIC X(18).
02 inventory PIC S999 COMP.
02 location PIC XXX.
02 price PIC 9(6)V99 COMP.
EXEC SQL END DECLARE SECTION END-EXEC.
EXEC SQL INCLUDE SQLCA END-EXEC.
* LINKAGE SECTION.
* The definition of PARTS-PARAMS should be an INVOKE directive.
01 parts-params.
02 partnum PIC 9(4).
02 partname PIC X(18).
02 inventory PIC S999 COMP.
02 location PIC XXX.
02 price PIC 9(6)V99 COMP.