15 lines
228 B
Plaintext
15 lines
228 B
Plaintext
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
|