************************************************ procedure RecRecycle ************************************************ local cAlias, setDel * returns with a "new" record selected, either recycled or actually new. * assumes required table is currently selected and an index tag "DEL" exists setDel= set('deleted') cAlias= alias() set deleted off if seek(.T., m.cAlias, 'DEL') and rlock() if deleted() blank recall unlock else unlock append blank endif else append blank endif if m.setDel = "ON" set deleted on endif