SQL/MX 2.x Reference Manual (H06.04+)

Embedded-Only SQL/MX Statements
HP NonStop SQL/MX Reference Manual—540440-003
3-59
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.
...