51 lines
862 B
Plaintext
51 lines
862 B
Plaintext
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
|