isCOBOL Evolve : Language Reference : Embedded SQL Statements : WHENEVER
WHENEVER
The WHENEVER statement allows the handling of error and exception conditions.
General format
EXEC SQL
 
  WHENEVER { SQLERROR   } [ DO ] { GO TO Host-Label  }
           { SQLWARNING }        { CALL Host-Label   }
           { NOT FOUND  }        { PERFORM Host-Label}
                                 { CONTINUE          }
 
END-EXEC
Syntax rules
1. Host-Label is a User-defined word, as defined in the Definitions section of the Preface of this document.
General rules
1. When SQLERROR is specified, the specified action is performed when the SQL statement generates an error.
2. When SQLWARNING is specified, the specified action is performed when the SQL statement generates a warning.
3. When NOT FOUND is specified, the specified action is performed when the SQL statement affects no rows.
4. When GO TO is specified, the control is transferred to the COBOL paragraph or section identified by Host-Label.
5. When CONTINUE is specified, the program continues to the next statement. If a fatal error occurs, an error condition is generated and the program aborts.
Examples
Set the general SQL error procedure
main.
   exec sql
        whenever sqlerror do perform test-sql-status
   end-exec
   ...
 
test-sql-status.
   if sqlcode not = 0
      display message sqlcode   x"0d0a"
                      sqlerrmc                            
                      title "SQL Error"
      exec sql disconnect all end-exec
      goback
   end-if
   .