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-6
Using Argument Lists in Dynamic SQL
Using Argument Lists in Dynamic SQL
Example C-3 executes the steps shown in Figure 9-2 on page 9-4.
Example C-3. Using Argument Lists in Dynamic SQL (page 1 of 3)
*--------------------------------------------------------------
* Description: Using Argument Lists
* Statements: PREPARE
* EXECUTE USING ARGUMENTS
* DEALLOCATE PREPARE
* WHENEVER
* GET DIAGNOSTICS
*--------------------------------------------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID. Program-exF102.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 sqlstate pic x(5).
01 hv-empnum pic 9(4) comp.
01 hv-first-name pic x(15).
01 hv-last-name pic x(20).
01 hv-salary pic 9(6)v9(2) comp.
01 hv-salary-i pic S9(4) comp.
01 hv-temp pic 9(6)v9(2) display.
01 in-empnum pic 9(4) comp.
01 hv-sql-stmt pic x(256).
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 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".
PROCEDURE DIVISION.
START-LABEL.
DISPLAY "This example uses argument lists.".
EXEC SQL WHENEVER SQLERROR GOTO sqlerrors END-EXEC.