added LSL2 stored procedures

LSL2/STPROC/FIX_LOCATION.txt

@@ -0,0 +1,33 @@
+COMPILE ROUTINE FIX_LOCATION(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Send_Dyn,Send_Info
+DECLARE FUNCTION Get_Status, Set_Printer
+
+
+
+OPEN 'LOCATION' To File.In THEN
+
+	FOR I = 2 TO 50
+	
+		LOCATIONKEY = 'FGS*':I
+		
+		LOCREC = 'Bin ':I
+				
+		WRITE LocRec ON File.In,LocationKey THEN		
+			SEND_DYN(LOCATIONKEY:' ':LOCREC)
+		END
+					
+	NEXT I
+
+
+END
+
+
+
+IF Get_Status(errCode) THEN DEBUG
+
+
+* * * * * * *
+Bail:
+* * * * * * *