Как принудительно создать блокировку?

[miklenew]

Пытаюсь на только что созданной таблице создать блокировку
Но что-то не получается.
Создал джобик на update.
Захожу в два сеанса. В первом ставлю точку останову на update.
Во втором удаляю эту запись.
В результате система сначало ждёт пока я проапдейчу, а только потом удаляет.
Блокировки не возникает.
Может у кого есть какие идеи, как принудительно создать блокировку.

[George Nordic]

1. Откройте транзакцию
2. select forupdate forselocked <- в 4ке новый идентификатор, не помню на память точно, как-то так.
3. Закройте транзакцию

С Уважением,
Георгий

[miklenew]

Сорри. Забыл написать.
Ax 3.0 sp4.
Oracle 10g.

[glibs]

Цитата:

Сообщение от miklenew

...
В результате система сначало ждёт пока я проапдейчу, а только потом удаляет.
Блокировки не возникает.
...

Сами себе противоречите. Это и есть блокировка.

Что вы понимаете под блокировкой? Deadlock? Deadlock — это частный случай при работе с блокировками. Обычно блокировки приводят к ожиданиям, как вы написали выше. Deadlock — это конфликт, т.е. когда ожидание ни к чему не приведет. Блокировки возникают даже если к базе подключена только одна сессия.

[miklenew]

Цитата:

Сообщение от glibs

Обычно блокировки приводят к ожиданиям, как вы написали выше. Deadlock — это конфликт, т.е. когда ожидание ни к чему не приведет.

Так вот она ждёт и сообщение о блокировке не появляется.
Может я мало ждал?
Щас попробую подольше подождать.

[George Nordic]

Хм. Ну, в общем, это и есть блокировка... Т.е. Вы хотите отследить ситуацию, при которой система скажет "погоди! сейчас над этой записью идет работа другого сеанса?".

А вот тут вопрос. Ничего необычного-то для ситемы не возникает в данный момент + возможно зависит от настроек.

Попробуй

    try
     {
         ttsBegin;
         select...
         ttsCommit;
     }
     catch
     {
       info (appl.ttslevel()); //Это просто для примера. Возможно, еще что-то в sysException лежит
       ttsAbort;
     }

С Уважением,
Георгий

[glibs]

Цитата:

Сообщение от miklenew

Так вот она ждёт и сообщение о блокировке не появляется.
Может я мало ждал?
Щас попробую подольше подождать.

Ждать не стоит. Аксапта отслеживает только deadlock-и. В состоянии обычной блокировки она может висеть сколь угодно долго. Ничего при этом она не говорит. И не скажет.

[miklenew]

Цитата:

Сообщение от George Nordic

Хм. Ну, в общем, это и есть блокировка... Т.е. Вы хотите отследить ситуацию, при которой система скажет "погоди! сейчас над этой записью идет работа другого сеанса?".

Aга, хочу вот это

Цитата:

Тупиковая ситуация. Один или несколько пользователей одновременно блокировали всю таблицу или ее часть.

[miklenew]

Цитата:

Сообщение от glibs

Ждать не стоит. Аксапта отслеживает только deadlock-и. В состоянии обычной блокировки она может висеть сколь угодно долго. Ничего при этом она не говорит. И не скажет.

Да. Сходил поел. Система ждала пока я пообедаю.
Пришёл снял с остановки.
И нормально система проапдейтила и удалила запись.
Т.е. от времени это не зависит.
Тогда вернёмся к первому сообщению "Может у кого есть какие идеи, как принудительно создать блокировку".

[Eldar9x]

Может стоит пойти от обратного... Не допускать таких ситуаций. Как в журналах например.

[miklenew]

Цитата:

Сообщение от Eldar9x

Может стоит пойти от обратного... Не допускать таких ситуаций. Как в журналах например.

Вопрос не в этом?
Просто мне казалось, что если нужно, то так можно создать тупиковую ситуацию.
Ошибался.
Считайте, что здесь сугубо теоретический интерес.

[Logger]

Цитата:

Сообщение от miklenew

Тогда вернёмся к первому сообщению "Может у кого есть какие идеи, как принудительно создать блокировку".

Если вы про deadlock - то легко.
Создаем в таблице две записи.
2 джоба.

1-й джоб:
1. ttsBegin;
2. Блокировка 1-й записи forupdate
3. breakpoint
4. Блокировка 2-й записи forupdate

2-й джоб:
1. ttsBegin;
2. Блокировка 2-й записи forupdate
3. breakpoint
4. Блокировка 1-й записи forupdate

Запускаем с одной сессии первый джоб, со второй сессии - второй.

Она оба остановятся на п.3
после этого давим F5 в обоих отладчиках и получаем deadlock

Правда исключение в аксапте может возникнуть не сразу - зависит от настроек БД

[miklenew]

Спасибо.
То что нужно.
Вот джобы. Может кому пригодяться.

static void Job1(Args _args)
{
    Table2 table;
;
    ttsbegin;
    select forupdate table
        where table.Field1 == '1';

    breakPoint;
    table.update();

    select forupdate table
        where table.Field1 == '2';

    ttscommit;
}

static void Job2(Args _args)
{
    Table2 table;
;
    ttsbegin;
    select forupdate table 
        where table.Field1 == '2';

    breakPoint;
    table.update();

    select forupdate table
        where table.Field1 == '1';

    ttscommit;
}