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

Embedded-Only SQL/MX Statements
HP NonStop SQL/MX Reference Manual—523725-004
3-36
COBOL Examples of DESCRIBE
•
Prepare a statement and allocate and describe the input and output descriptor
areas:
...
MOVE "SELECT * FROM EMPLOYEE"
& " WHERE EMPNUM = CAST(? AS NUMERIC(4) UNSIGNED)"
TO stmt-buffer.
...
EXEC SQL PREPARE S1 FROM :stmt-buffer END-EXEC.
...
MOVE 1 TO desc-max.
EXEC SQL ALLOCATE DESCRIPTOR 'in_args'
WITH MAX :desc-max END-EXEC.
MOVE 6 TO desc-max.
EXEC SQL ALLOCATE DESCRIPTOR 'out_cols'
WITH MAX :desc-max END-EXEC.
...
EXEC SQL DESCRIBE INPUT S1
USING SQL DESCRIPTOR 'in_args'
END-EXEC.
EXEC SQL DESCRIBE OUTPUT S1
USING SQL DESCRIPTOR 'out_cols'
END-EXEC.
...