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<TW_USE_SIG_DTM$>,'DT')
		
		IF TWSigDTM NE '' THEN
			
			TWUseRec<TW_USE_SIG_DTM$> = TWSigDTM
		
			
			WRITE TWUseRec ON TWUseFile,TWUseID THEN
				FixCnt += 1
				Send_Dyn(RecCnt:' ':FixCnt:' ':TWUseID:' ':OCONV(TWUseRec<TW_USE_SIG_DTM$>,'DT'))
			END
		END
	END	;* End of TWUse record read
	Send_Info(RecCnt:' ':FixCnt)
REPEAT


* * * * * * *
Bail:
* * * * * * *

RETURN
