DO FOR updOrder-line TRANSACTION:
FIND updOrder-line WHERE ROWID(updOrder-line) = ROWID(order-line) EXCLUSIVE-LOCK NO-ERROR.
updOrder-line.qty = updOrder-line.qty + 5.
END.
DO FOR updItem TRANSACTION:
FIND updITEM WHERE updITEM.item-num = order-line.item-num EXCLUSIVE-LOCK NO-ERROR.
updITEM.allocated = updITEM.allocated - 5.
END.
FIND updOrder-line WHERE ROWID(updOrder-line) = ROWID(order-line) EXCLUSIVE-LOCK NO-ERROR.
updOrder-line.qty = updOrder-line.qty + 5.
END.
DO FOR updItem TRANSACTION:
FIND updITEM WHERE updITEM.item-num = order-line.item-num EXCLUSIVE-LOCK NO-ERROR.
updITEM.allocated = updITEM.allocated - 5.
END.