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

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

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

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

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

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

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

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

Он, спасибо!