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
