PARAMETERS tlSuccess local lnXX,lnSpot,lcWorkArea IF tlSuccess END TRANSACTION ELSE SET DELETED OFF ROLLBACK SET DELETED ON ENDIF IF EMPTY(pcRIolderror) ON ERROR ELSE ON ERROR &pcRIolderror. ENDIF FOR lnXX=1 TO occurs("*",pcRIcursors) lnSpot=atc("*",pcRIcursors,lnXX)+1 USE IN (VAL(substr(pcRIcursors,lnSpot,5))) ENDFOR IF pcOldCompat = "ON" SET COMPATIBLE ON ENDIF IF pcOldDele="OFF" SET DELETED OFF ENDIF IF pcOldExact="ON" SET EXACT ON ENDIF IF pcOldTalk="ON" SET TALK ON ENDIF do case case empty(pcOldDBC) set data to case pcOldDBC<>DBC() set data to (pcOldDBC) endcase RETURN .T.