added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_TW_USE.txt

@@ -0,0 +1,48 @@
+COMPILE ROUTINE TEST_obj_TW_USE(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Set_Status, obj_SAP
+DECLARE FUNCTION Get_Status, obj_TW_USE
+
+$INSERT TW_USE_EQUATES
+$INSERT RDS_TEST_EQUATES
+$INSERT REACT_RUN_EQUATES
+$INSERT WO_LOG_EQUATES
+
+debug
+
+OPEN 'TW_USE' TO TWUseTable ELSE
+	DEBUG
+	GOTO Bail
+END
+
+
+TWKey = '502117*4'
+
+READ TestRec FROM TWUseTable,TWKey THEN
+
+	OrgQty = TestRec<TW_USE_TW_QTY$>
+	
+	TestRec<TW_USE_TW_QTY$> = OrgQty + 2
+	
+	WRITE TestRec ON TWUseTable,TWKey THEN
+		READ TestRec FROM TWUseTable,TWKey THEN
+		
+			OrgQty = TestRec<TW_USE_TW_QTY$>
+			TestRec<TW_USE_TW_QTY$> = OrgQty - 2
+	
+			WRITE TestRec ON TWUseTable,TWKey THEN
+				NULL
+			END
+		END
+	END
+END
+
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+RETURN