SQL/MP Programming Manual for COBOL

Data Retrieval and Modification
HP NonStop SQL/MP Programming Manual for COBOL—529758-003
4-24
Using Foreign Cursors
These statements open, fetch, and close a foreign cursor named LIST-BY-PARTNUM
which is declared in the procedure 3000-UPDATE-INVENTORY:
** While EOF=false
OPEN 3000-UPDATE-INVENTORY.LIST-BY-PARTNUM USING DESCRIPTOR
input-sqlda
FETCH 3000-UPDATE-INVENTORY.LIST-BY-PARTNUM USING DESCRIPTOR
output-sqlda.
CLOSE 3000-UPDATE-INVENTORY.LIST-BY-PARTNUM.