Figure 4
Checking after a Fetch statement in a loop

Select

  When   SqlState = SqlStateOK

    ExSr ProcessRow

  When   SqlState = SqlStateNoRow

    Eval MoreRows = False

  When   %Subst( SqlState : 1 : 2 ) = SqlStateWrnPfx

    ExSr SqlWarning

    Eval MoreRows = False

  Other

    ExSr SqlError

    Eval MoreRows = False

EndSl

Figure 4Checking after a Fetch statement in a loop

Figure 4
Checking after a Fetch statement in a loop