Figure C
Specific errors test

Evaluate True

  When SqlState = SqlStateOK

    Continue

  When SqlState = SqlStateDupKey

    Perform SqlDupKey

  When SqlState( 1 : 2 )= SqlStateCstPfx

    Perform SqlCstErr

  When SqlState( 1 : 2 )= SqlStateWrnPfx

    Perform SqlWarning

  When Other

    Perform SqlError

End-Evaluate