SQL/MX Programming Manual for C and COBOL (G06.24+, H06.03+)

Static SQL Cursors
HP NonStop SQL/MX Programming Manual for C and COBOL—523627-004
6-7
Process the Retrieved Values
...
void list_func(void) {
EXEC SQL OPEN list_by_partnum;
EXEC SQL FETCH list_by_partnum
INTO :parts_rec1.partnum,
:parts_rec1.partdesc,
:parts_rec1.price,
:parts_rec1.qty_available;
...
}
Example
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 parts-rec1.
02 hv-partnum pic 9(4) COMP.
02 hv-partdesc pic x(18).
02 hv-price pic s9(6)v9(2) COMP.
02 hv-qty-available pic s9(5) COMP.
01 parts-rec2.
...
01 min-partnum pic 9(4) COMP.
EXEC SQL END DECLARE SECTION END-EXEC.
...
PROCEDURE DIVISION.
...
EXEC SQL DECLARE list_by_partnum CURSOR FOR
SELECT partnum, partdesc, price, qty_available
FROM parts
WHERE partnum >= :min-partnum
ORDER BY partnum
FOR READ ONLY
END-EXEC.
...
* Set value for min-partnum.
...
EXEC SQL OPEN list_by_partnum END-EXEC.
EXEC SQL
FETCH list_by_partnum
INTO :hv-partnum OF parts-rec1,
:hv-partdesc OF parts-rec1,
:hv-price OF parts-rec1,
:hv-qty-available OF parts-rec1
END-EXEC.
...
Process the Retrieved Values
After the FETCH statement returns the values to the host variables, your program can
process the values. For example, you can test one or more values and then perform
one of these operations:
•
Update columns in the current row by using a positioned UPDATE statement.
•
Delete the current row by using a positioned DELETE statement.
•
List or display the values.
COBOL