SQL/MP Programming Manual for COBOL85

Writing Pathway Servers
HP NonStop SQL/MP Programming Manual for COBOL85—429326-004
E-10
INSERT Subprogram
INSERT Subprogram
The SQL subprogram INSERT-PARTS that inserts new parts into the PARTS table is
illustrated in Example E-4.
Example E-4. SQL INSERT Subprogram (page 1 of 2)
IDENTIFICATION DIVISION.
PROGRAM-ID. insert-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.
*
* The definition of these LINKAGE parameters should be COPY
* statements.
01 reply-code PIC S9(4) COMP.
01 error-code PIC S9(4) COMP.