SQL/MX 2.x Reference Manual (G06.24+, H06.03+)

Embedded-Only SQL/MX Statements
HP NonStop SQL/MX Reference Manual—523725-004
3-86
COBOL Examples of SET DESCRIPTOR
COBOL Examples of SET DESCRIPTOR
•
Allocate a descriptor area, describe the input parameters of a dynamic SQL
statement, and use the descriptor area to set values for the parameters:
MOVE 1 TO desc-max.
EXEC SQL ALLOCATE DESCRIPTOR 'in_sqlda'
WITH MAX :desc-max END-EXEC.
...
MOVE "UPDATE employee
- " SET salary = salary * 1.1
- " WHERE jobcode = CAST(? AS NUMERIC(4) unsigned)"
TO hv-sql-statement.
EXEC SQL PREPARE sqlstmt
FROM :hv-sql-statement END-EXEC.
EXEC SQL DESCRIBE INPUT sqlstmt
USING SQL DESCRIPTOR 'in_sqlda' END-EXEC.
ACCEPT in-jobcode.
MOVE 1 TO desc-value.
EXEC SQL SET DESCRIPTOR 'in_sqlda' VALUE :desc-value
VARIABLE_DATA = :in-jobcode,
...
END-EXEC.
EXEC SQL EXECUTE sqlstmt
USING SQL DESCRIPTOR 'in_sqlda' END-EXEC.