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