Forum Post: RE: CATCH Brain-freeze

  • Thread starter Thread starter Torben
  • Start date Start date
Status
Not open for further replies.
T

Torben

Guest
DEFINE TEMP-TABLE ttRow FIELD RowIdent AS CHARACTER INDEX ttRow1 IS UNIQUE RowIdent. DEFINE VARIABLE i AS INTEGER NO-UNDO. FOR EACH sports2000.customer NO-LOCK ON ERROR UNDO, THROW: DO transaction ON ERROR UNDO, THROW: CREATE ttRow. ASSIGN ttRow.Rowident = "1". END. END. CATCH e AS PROGRESS.Lang.SysError: MESSAGE "I got it! " SKIP(1) e:GetMessage(1) VIEW-AS ALERT-BOX. END CATCH.

Continue reading...
 
Status
Not open for further replies.
Back
Top