added LSL2 stored procedures
This commit is contained in:
21
LSL2/STPROC/TEST_OBJ_ORDER.txt
Normal file
21
LSL2/STPROC/TEST_OBJ_ORDER.txt
Normal file
@ -0,0 +1,21 @@
|
||||
COMPILE ROUTINE TEST_OBJ_ORDER(Dummy)
|
||||
ROWDEF(CHARSTR)
|
||||
|
||||
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_Order
|
||||
DECLARE FUNCTION Get_Status,obj_Order
|
||||
|
||||
Result = obj_Order('Ord_WOLog',20690)
|
||||
WO1 = Result[1,@RM]
|
||||
WO2 = Result[COL2()+1,@RM]
|
||||
WO3 = Result[COL2()+1,@RM]
|
||||
WO4 = Result[COL2()+1,@RM]
|
||||
WO5 = Result[COL2()+1,@RM]
|
||||
|
||||
|
||||
GOTO Bail
|
||||
|
||||
* * * * * * *
|
||||
Bail:
|
||||
* * * * * * *
|
||||
|
||||
END
|
Reference in New Issue
Block a user