26 lines
396 B
Plaintext
26 lines
396 B
Plaintext
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
|