COMPILE ROUTINE TEST_OBJ_RDS_Test(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Set_Status, obj_RDS_Audit, Send_Dyn, RList, Send_Info, obj_Tables
DECLARE FUNCTION Get_Status, obj_RDS_Test, obj_Tables

$INSERT RDS_EQU

Set_Status(0)


DEBUG

a = obj_RDS_Test('ExpReadings',532931:@RM:@RM:1)

IF Get_Status(errCode) THEN
	DEBUG
END


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

RETURN