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

Embedded-Only SQL/MX Statements
HP NonStop SQL/MX Reference Manual—523725-004
3-46
COBOL Examples of FETCH
* Close cursor.
EXEC SQL CLOSE cursor1 END-EXEC.
...
nodata SECTION.
...
•
This example uses extended cursor and statement names:
ACCEPT in-curspec.
...
EXEC SQL PREPARE :curspec FROM :in-curspec END-EXEC.
EXEC SQL ALLOCATE :extcur CURSOR FOR :curspec END-EXEC.
...
EXEC SQL OPEN :extcur END-EXEC.
...
MOVE 10 TO desc-max.
EXEC SQL ALLOCATE DESCRIPTOR 'fetch_sqlda'
WITH MAX desc-max END-EXEC.
EXEC SQL DESCRIBE OUTPUT :curspec
USING SQL DESCRIPTOR 'fetch_sqlda' END-EXEC.
EXEC SQL FETCH :extcur
INTO SQL DESCRIPTOR 'fetch_sqlda' END-EXEC.
* Process values in SQL descriptor area.
...
EXEC SQL CLOSE :extcur END-EXEC.