Как определить, в каком режиме работает abap-программа - в обычном или через портал?

abby

Добрый день. Вопрос в заголовке - в зависимости от режима запуска - в обычном или через портал, надо выполнять различный вывод результатов.
Как определить режим работы? Заранее спасибо.

Konstantin Anikeev

Code:

  DATA IO_COMP_API   TYPE REF TO IF_WD_COMPONENT.

  lo_wd_application = io_comp_api->get_application( ).
  lv_client_environment = lo_wd_application->get_client_environment( ).

  IF lv_client_environment NE if_wd_application=>co_client_environment-portal.
  ELSE.
  ENDIF.

Code:

  constants:
    begin of co_client_environment,
      unknown    type i value 0,
      standalone type i value 1,
      portal     type i value 2,
      sapgui     type i value 3,
      nwbc       type i value 4,
    end of co_client_environment .

abby

Спасибо, но это логика из портала, а надо из abap-а.

Вроде нашёл простое решение:

sy-calld - в обычном режиме - 'X', в портальном - пустой.

Konstantin Anikeev

опасно...

Цитата:

SY-CALLD

X if the program was started using CALL TRANSACTION, CALL DIALOG, or SUBMIT … [AND RETURN]. Space if the program was started using LEAVE TO TRANSACTION or using a transaction code from a screen. SY-CALLD is always space when a batch input session is being processed.

Я привел пример не из портала, а из WebDynpro ABAP...
Вы тогда ужэ уточните: как, чего и откуда хотите запускать...

raaleksandr

Вот как это делается в примере WebDynpro WDR_TEST_PORTAL_EVENT, касающемся навигации в портале:

Code:

method wddoinit .

  data l_current_controller type ref to if_wd_controller.
  data l_api_component       type ref to if_wd_component.
  data l_portal_manager      type ref to if_wd_portal_integration.
  data error_text            type string.

  l_current_controller ?= wd_this->wd_get_api( ).

  call method l_current_controller->get_message_manager
    receiving
      message_manager = wd_this->m_message_manager.

  l_api_component = wd_this->wd_get_api( ).
  l_portal_manager = l_api_component->get_portal_manager( ).

  if l_portal_manager->m_portal_version is initial.
    error_text = cl_wd_utilities=>get_otr_text_by_alias( alias = 'SWDP_TEST/WDR_TEST_PORTAL_MISSING_PORTAL_WARNING' ).
    wd_this->m_message_manager->report_warning( message_text = error_text ).
  endif.

endmethod.

Смысл - если приложение видит, что оно не в портале, то выводится Warning.

По сути пример похож на приведенный Konstantin Anikeev. Разве что, может, наличие этого кода в стандартном примере вас убедит, что примерно так и нужно проверять. Или мы все вас не понимаем.
На всякий случай - у меня базис/абап 7.01 SP6

Boozila

..как вариант - FM SYSTEM_CALLSTACK - получить системный стек вызовов в таблицу, а потом - посмотреть есть ли в таблице какая-нибудь характерная для портального варианта вызова запись (посмотрите в отладчике - что там характерного - '%_RFC_START' или 'REMOTE_FUNCTION_CALL' какой-нибудь).

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

Как определить, в каком режиме работает abap-программа - в обычном или через портал?

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