>>llRetry = 0 >>lcFile = MyGetFileRoutine() >>DO WHILE llRetry < 3 && We don't want to loop endlessly here :-) >> TRY >> some code >> USE (lcFile) >> * more code >> llRetry = 700 >> CATCH WHEN 3 && Can not open the file >> lcFile = MyGetAlternateFileRoutine() >> llRetry = llRetry + 1 >> CATCH >> *** do the normal CATCH programming >> llRetry = 700 >> ENDTRY >>ENDDO >>>>
>>>>llRetry = .t. >>>>DO WHILE llRetry >>>> llRetry = .f. >>>> TRY >>>> some code >>>> lcFile = MyGetFileRoutine() >>>> USE (lcFile) >>>>* more code >>>> CATCH WHEN 3 && Can not open the file >>>> lcFile = MyGetAlternateFileRoutine() >>>> llRetry = .t. >>>> CATCH >>>> *** do the normal CATCH programming >>>> ENDTRY >>>>ENDDO >>>>