Figure 3
Calling a procedure to handle SQL errors

/Exec SQL

Update  Customer

  Set   CreditScore = :InpCreditScore

  Where CustId      = :SlcCustId

/End-Exec



If SqlState <> SqlStateOK

   SqlError( SqlState : 'Update CreditScore' )

EndIf