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
