WHENEVER Examples
1. During program development, print all errors and continue with next statement.
exec sql whenever sqlerror call sqlprint;
2. During database cursor manipulation, close the cursor when no more rows are retrieved.
exec sql open cursor1;
exec sql whenever not found goto close_cursor;
loop until whenever not found is true
exec sql fetch cursor1
into :var1, :var2;
print and process the results;
end loop;
close_cursor:
exec sql whenever not found continue;
exec sql close cursor1;
3. Stop program upon detecting an error or warning condition.
exec sql whenever sqlerror stop;
exec sql whenever sqlwarning stop;
4. Reset WHENEVER actions to default within an error handling block.
error_handle:
exec sql whenever sqlerror continue;
exec sql whenever sqlwarning continue;
exec sql whenever not found continue;
...
handle cleanup;
...
5. Always confirm that the connect statement succeeded before continuing.
exec sql whenever sqlerror stop;
exec sql connect :dbname;
exec sql whenever sqlerror continue;
Last modified date: 08/28/2024