added LSL2 stored procedures

LSL2/STPROC/FIX_WO_MAT_LOG.txt

@@ -0,0 +1,72 @@
+COMPILE ROUTINE FIX_WO_MAT_LOG(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, obj_WO_Log, Set_Status, obj_WO_Step
+DECLARE FUNCTION Get_Status, Set_Printer, obj_WO_Step
+
+$INSERT WO_MAT_EQUATES
+$INSERT WO_LOG_EQU
+
+
+OPEN 'WO_MAT_LOG' TO FileIn ELSE
+	DEBUG 
+	GOTO Bail
+END
+
+SELECT FileIn
+
+Done = 0
+DEBUG
+
+LOOP
+	READNEXT Key  ELSE Done = 1
+UNTIL Done
+	READ Rec FROM FileIn,Key  THEN
+		IF LEN(Rec) > 1000 THEN 
+			DEBUG
+			Send_Dyn(Key)
+			*DELETE FileIn,Key ELSE Null
+		END
+	END
+REPEAT
+
+
+
+
+
+GOTO Bail
+
+
+
+
+
+/*
+Equ WO_MAT_HOLD$                     To  34
+Equ WO_MAT_HOT_LOT$                  To  35
+
+Equ WO_MAT_REL_DTM$                  To  38
+Equ WO_MAT_REL_BY$                   To  39
+
+Equ WO_MAT_PROMISE_SHIP_DT$          To  61
+Equ WO_MAT_NCR_KEYS$                 To  62
+Equ WO_MAT_RX_DTM$                   To  63
+Equ WO_MAT_RX_BY$                    To  64
+*/
+
+
+
+		
+
+GOTO Bail
+
+
+
+
+IF Get_Status(errCode) THEN DEBUG
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END