COMPILE ROUTINE FIX_ANN_CONT(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
DECLARE FUNCTION Get_Status, Set_Printer

$INSERT OIPRINT_EQUATES
$INSERT ANNUAL_CONTRACTS_EQU


DEBUG

OPEN 'ANNUAL_CONTRACTS' To FileIn THEN
	Select FileIn

	Done = 0
	LOOP
		READNEXT AC_ID ELSE Done = 1
	UNTIL Done
		READ ACRec FROM FileIn,AC_ID THEN
			LayerSets = ACRec<ANNUAL_CONTRACTS_LAYER_SET$>
			IF LayerSets NE '' THEN 
				SWAP '1' WITH 'L1' IN LayerSets
				ACRec<ANNUAL_CONTRACTS_LAYER_SET$> = LayerSets
				WRITE ACRec ON FileIn,AC_ID THEN
					Send_Dyn(LayerSets)
				END
			END
		END
	REPEAT


END



IF Get_Status(errCode) THEN DEBUG


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


