COMPILE ROUTINE TEST_OBJ_VISION(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Set_Status, Send_Info, obj_Vision
DECLARE FUNCTION Get_Status,obj_Order


obj_Vision('GetInbound')

* * * * * * *
Bail:
* * * * * * *

END