Блокировка ENQUEUE_* - не всегда срабатывает

Валерка

В программе имеем:

Цитата:

1. Устанавливаем блокировку
2. Если успешно, то выполняем код
3. Снимаем блокировку (если она была установлена в пп.1)

В реале пользователи жаловались, что код из пп.2 иногда работает параллельно (это можно было понять по кривым данным).
В конце концов вставил в программу логирование.

Цитата:

0.Пишу в лог строку "LOCK"
1. Устанавливаем блокировку
2. Если успешно, то пишу в лог "LOCK...OK" и выполняем код
3. Пишу в лог. "UNLOCK". Снимаем блокировку (если она была установлена в пп.1). Пишу в лог "UNLOCK...Ok"

Лог пишу в таблицу с записью времени и имени пользователя. Получаю такой вот лог:

Цитата:

12:58:25 Пользователь 1 LOCK
12:58:28 Пользователь 1 LOCK...Ok
12:58:30 Пользователь 2 LOCK
12:58:30 Пользователь 2 LOCK...Ok
12:58:34 Пользователь 2 UNLOCK
12:58:34 Пользователь 2 UNLOCK...Ok
12:58:34 Пользователь 1 UNLOCK
12:58:34 Пользователь 1 UNLOCK...Ok

Т.e. получается что пользователь 1 УСПЕШНО вызвал ФМ блокировки, потом пользователь 2 также вызвал ФМ блокировки УСПЕШНО, хотя пользователь 1 ещё эту блокировку не отпустил.
Если ли какие-то условия. при котором такое возможно?
В частности в данном случае в пп.2 вызываются пакетники, может при этом блокировки сбрасываются?

Кодер

Валерка: покажите код вызова модуля блокировки. Есть подозрение, что Вы указываете неправильные параметры

Валерка

Вот код вызова.

Code:

  CALL FUNCTION 'ENQUEUE_EZTZZAJSV'
       EXPORTING
            BUKRS          = wa_grid-BUKRS
            NUMZAJ         = wa_grid-NUMZAJ
       EXCEPTIONS
            FOREIGN_LOCK   = 1
            SYSTEM_FAILURE = 2
            OTHERS         = 3.

Это все параметры ФМ-а

Code:

FUNCTION ENQUEUE_EZTZZAJSV.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"       IMPORTING
*"             VALUE(MODE_ZTZ0006) TYPE  ENQMODE DEFAULT 'E'
*"             VALUE(MODE_ZTZ0007) TYPE  ENQMODE DEFAULT 'E'
*"             VALUE(MODE_ZTZ0013) TYPE  ENQMODE DEFAULT 'E'
*"             VALUE(MODE_ZTZ0014) TYPE  ENQMODE DEFAULT 'E'
*"             VALUE(MANDT) TYPE  ZTZ0006-MANDT DEFAULT SY-MANDT
*"             VALUE(BUKRS) TYPE  ZTZ0006-BUKRS OPTIONAL
*"             VALUE(NUMZAJ) TYPE  ZTZ0006-NUMZAJ OPTIONAL
*"             VALUE(X_BUKRS) DEFAULT SPACE
*"             VALUE(X_NUMZAJ) DEFAULT SPACE
*"             VALUE(_SCOPE) DEFAULT '2'
*"             VALUE(_WAIT) DEFAULT SPACE
*"             VALUE(_COLLECT) TYPE  DDENQCOLL DEFAULT ' '
*"       EXCEPTIONS
*"              FOREIGN_LOCK
*"              SYSTEM_FAILURE
*"----------------------------------------------------------------------
* Сгенерированный ФМ к объекту блокиров. EZTZZAJSV
* Не модифицируйте и не копируйте этот функциональный модуль!
* Информация по SAP-концепции блокирования есть в ABAP-справке
* по ключевому слову 'ENQUEUE'

p.s. Проверил , а не вызывается ли в пп.2 ФМ разблокировки. К сожалению - нет.

broker.chelny

В коде экраны не вызываются?

Кодер

1)

Цитата:

12:58:25 Пользователь 1 LOCK
12:58:28 Пользователь 1 LOCK...Ok

Если это в рамках одной программы - то все нормально. Тип блокировки E разрешает такое

2) Нет ли у Вас там случайно вызовов COMMIT WORK и ROLLBACK WORK? Вы вызываете блокировки с scope = 2. Блокировки наследуются модулем обновления и снимаются или по его завершению или по вызову rollback work.

Валерка

broker.chelny Вызываются пакетники, которые скорее всего заполняют экраны.
Но на экран они не выводятся.

Кодер это одна и таже программа, но запускаемая ДВУМЯ пользователями параллельно.
Вызывается со scope = 2. Я специально выложил параметры ФМ-а, чтобы были видны значения по умолчанию.
Там есть COMMIT WORK наверняка. rollback work - тоже возможен.
Но ведь rollback work не может отменить уже сделанный COMMIT, так что они, как я понимаю, не могут повлиять.

Кодер

2 Валерка:
1)

Цитата:

это одна и таже программа, но запускаемая ДВУМЯ пользователями параллельно.

Тогда что значат 2 строчки, что пользователь1 Lock?

2) Вы меня не поняли. Если выполняется программа вот так

Цитата:

Блокирование с scope=2
commit work

То блок будет снят сразу же, как выполнятся модули обновления IN UPDATE TASK, которые стартанул тот самый commit (да, вызов rollback после этого эту блокировку уже не снимет)
В случае rollback, этот блок будет снят вообще сразу

broker.chelny

Проверьте не вызываются ли у Вас неявные commit'ы

Кодер

broker.chelny: можно ссылку на доку, где сказано, что неявные коммиты влияют на lock установленный с помощью ENQUEUE* модулей?

broker.chelny

Кодер, а разве _scope = 2 не снимается при commit?

Кодер

broker.chelny : Только явный коммит

Валерка

Кодер Одна строка "LOCK" пишется в лог ДО вызова ФМ-а блокировки, вторая строка "LOCK...Ok" пишется в лог ПОСЛЕ выхода из ФМ-а блокировки. Т.е. между этими строками происходит вызов ФМ-а блокировки. Так что что эти две строки показывают, что ФМ блокировки был вызван и управление из него вернулось.

Между блокировкой и разюлокировкой COMMIT-ы у меня вызываются.

Кодер

Валерка: если у Вас есть ФМ IN UPDATE TASK, тогда, по их завершению после коммита, блокировки автоматом снимутся без DEQUEUE*. Почитайте курс BC414, чтобы лучше понять механизм работы обновлений и блокировок

Валерка

Кодер у меня таких ФМ-ов точно нет. Но я использую чужой ФМ, который внутри ещё и пакетник вызывает, так что неизвестно, что там может быть, если раскручивать это полностью.

А нет возможности указать принудительно, чтобы блокировки автоматом не снимались?

Кодер

Валерка:
1) Прочитайте курс. После это станет гораздо понятнее, как все это работает
2) вызовы пакетников ничего с вашей блокировкой сделать не могу. Пакетник живет в др. процессе.
3) странно, что у Вас нет таких фм. В этом случае возможные варианты

Цитата:

вызов ENQUEUE*
commit work

блокировка остается висеть пока:
- или снимут принудительно через DEQUEUE
- или снимут вызовом rollback work
- или завершение транзакции
4) Если использовать другие значения SCOPE, то поведение будет другое. Читать здесь

Правила форума

Блокировка ENQUEUE_* - не всегда срабатывает

Кто сейчас на конференции