SQL/MP Programming Manual for COBOL

Writing Pathway Servers
HP NonStop SQL/MP Programming Manual for COBOL—529758-003
E-9
UPDATE Subprogram
* The definition of these LINKAGE parameters should be COPY
* statements.
01 reply-code PIC S9(4) COMP.
01 error-code PIC S9(4) COMP.
PROCEDURE DIVISION USING parts-params,
reply-code,
error-code.
MAIN-SECTION SECTION.
00-whenever.
EXEC SQL WHENEVER NOT FOUND PERFORM :sql-notfnd 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 inventory OF parts-params TO inventory OF parts-
record.
EXEC SQL UPDATE $mkt.sample.parts
SET inventory = :parts-record.inventory
WHERE partnum = :parts-record.partnum
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
sql-notfnd.
MOVE 9999 TO reply-code OF entry-reply
MOVE sqlcode OF sqlca TO error-code.
END PROGRAM update-parts.
?ENDUNIT
Example E-3. SQL UPDATE Subprogram (page 2 of 2)