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