>I'm searching for information on how to simulate a RETRY from within a TRY-CATCH block. In this made-up scenerio I want to do some processing. This includes opening a file. If I can't open the file I will process using an alternative file. Something like
>TRY
> some code
> lcFile = MyGetFileRoutine()
> USE (lcFile)
> more code
>CATCH
> IF "can't open file"
> lcFile = MyGetAlternateFileRoutine()
> RETRY
> ELSE
> do the normal CATCH programming
> ENDIF
>ENDTRY
>
>I know this is illegal since you can't use RETRY within a TRY-CATCH. So I tried
>
>TRY
> some code
> lcFile = MyGetFileRoutine()
> ON ERROR DO ResetFile
> USE (lcFile)
> ON ERROR
> more code
>CATCH
> do the normal CATCH programming
>ENDTRY
>
>PROC ResetFile
> lcFile = MyGetAlternateFileRoutine()
> RETRY
>
>
>But the ON ERROR does not fire.
>
>
>I know I can re-code this particular example but.......
>
>Is there any way to incorporate RETRY capability into a TRY-CATCH????
>
>Thanks to all...........Rich
some code
TRY
lcFile = MyGetFileRoutine()
CATCH WHEN "can't open file"
lcFile = MyGetAlternateFileRoutine()
CATCH
do the normal CATCH programming
ENDTRY
USE (lcFile)
more code