56 lines
937 B
Plaintext
56 lines
937 B
Plaintext
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
|