25 lines
372 B
Plaintext
25 lines
372 B
Plaintext
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
|
|
|