added LSL2 stored procedures

LSL2/STPROC/MOVE_RDS_LAYER.txt

@@ -0,0 +1,43 @@
+COMPILE ROUTINE MOVE_RDS_LAYER(Dummy)
+ROWDEF (CHARSTR)
+
+DECLARE SUBROUTINE SEND_INFO, SEND_DYN, Utility, msg
+
+$INSERT RDS_LAYER_EQUATES
+debug
+
+OPEN  'BACK_RDS_LAYER' TO FileIn ELSE
+	GOTO Bail
+END
+
+OPEN 'RDS_LAYER' TO RDSLayer ELSE
+	GOTO Bail
+END
+
+
+SELECT FileIn
+
+RecCnt = 0
+Done = 0
+LOOP
+	ReadNext LayerKey ELSE Done = 1
+UNTIL Done
+	READ LayerRec FROM FileIn,LayerKey THEN
+		WRITE LayerRec ON RDSLayer,LayerKey THEN
+			RecCnt += 1
+			Send_Info(RecCnt)
+			
+		END
+	END
+
+REPEAT
+
+
+
+*UNLOCK All
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END