[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: How to retry from within catch block

  • Thread starter Thread starter cverbiest
  • Start date Start date
Status
Not open for further replies.
C

cverbiest

Guest
Following variant compiles but it does not do what I expect either I expect try abc123 next try bc123 next try c123 next try 123 end 123 123 instead I get try abc123 next end 0 bc123 define variable lInt as integer no-undo. define variable lText as character no-undo init "abc123". tryblock: repeat while lTExt > "" on error undo, next: message "try" lText view-as alert-box. lint = integer(lText). catch err as Progress.Lang.Error : if lText > "" then do: substring(lText, 1, 1) = "". message "next" view-as alert-box. next tryblock. end. end catch. end. message "end" lInt lText view-as alert-box.

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