Как определить вызывающую систему в самописном экстракторе?

Yanvladimirovich

Собственно, вопрос: если пишется экстрактор, то как определить систему, из которой происходит вызов?

ROKO

Code:

*
DATA: system(10).
*
CONCATENATE sy-sysid 'CLNT' sy-mandt INTO system.

Yanvladimirovich

Я могу ошибаться, но это не та система из которой вызывают, а та, которую вызывают.

Это не так интересно :-)

RA

Если копать глубоко ,
то можно попробовать так:

поискать в EDIDC EDID4 входной IDOC (например за тек день) типа RSRQST с REQNR = I_REQUNR
и из него вытянуть систему отправитель.
хотя может есть более простое решение.

Yanvladimirovich

Идея хороша, только

I_REQUNR - это что-то типа REQU_D9COEML5HO56Q8DI3VUXNGK5L

Как его преобразовать в IDOCNO?

Кстати, есть ли какие-то стандартные ФМ для работы с IDOC, или нормально читать прямо из таблиц?

ROKO

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

Я могу ошибаться, но это не та система из которой вызывают, а та, которую вызывают.

Это не так интересно :-)

Таблицы:
ROOSGEN - Сгенерированные объекты к OLTP-источнику;
ROOSPRMSF - Управляющие параметры на источник данных.

RA

К сожалению сейчас нет системы рядом.

Да, I_REQUNR и IDOC_NO не связаны между собой.

Выберите поступившие за день( или меньше, если они обрабатываются немедленно) IDOCNO из
EDIDC
потом содержимое каждого IDOCа

Code:

 CALL FUNCTION 'IDOC_READ_COMPLETELY' 
       EXPORTING 
            document_number         = p_docnum 
       IMPORTING 
            idoc_control            = s_edidc 
       TABLES 
            int_edidd               = itab_edidd 
       EXCEPTIONS 
            document_not_exist      = 1 
            document_number_invalid = 2 
            OTHERS                  = 3.

и гдето в itab_edidd-sdata ищите исходный REQNR
ну а потом где то в edidc есть отправитель.

Если не секрет Вам это зачем? может проще через s_s_if-t_select задавать?

Yanvladimirovich

Вот такой код, в целом, работает, и работает быстро. Минус - нужно тестировать с умом из RSA3, например подставляя реальный запрос.

Code:

      r_logsys = ''.

      SELECT  *
        FROM  EDIDC
        INTO  wa_edidc
        ORDER BY DOCNUM DESCENDING.

        CALL FUNCTION 'IDOC_READ_COMPLETELY'
          EXPORTING
            document_number         = wa_edidc-DOCNUM
          TABLES
            int_edidd               = it_edidd
          EXCEPTIONS
            document_not_exist      = 1
            document_number_invalid = 2
            OTHERS                  = 3.

        READ TABLE it_edidd INDEX 1 INTO wa_edidd .

        srch_str = wa_edidd-SDATA+0(30).

        IF srch_str = I_REQUNR.
          r_logsys = wa_edidc-RCVPRN.
          EXIT.
        ENDIF.

        IF wa_edidc-CREDAT < backdate.
          EXIT.
        ENDIF.

      ENDSELECT.

      IF r_logsys = ''.
        RAISE ERROR_PASSED_TO_MESS_HANDLER.
      ENDIF.

R256

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

Собственно, вопрос: если пишется экстрактор, то как определить систему, из которой происходит вызов?

все гораздо проще, чем в описанных выше примерах

вот кусок кода:

DATA: RFCSI_EXPORT TYPE RFCSI.
CALL FUNCTION 'RFC_SYSTEM_INFO' DESTINATION 'BACK'
IMPORTING
RFCSI_EXPORT = RFCSI_EXPORT.

В RFCSI_EXPORT параметры вызывающей экстрактор системы

Как определить вызывающую систему в самописном экстракторе?

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