Бывают случаи когда необходимо заблокировать программу на выполнение, чтобы пользователи не могли одновременно с ней работать, один из самых простых способов сделать это воспользоваться системой блокировок, а конкретно функцией ENQUEUE_ESINDX.
…
|
1 2 3 4 5 6 7 8 9 10 11 |
START-OF-SELECTION. DATA: repid TYPE INDX_SRTFD. repid = sy-repid. CALL FUNCTION 'ENQUEUE_ESINDX' EXPORTING relid = 'ZZ' srtfd = repid srtf2 = 0. WAIT UP TO 10 SECONDS. WRITE 'Программа запущена'. |