SQL/MX 3.2 Reference Manual (H06.25+, J06.14+)

Embedded-Only SQL/MX Statements
HP NonStop SQL/MX Release 3.2 Reference Manual—691117-001
3-60
COBOL Examples of GET DIAGNOSTICS
COBOL Examples of GET DIAGNOSTICS

Use the diagnostics area to get information about exception conditions:
...
EXEC SQL GET DIAGNOSTICS :hv-num = NUMBER,
...
END-EXEC.
PERFORM VARYING i FROM 1 BY 1 UNTIL i > hv-num
EXEC SQL GET DIAGNOSTICS EXCEPTION :i
:hv-sqlstate = RETURNED_SQLSTATE,
:hv-sqlcode = SQLCODE,
:hv-msgtext = MESSAGE_TEXT,
...
END-EXEC.
* Write to the exception condition log file.
...
* Process the diagnostic area values.
...
END-PERFORM.
...