Проверка процесса, вызвавшего ФМ

Copperhead

Добрый день.

Коллеги, подскажите, как быть.
Нужно:

В программе ПР1 вызывается некий ФМ1, который производит ВРЕМЕННОЕ изменение настроек. В этом ФМ1 вызывается ФМ2 STARTING NEW TASK. Необходимо в ФМ2 отслеживать состояние процесса программы ПР1 и по окончанию оной, либо, в случае дампа - вернуть настройки назад.

Как отследить состояние процесса программы ПР1 из ФМ2 запущенного IN NEW TASK?

Rokhay

Используйте параметры CALLING (имя метода) и PERFORMING (имя подпрограммы) при вызове функции.
Подробности есть во встроенной справке.

Copperhead

Как это поможет в случае выпадения основной программы в дамп?

Версия ядра 4.6с - если это поможет.

Besa

Copperhead написал(а):

Как это поможет в случае выпадения основной программы в дамп?

Версия ядра 4.6с - если это поможет.

По-моему немного странная задача.

Как вариант, через объекты блокировки не пойдет?

Copperhead

<em>Besa</em> написал(а):

Как вариант, через объекты блокировки не пойдет?

ммм... ...надо подумать...

Но вопрос остается - можно ли отследить статус процесса-"предка"?

__Gennady

Согласен, задача странная. Но решение есть, например такое:

Code:

* получить process id
  CALL FUNCTION 'TH_GET_OWN_WP_NO'
    IMPORTING
      subrc    = subrc
      wp_no    = ls_wpinfo-wp_no
      wp_pid   = ls_wpinfo-wp_pid
      wp_index = ls_wpinfo-wp_index
    EXCEPTIONS
      OTHERS   = 1.

Code:

*-- ожидание завершения предыдущего процесса
  WHILE done IS INITIAL.
    REFRESH wplist.
    CALL FUNCTION 'TH_WPINFO'
      TABLES
        wplist     = wplist
      EXCEPTIONS
        send_error = 1
        OTHERS     = 2.
    READ TABLE wplist WITH KEY wp_pid   = ls_wpinfo-wp_pid
                                 wp_mandt = sy-mandt.
    IF wplist-wp_istatus = 2 OR sy-subrc <> 0.
      ls_wpinfo-wp_pid = sy-subrc.
      done = 'X'.                   "процесс завершен
    ENDIF.
  ENDWHILE.

Copperhead

спасибо. Сейчас попробуем

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

Проверка процесса, вызвавшего ФМ

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