COMPILE ROUTINE FIX_TW_USE(Dummy) ROWDEF(CHARSTR) DECLARE SUBROUTINE Send_Dyn,Send_Info DECLARE FUNCTION Get_Status, Set_Printer $INSERT RDS_TEST_EQUATES $INSERT TW_USE_EQUATES DEBUG OPEN 'TW_USE' TO TWUseFile ELSE DEBUG GOTO Bail END OPEN 'RDS_TEST' TO MetFile ELSE DEBUG GOTO Bail END SELECT TWUseFile RecCnt = 0 FixCnt = 0 Done = 0 LOOP READNEXT TWUseID ELSE Done = 1 UNTIL Done READ TWUseRec FROM TWUseFile,TWUseID THEN RecCnt += 1 MetNo = TWUseID[1,'*'] TWSigDTM = ICONV(TWUseRec,'DT') IF TWSigDTM NE '' THEN TWUseRec = TWSigDTM WRITE TWUseRec ON TWUseFile,TWUseID THEN FixCnt += 1 Send_Dyn(RecCnt:' ':FixCnt:' ':TWUseID:' ':OCONV(TWUseRec,'DT')) END END END ;* End of TWUse record read Send_Info(RecCnt:' ':FixCnt) REPEAT * * * * * * * Bail: * * * * * * * RETURN