added LSL2 stored procedures

LSL2/STPROC/FIX_TW_USE.txt

@@ -0,0 +1,55 @@
+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