COMPILE ROUTINE TEST_OBJ_ORDER_DET(Dummy)
ROWDEF(CHARSTR)

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


OrderNo = 49822
ItemNo = 1




OrderDetRec = ''

Stuff = obj_Order_Det('CustPNDesc',OrderNo:@RM:ItemNo:@RM:OrderDetRec)

debug

GOTO Bail

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

END
