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

Embedded-Only SQL/MX Statements
HP NonStop SQL/MX Reference Manual—540440-003
3-74
COBOL Examples of OPEN
COBOL Examples of OPEN
•
Declare and open a cursor, using FETCH to retrieve data, then closing the cursor:
EXEC SQL DECLARE cursor1 CURSOR FOR
SELECT COL1, COL2, COL3
FROM PARTS
WHERE COL1 >= :hostvar
ORDER BY COL1
READ UNCOMMITTED ACCESS
END-EXEC.
...
EXEC SQL OPEN cursor1 END-EXEC.
...
EXEC SQL FETCH cursor1
INTO :hostvar1, :hostvar2, :hostvar3
END-EXEC.
...
EXEC SQL CLOSE cursor1 END-EXEC.
•
This example uses extended cursor and statement names in the PREPARE,
ALLOCATE CURSOR, and OPEN statements:
...
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.
...