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

Может лучше с диапазонами номеров поработать, а так можно просто заблокировать по индексу ENQUEUE_ESINDX

А можно подробнее на счет этого индекса?

Запускаешь этот модуль в самом начале программы, индексом может служить название программы, проверяешь на sy-subrc, если ноль то индекс не заблокирован можешь работать дальше. После окончания работы программы вызываешь DEQUEUE_ESINDX, понятно передаешь тот же индекс, блокировка снимается.

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

то есть CALL FUNCTION 'DEQUEUE_ESINDX'
EXPORTING
srtfd = 'PRNAME'.
if sy-sybrc = 0.
и дальше продолжение программы, а как в конце?
CALL FUNCTION 'DEQUEUE_ESINDX'
importing
srtfd = 'PRNAME'?
PS не работала с функциями

что-то не работает:(

Единственное, что мне неясно (доки к ф.модулю нет, к сожалению...), как будет вести себя такая блокировка при аварийном завершении программы: удалится ли она автоматом или нет. Если нет, как отловить "пустую" блокировку?

Это зависит от значения параметра _SCOPE - см. справку по технологии блокировок.

Проверил - все работает. Более того, если выйти из программы (вообще), то блокировка снимается автоматом - ф.модуль DEQUEUE_ESINDX я не использовал.

З.Ы. Извини, Ники, твой пост не видел. Пока отвечал сам себе, один пост успел проскочить...
Спасибо за идеи и практические примеры! (это всем, не только Нику:)

некоректно однако

приведите ваш код, плс

* Global Data
INCLUDE ZAATX012_TOP.
DATA INDEX LIKE INDX-PGMID.
CALL FUNCTION 'DEQUEUE_ESINDX'
EXPORTING
RELID = 'ZZ'
SRTFD = INDEX
SRTF2 = 0
EXCEPTIONS
FOREIGN_LOCK = 1
SYSTEM_FAILURE = 2.

IF SY-SUBRC NE 0.


МESSAGE s001 WITH 'Акт приемки-передачи формируется другим пользоватем'.
ENDIF.
* PBO Module
INCLUDE ZAATX012_PBO.
* PAI Module
INCLUDE ZAATX012_PAI.
INCLUDE ZAATX012_FORM.

*&---------------------------------------------------------------------*
*& Form VIG_EXCEL
*&---------------------------------------------------------------------*

CALL FUNCTION 'DEQUEUE_ESINDX'
EXPORTING
RELID = 'ZZ'
SRTFD = INDEX
SRTF2 = 0.

Дык, вначале надо вызывать ENQUEUE_ESINDX!

А если у вас 50 человек должны ети акты вводить - а один начал ето делать и ушел в отпуск - понятно что можно выкинуть - но не в эетом дело - для решение таких задач специально было придумано нумерация.
Транзакция SNUM - создаем новый диапазон номеров

ФМ NUMBER_GET_NEXT - получение номеров - хоть 200 человек могут теперь вводит ваши документы - каждому будет выдан свой номер ...