COMPILE ROUTINE TEST_OBJ_RDS_Layer(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Set_Status, obj_RDS_Layer, Send_Dyn, RList, Send_Info, obj_Tables
DECLARE FUNCTION Get_Status, obj_RDS_Layer, obj_Tables, obj_Recipe

$INSERT RDS_EQU

Set_Status(0)


OPEN 'RDS_LAYER' TO LayerFIle ELSE
	debug
	GOTO Bail
END

LSId = 'L1'
PSN = 3854

DEBUG

DataStruct = obj_Recipe('GetLimits',835:@RM:3854:@RM:"L1")



debug
Complete = obj_RDS_Layer('Complete',"778169*L1")




DEBUG

* * * * * * *
Bail:
* * * * * * *

RETURN