CLOSE DATABASES CLOSE ALL CLEAR ALL RELEASE ALL CLEAR m_prom_dir = 'c:\fmsrun\prompt\' SET STEP ON ************************************************************************ * JJ - Eligibility Project * Put code to delete/pack WorkList and WorkList_Detail tables here? ************************************************************************ IF !USED('WorkList') USE (m_prom_dir) + 'WORKLIST' EXCLUSIVE IN 0 ENDIF IF !USED('WorkList_Detail') USE (m_prom_dir) + 'WORKLIST_DETAIL' EXCLUSIVE IN 0 ENDIF SELECT WorkList DO WHILE (WorkList.TransDt < (DATETIME() -90)) AND WorkList.Archive = .T. SELECT WorkList_Detail DELETE FOR WorkList_Detail.TransID = WorkList.TransID SELECT WorkList DELETE SKIP ENDIF SELECT WorkList_Detail PACK USE IN WORKLIST_DETAIL SELECT WorkList PACK USE IN WORKLIST ************************************************************************