added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_NCR.txt

@@ -0,0 +1,23 @@
+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