added LSL2 stored procedures
This commit is contained in:
21
LSL2/STPROC/TEST_EXPORT_IR.txt
Normal file
21
LSL2/STPROC/TEST_EXPORT_IR.txt
Normal file
@ -0,0 +1,21 @@
|
||||
COMPILE ROUTINE TEST_EXPORT_IR(Dummy)
|
||||
ROWDEF(CHARSTR)
|
||||
|
||||
DECLARE SUBROUTINE Send_Dyn,
|
||||
DECLARE SUBROUTINE ErrMsg,
|
||||
DECLARE FUNCTION Get_Status, Export_IR
|
||||
|
||||
debug
|
||||
|
||||
*ShipNo = 81647
|
||||
ShipNo = 91240
|
||||
|
||||
a = Export_IR(ShipNo)
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Bail:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
Reference in New Issue
Block a user