Монопольный доступ к работе с программой

artyom

Я дико извиняюсь, не то скопировал через буфер
надо DATA INDEX LIKE INDX-SRTFD.
иначе у вас должен быть дамп

Code:

DATA INDEX LIKE INDX-SRTFD.

INDEX = SY-REPID.
CALL FUNCTION 'ENQUEUE_ESINDX'
EXPORTING
RELID = 'ZZ'
SRTFD = INDEX
SRTF2 = 0
EXCEPTIONS
FOREIGN_LOCK = 1
SYSTEM_FAILURE = 2.

bella_nata

Не работает все равно:(

artyom

В отладке смотрели? Что каждый раз на выходе sy-subrc = 0?
Может вы снимаете блокировку не там, должно быть при выходе. Попробуйте совсем убрать
CALL FUNCTION 'DEQUEUE_ESINDX'
EXPORTING
RELID = 'ZZ'
SRTFD = INDEX
SRTF2 = 1.

еще попробуйте поставить точку прерывания сразу за
CALL FUNCTION 'ENQUEUE_ESINDX'
а потом запустить второй экземпляр программы. Вобщем дело скорее всего в вашей программе.

bella_nata

Всем спасибо и отдельно artyom все работает

Морской

А кто-нибудь знает что за поле srtf2
если 0 то только 1 раз
1 - сколько хочешь
Им нельзя ограничивать число запусков программы?

const

Подскажите, пожалуйста, где ФМ 'ENQUEUE_ESINDX', сохраняет информацию о пользователе вызвавшем транзакцию, как ее считать?

Он

Если его вызвать и код возврата будет отличен от нуля, то в системной информации SY-msgv1

const

Он, спасибо!

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

Монопольный доступ к работе с программой

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