added LSL2 stored procedures
This commit is contained in:
28
LSL2/STPROC/TEST_OBJ_REACT_ITEM_HIST.txt
Normal file
28
LSL2/STPROC/TEST_OBJ_REACT_ITEM_HIST.txt
Normal file
@ -0,0 +1,28 @@
|
||||
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
|
Reference in New Issue
Block a user