*TMT 06/03/13 Begin Purge Centrack Table DO poserrorLOG WITH PROGRAM(), 0, "--- EOD - \Begin Purge of Centrack Table","", LINENO(1) llError = .F. IF USED('centrack') USE IN SELECT("centrack") ENDIF TRY USE \POS\DBF\centrack EXCLUSIVE *USE \POS\DBF\centrack IN 0 ALIAS centrack EXCLUSIVE CATCH IF !mAll MESSAGEBOX("Cannot pack the CENTRACK table... another REGISTER is using the CENTRACK file. Please shutdown all other registers to run Store End-of-Day.",0+16,"Info",5000) ENDIF DO centrack WITH "FrmSeod.scx","cmdExecute", .F., _reg_no, .F., .T., .F., "Cannot pack the CENTRACK table... another REGISTER is using the CENTRACK file." llError = .T. FINALLY ENDTRY IF NOT llError SELECT centrack GO TOP SCAN IF (DATE() - 180) > centrack.DATE DELETE IN centrack ENDIF ENDSCAN PACK USE IN SELECT("centrack") ENDIF *TMT 06/03/13 Begin Purge Centrack Table DO poserrorLOG WITH PROGRAM(), 0, "--- EOD - /End of Purge of Centrack Table","", LINENO(1)According to our users, they are all out except the one PC running this routine.