49 lines
765 B
Plaintext
49 lines
765 B
Plaintext
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
|