cDel= SET('DELETED') SET DELETED OFF LOCATE FOR DELETED() IF FOUND() * Recycle this record BLANK() RECALL() ELSE * No deleted, so create new APPEND BLANK ENDIF SET DELETED (m.cDel)I havnt tested the above code, but I know it is something like that, might need to add some more security etc.