[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: How to catch this error?

[James Palmer]

Your catch is not in the correct block for the error. This works: DEFINE TEMP-TABLE ttList NO-UNDO FIELD tDate AS DATE FIELD tSeq AS INTEGER FIELD tText AS CHARACTER INDEX tabix IS PRIMARY tDate tSeq. DEFINE VARIABLE lvMessage AS CHARACTER NO-UNDO. DEFINE STREAM strFile. /************************************/ CREATE ttList. ASSIGN ttList.tDate = TODAY ttList.tSeq = 1 ttList.tText = "A". CREATE ttList. ASSIGN ttList.tDate = TODAY ttList.tSeq = 2 ttList.tText = "B". CREATE ttList. ASSIGN ttList.tDate = TODAY ttList.tSeq = 3 ttList.tText = "C". /************************************/ MAINBLOCK: DO ON ERROR UNDO, LEAVE: ASSIGN lvMessage = "". FOR EACH ttList NO-LOCK BREAK BY ttList.tDate BY ttList.tSeq: IF FIRST-OF(ttList.tDate) THEN DO: OUTPUT STREAM strFile TO VALUE( SUBSTITUTE("c:\tempr\&1.txt", ttList.tSeq) ). END. PUT STREAM strFile UNFORMATTED ttList.tText SKIP. IF LAST-OF(ttList.tDate) THEN DO: OUTPUT STREAM strFile CLOSE. END. CATCH lvError AS Progress.Lang.Error: ASSIGN lvMessage = lvError:GetMessage(1). END CATCH. END. END. /* MAINBLOCK */ MESSAGE lvMessage VIEW-AS ALERT-BOX INFO BUTTONS OK.

Continue reading...