29 lines
439 B
Plaintext
29 lines
439 B
Plaintext
COMPILE ROUTINE TEST_obj_React_Item_Hist(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_React_Tube
|
|
DECLARE FUNCTION Get_Status,obj_Order, obj_React_Item_Hist
|
|
|
|
DEBUG
|
|
|
|
ReactNo = '24'
|
|
RINo = ''
|
|
RIType = 'W'
|
|
|
|
HistKeys = obj_React_Item_Hist('GetHistory',ReactNo:@RM:RINo:@RM:RIType)
|
|
|
|
IF Get_Status(errCode) THEN
|
|
debug
|
|
END
|
|
|
|
DEBUG
|
|
|
|
|
|
GOTO Bail
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|