added LSL2 stored procedures

LSL2/STPROC/FIX_MAST_SCHED.txt

@@ -0,0 +1,70 @@
+COMPILE ROUTINE FIX_MAST_SCHED(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, obj_WO_Log, Set_Status, obj_WO_Step, RList, obj_WO_Mat
+DECLARE SUBROUTINE ErrMsg
+DECLARE FUNCTION Get_Status, Set_Printer, obj_WO_Mat
+
+
+EQU Dates$     to 1
+EQU Month$     to 2
+EQU MaxReacts$ to 3
+EQU Day1$      to 4
+EQU Day2$      to 5
+EQU Day3$      to 6
+EQU Day4$      to 7
+EQU Day5$      to 8
+EQU Day6$      to 9
+EQU Day7$      to 10
+EQU Day8$      to 11
+EQU Day9$      to 12
+EQU Day10$     to 13
+EQU Day11$     to 14
+EQU Day12$     to 15
+EQU Day13$     to 16
+EQU Day14$     to 17
+EQU Day15$     to 18
+EQU Day16$     to 19
+EQU Day17$     to 20
+EQU Day18$     to 21
+EQU Day19$     to 22
+EQU Day20$     to 23
+EQU Day21$     to 24
+EQU Day22$     to 25
+EQU Day23$     to 26
+EQU Day24$     to 27
+EQU Day25$     to 28
+EQU Day26$     to 29
+EQU Day27$     to 30
+EQU Day28$     to 31
+EQU Day29$     to 32
+EQU Day30$     to 33
+EQU Day31$     to 34
+
+
+OPEN 'CONFIG' TO FuckingMess THEN
+	READ OrgRec FROM FuckingMess,'WO_MAST_SCHED' THEN
+		
+		BadSchedData = OrgRec<4>
+		GoodSched = FIELD(OrgRec,@FM,1,3)
+		GoodSchedData = ''
+		FOR Day = 1 TO 31
+			GoodSchedData<Day> = FIELD(BadSchedData,@VM,1,74)
+			BadSchedData[1,COL2()] = ''
+			
+		NEXT DAY
+		GoodRec = GoodSched:@FM:GoodSchedData
+		
+		debug
+		
+		WRITE GoodRec ON FuckingMess,'WO_MAST_SCHED' THEN NULL
+	END
+END
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END