COMPILE ROUTINE TEST_OBJ_RDS(Dummy)
ROWDEF(CHARSTR)

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

$INSERT RDS_EQU

debug

obj_RDS('Delete',"684416")


GOTO Bail

Parms  = '143277':@RM	;* WO No
Parms := '1':@RM		;* WO Step
Parms := '1':@RM		;* Last Step
Parms := '':@RM			;* CassNo
Parms := '12345':@RM	;* QuoteNo
Parms := '54321'		;* Order No

TWProd = obj_RDS('Create',Parms)
TWProd = obj_RDS('Create',Parms)


IF Get_Status(errCode) THEN Print_ErrMsg(errCode)

debug


GOTO Bail

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

END