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

[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;
}