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
