COMPILE Subroutine PURGE_RDS(Void) * ROWDEF(CHARSTR) DECLARE SUBROUTINE Send_Info, Send_Dyn, obj_Tables, Set_Status DECLARE FUNCTION obj_Tables $INSERT RDS_EQUATES OPEN 'RDS' TO RdsTable ELSE DEBUG SELECT RdsTable Done = 0 RecCnt = 0 ByteTotal = 0 LOOP READNEXT RdsNo ELSE Done = 1 UNTIL Done Set_Status(0) otParms = 'RDS':@RM:RdsNo RDSRec = obj_Tables('ReadRec',otParms) ;* Reads and sets lock IF Get_Status(errCode) THEN Send_Dyn(RdsNo:' - Locked') END ELSE OrgSize = LEN(RdsRec) RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' RdsRec = '' NewSize = LEN(RdsRec) Delta = OrgSize - NewSize ByteTotal += Delta RecCnt += 1 Send_Info(RecCnt:' - ':ByteTotal) IF Delta > 0 THEN otParms = FIELDSTORE(otParms,@RM,4,0,RdsRec) obj_Tables('WriteRec',otParms) END ELSE obj_Tables('UnlockRec',otParms) END END REPEAT Send_Dyn(RecCnt:' - ':ByteTotal) * * * * * * * Bail: * * * * * * * Return