38 lines
512 B
Plaintext
38 lines
512 B
Plaintext
COMPILE ROUTINE TEST_OBJ_REACT_STATE(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Part, Set_Status, ErrMsg, obj_React_State
|
|
DECLARE FUNCTION Get_Status, obj_Part
|
|
|
|
$INSERT REACT_STATE_EQUATES
|
|
|
|
|
|
Set_Status(0)
|
|
|
|
debug
|
|
|
|
ReactNo = 64
|
|
PSNo = 3377
|
|
RDSNo = 793421
|
|
UnloadDTM = '12/17/13 15:42:40'
|
|
|
|
|
|
obj_React_State('ReactRunUnload',ReactNo:@RM:PSNo:@RM:RDSNo:@RM:UnloadDTM)
|
|
|
|
|
|
|
|
IF Get_Status(errCode) THEN
|
|
ErrMsg(errCode)
|
|
END
|
|
|
|
GOTO Bail
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
RETURN
|