47 lines
907 B
Plaintext
47 lines
907 B
Plaintext
COMPILE ROUTINE TEST_OBJ_REACT_STATUS(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_React_Status
|
|
DECLARE FUNCTION Get_Status,obj_Order, obj_React_Status
|
|
|
|
debug
|
|
|
|
ReactNo = 99
|
|
WONo = '100000'
|
|
|
|
Set_Status(0)
|
|
|
|
IdleTime = obj_React_Status('CassLoad',ReactNo:@RM:WONo:@RM:27:@RM:'01/02/2008 05:18:00')
|
|
|
|
IF Get_Status(errCode) THEN
|
|
DEBUG
|
|
END
|
|
|
|
a = XLATE('REACT_STATUS',ReactNo,'','X')
|
|
|
|
|
|
GOTO Bail
|
|
|
|
|
|
|
|
IdleTime = obj_React_Status('CassLoad',ReactNo:@RM:WONo:@RM:28:@RM:'01/02/2008 09:34:00')
|
|
|
|
b = XLATE('REACT_STATUS',ReactNo,'','X')
|
|
|
|
obj_React_Status('CassUnload',ReactNo:@RM:WONo:@RM:27:@RM:'01/02/2008 09:38:00')
|
|
|
|
c = XLATE('REACT_STATUS',ReactNo,'','X')
|
|
|
|
obj_React_Status('CassUnload',ReactNo:@RM:WONo:@RM:28:@RM:'01/02/2008 13:52:00')
|
|
|
|
d = XLATE('REACT_STATUS',ReactNo,'','X')
|
|
|
|
|
|
GOTO Bail
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|