added LSL2 stored procedures

This commit is contained in:
Infineon\StieberD
2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions

View 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