#85 WHENVER verb in working storage

[Anonymous]

Oracle SQL allows for the WHENEVER verb to be used in either working storage or the procedure division. RES has allowed for it to be in the procedure division, but not in the working storage secion.

++++++ This code goes into the working storage area ++++++++++++

EXEC SQL SYSGEN
WHENEVER SQLERROR DO PERFORM 9000-SQL-ERROR-ROUTINE SYSGEN
END-EXEC. SYSGEN