COMPILE ROUTINE FIX_FISCAL_QTR(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

OPEN 'FISCAL_QTR' TO FileIn ELSE DEBUG
OPEN 'HOLD_FISCAL_QTR' TO HoldFile ELSE DEBUG

DEBUG

SELECT FileIn

Done = 0

LOOP
	READNEXT RecKey ELSE Done = 1
UNTIL Done

	IF RecKey NE '*' THEN
		READ Rec FROM FileIn,RecKey THEN
			WRITE Rec on HoldFile,RecKey THEN
				Send_Dyn(RecKey)
			END
		END
	END ELSE
		DELETE FileIn,'*' ELSE DEBUG
	END
REPEAT

SELECT HoldFile
Done = 0
LOOP
	READNEXT RecKey ELSE Done =1
UNTIL Done
	READ Rec FROM HoldFile,RecKey THEN
		WRITE Rec ON FileIn,RecKey THEN
			Send_Dyn(RecKey)
		END
	END

REPEAT


* * * * * * *
Bail:
* * * * * * *

END
