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

COBOL Sample Programs
HP NonStop SQL/MX Programming Manual for C and COBOL—523627-004
C-13
Using a Dynamic SQL Cursor
Using a Dynamic SQL Cursor
Example C-5 executes the steps shown in Figure 10-2 on page 10-13.
Example C-5. Using a Dynamic SQL Cursor (page 1 of 3)
*--------------------------------------------------------------
* Description: Using a Dynamic SQL Cursor
* Statements: PREPARE
* Dynamic DECLARE CURSOR
* OPEN
* FETCH
* CLOSE
* WHENEVER
* GET DIAGNOSTICS
*--------------------------------------------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID. Program-exF122.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 sqlstate pic x(5).
01 hv-partnum pic 9(4) comp.
01 hv-partdesc pic x(18).
01 hv-price pic s9(6)v9(2) comp.
01 hv-qty-available pic s9(7) comp.
01 hv-num pic s9(9) comp.
01 hv-sqlstate pic x(5).
01 hv-msgtxt pic x(128).
01 hv-tabname pic x(128).
01 hv-colname pic x(128).
01 curspec pic x(255).
01 in-qty-available pic s9(7) comp.
01 i pic s9(9) comp.
EXEC SQL END DECLARE SECTION END-EXEC.
01 sqlstate-ok pic x(5) value "00000".
01 sqlstate-nodata pic x(5) value "02000".
01 print-line.
03 print-order pic x(19) value "Order part number: ".
03 print-partnum pic x(10).
03 print-current pic x(17) value "Current quality: ".
03 print-qty pic x(10).