23 lines
367 B
Plaintext
23 lines
367 B
Plaintext
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
|