Chapter 11 473
SQL Statements E - R
PRINT
In COBOL:
IF SQLCODE IS NOT ZERO OR SQLWARN0 = "W"
PERFORM M100-DISPLAY-MESSAGE
UNTIL SQLCODE IS ZERO AND SQLWARN0 = "W".
.
.
.
M100-DISPLAY-MESSAGE.
EXEC SQL SQLEXPLAIN :SQLMESSAGE END-EXEC.
DISPLAY SQLMESSAGE.
M100-EXIT.
EXIT.
