SQL/MX 3.2 Programming Manual for C and COBOL (H06.25+, J06.14+)

COBOL Sample Programs
HP NonStop SQL/MX Release 3.2 Programming Manual for C and COBOL—663854-002
C-8
Using Argument Lists in Dynamic SQL
****************************************************************
sqlerrors SECTION.
****************************************************************
EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC.
IF sqlstate not = sqlstate-ok
EXEC SQL GET DIAGNOSTICS
:hv-num = NUMBER
END-EXEC.
PERFORM VARYING i FROM 1 BY 1 UNTIL i > hv-num
MOVE SPACES TO hv-msgtxt
EXEC SQL GET DIAGNOSTICS EXCEPTION :i
:hv-tabname = TABLE_NAME,
:hv-colname = COLUMN_NAME,
:hv-sqlstate = RETURNED_SQLSTATE,
:hv-msgtxt = MESSAGE_TEXT
END-EXEC.
DISPLAY "Table : " hv-tabname
DISPLAY "Column : " hv-colname
DISPLAY "SQLSTATE: " hv-sqlstate
DISPLAY "Message : " hv-msgtxt
END-PERFORM
END-IF.
STOP RUN.
****************************************************************
END PROGRAM Program-exF102.
****************************************************************
Example C-3. Using Argument Lists in Dynamic SQL (page3of3)