COMPILE ROUTINE TEST_OBJ_ORDER(Dummy)
ROWDEF(CHARSTR)

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

Result = obj_Order('Ord_WOLog',20690)
WO1 = Result[1,@RM]
WO2 = Result[COL2()+1,@RM]
WO3 = Result[COL2()+1,@RM]
WO4 = Result[COL2()+1,@RM]
WO5 = Result[COL2()+1,@RM]


GOTO Bail

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

END