added LSL2 stored procedures

LSL2/STPROC/FIX_ANN_CONT.txt

@@ -0,0 +1,44 @@
+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:
+* * * * * * *
+
+