SQL/MP Programming Manual for COBOL

Writing Pathway Servers
HP NonStop SQL/MP Programming Manual for COBOL—529758-003
E-11
INSERT Subprogram
PROCEDURE DIVISION USING parts-params,
reply-code,
error-code.
MAIN-SECTION SECTION.
00-whenever.
EXEC SQL WHENEVER NOT FOUND CONTINUE END-
EXEC.
EXEC SQL WHENEVER SQLERROR PERFORM :sql-error END-
EXEC.
EXEC SQL WHENEVER SQLWARNING PERFORM :sql-warning END-
EXEC.
start-program.
MOVE partnum OF parts-params TO partnum OF parts-
record.
MOVE partname OF parts-params TO partname OF parts-
record.
MOVE inventory OF parts-params TO inventory OF parts-
record.
MOVE location OF parts-params TO location OF parts-
record.
MOVE price OF parts-params TO price OF parts-
record.
EXEC SQL INSERT INTO $mkt.sample.parts
VALUES ( :parts-record.partnum,
:parts-record.partname,
:parts-record.inventory,
:parts-record.location,
:parts-record.price )
END-EXEC.
EXIT PROGRAM.
sql-error.
* Return the error code as a positive number.
MOVE 9999 TO reply-code.
MOVE sqlcode OF sqlca TO error-code.
MULTIPLY error-code BY -1 GIVING error-code END-MULTIPLY.
sql-warning.
MOVE 9998 TO reply-code
MOVE sqlcode OF sqlca TO error-code
END PROGRAM insert-parts.
Example E-4. SQL INSERT Subprogram (page 2 of 2)