<i>...</i> nRetryCnt = 0 lcOrgTrap = ON("ERROR") ON ERROR DO LocalTrap WITH ERROR(),MESSAGE(),MESSAGE(1),PROGRAM(),LINENO() ... some code ... ON ERROR &lcOrgTrap. . . . PROCEDURE LocalTrap PARAMETERS nErrNum,cErrMsg,cErrTxt,cErrProg,nErrLine IF INLIST(m.nErrNum, { list of errors where a retry normally will recover } ) THEN nRetryCnt = m.nRetryCnt + 1 IF m.nRetryCnt < 5 THEN RETRY ENDIF ENDIF IF INLIST(m.nErrNum, { list of errors I want to ignore } ) THEN RETURN ENDIF *... some error handling code.. ENDPROC>Just curious,
>*-- loopless Loop > >SET UDFPARMS TO REFERENCE > >LOCAL i as Integer >i = 0 > >DO LoopLess WITH i >? i & 10 > >i = 0 >= LoopLess( @i ) >? i && 1, expected 10 > > >*----------- >PROCEDURE LoopLess > LPARAMETER j > LOCAL llResult as Boolean > llResult = .T. > * > j = j + 1 > IF j < 10 THEN > RETRY > ENDIF > * > RETURN llResult >ENDPROC > >* EOF >