SQL/MP Programming Manual for COBOL85

Data Retrieval and Modification
HP NonStop SQL/MP Programming Manual for COBOL85—429326-004
4-18
FETCH Statement
For audited tables and views, the FETCH statement must execute within the same
TMF transaction as the OPEN statement for the cursor.
This FETCH statement retrieves information from the PARTS table:
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 PARTS.
02 PARTNUM PIC 9(4) DISPLAY.
02 PARTDESC PIC X(18).
02 PRICE PIC S9(16)V9(2) COMP.
02 QTY-AVAILABLE PIC S9(9) COMP.
...
EXEC SQL END DECLARE SECTION END-EXEC.
EXEC SQL DECLARE LIST-BY-PARTNUM CURSOR FOR
SELECT PARTNUM,
PARTDESC,
PRICE,
QTY-AVAILABLE
FROM =PARTS
WHERE PARTNUM >= :PARTNUM OF PARTS
ORDER BY PARTNUM
BROWSE ACCESS END-EXEC.
...
...
PROCEDURE DIVISION.
...
0100-GET-DATA.
EXEC SQL OPEN LIST-BY-PARTNUM END-EXEC.
PERFORM 0200-FETCH-ROWS WITH TEST AFTER UNTIL
SQLCODE OF SQLCA NOT = 0.
...
EXEC SQL CLOSE LIST-BY-PARTNUM END-EXEC.
...
0200-FETCH-ROWS.
EXEC SQL
FETCH LIST-BY-PARTNUM
INTO :PARTNUM OF PARTS,
:PARTDESC OF PARTS,
:PRICE OF PARTS,
:QTY-AVAILABLE OF PARTS
END-EXEC.
* Process the retrieved values in the host variables.
...