23 lines
281 B
Plaintext
23 lines
281 B
Plaintext
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
|
|
|