COMPILE ROUTINE TEST_OBJ_NCR(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Set_Status
DECLARE FUNCTION Get_Status, obj_NCR

$INSERT NCR_EQU

debug

NCRNo = 22735
AllQtys = obj_NCR('RejQty',NCRNo)

RDSQty1 = obj_NCR('RDSRejQty','22732':@VM:NCRNo:@RM:324276)
RDSQty2 = obj_NCR('RDSRejQty',NCRNo:@RM:324276)



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

RETURN