SQL/MX 2.x Reference Manual (H06.04+)

Embedded-Only SQL/MX Statements
HP NonStop SQL/MX Reference Manual—540440-003
3-20
COBOL Examples of DEALLOCATE PREPARE
COBOL Examples of DEALLOCATE PREPARE
•
Prepare, execute, and deallocate an UPDATE statement with dynamic input
parameters:
...
MOVE "UPDATE SALES.CUSTOMER SET CREDIT = ?"
& " WHERE CUSTNUM = CAST(? AS NUMERIC(4) UNSIGNED)"
& x"00" TO stmt-buffer.
...
EXEC SQL PREPARE upd_cust FROM :stmt-buffer END-EXEC.
...
* Input values for parameters into host variables
ACCEPT in-credit.
...
ACCEPT in-custnum.
...
EXEC SQL EXECUTE upd_cust
USING :in-credit, :in-custnum
END-EXEC.
...
EXEC SQL DEALLOCATE PREPARE upd_cust END-EXEC.
•
This example uses extended statement names:
...
MOVE "ins_cust1" TO stmt.
EXEC SQL PREPARE :stmt FROM :stmt-buffer END-EXEC.
EXEC SQL EXECUTE :stmt END-EXEC.
EXEC SQL DEALLOCATE PREPARE :stmt END-EXEC.
...
MOVE "ins_cust2" TO stmt.
EXEC SQL PREPARE :stmt FROM :stmt-buffer END-EXEC.
EXEC SQL EXECUTE :stmt END-EXEC.
EXEC SQL DEALLOCATE PREPARE :stmt END-EXEC.
...