COMPILE ROUTINE TEST_OBJ_RDS2(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_RDS, Send_Dyn, Btree.Extract, ErrMsg
DECLARE FUNCTION Get_Status,obj_RDS, Send_Dyn, obj_RDS_Test, obj_RDS2

$INSERT RDS_EQU


debug
ABC = obj_RDS2('Delete',423317:@VM:423318)

debug


GOTO Bail

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

END