SQL Programming Manual for TAL

Error and Status Processing
HP NonStop SQL Programming Manual for TAL—527887-001
6-6
Using the WHENEVER Directive
Figure 6-2. Enabling and Disabling the WHENEVER Directive
EXEC SQL WHENEVER SQLERROR CALL :error^handler;
PROC proc^1(i, j, k);
INT i;
INT j;
INT k;
BEGIN
END;
EXEC SQL SELECT ...;
EXEC SQL SELECT ...;
EXEC SQL SELECT ...;
! Reset SQLERROR checking while in error handler:
EXEC SQL WHENEVER SQLERROR;
PROC proc^2(i, j, k);
BEGIN
EXEC SQL SELECT ...;
EXEC SQL SELECT ...;
EXEC SQL SELECT ...;
END;
INT i;
INT j;
INT k;
PROC error^handler;
BEGIN
END;
CALL SQLCADISPLAY(sqlca);
CALL ABEND;
PROC driver MAIN;
INT a;
INT b;
INT c;
BEGIN
CALL proc^1(a, b, c);
CALL proc^2(c, b, a);
EXEC SQL INSERT...;
END;
! Reenable SQLERROR checking after error^handler:
EXEC SQL WHENEVER SQLERROR CALL :error^handler;
VST0602.vsd