COMPILE ROUTINE TEST_OBJ_QUOTE(Dummy)
ROWDEF(CHARSTR)

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

QuoteNo = 2872

QuoteNos = obj_Quote('ProdSpecHistory',QuoteNo)

debug

GOTO Bail

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

END