added LSL2 stored procedures

LSL2/STPROC/FIX_FISCAL_QTR.txt

@@ -0,0 +1,50 @@
+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