31 lines
419 B
Plaintext
31 lines
419 B
Plaintext
COMPILE ROUTINE TEST_OBJ_Reactor_PM(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_Reactor_PM
|
|
DECLARE FUNCTION Get_Status,obj_Reactor_PM
|
|
|
|
|
|
DEBUG
|
|
|
|
ReactNo = 30
|
|
ServID = ''
|
|
|
|
Set_Status(0)
|
|
|
|
ReactPMKeys = obj_Reactor_PM('ReactServHist',ReactNo:@RM:ServID:@RM)
|
|
|
|
IF Get_Status(errCode) THEN
|
|
DEBUG
|
|
END
|
|
|
|
|
|
DEBUG
|
|
|
|
GOTO Bail
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|