RFC-Fuba-Aufruf mit dynamischer Schnittstelleversorgung

Code: Alles auswählen.

  data: lt_PARA type abap_func_parmbind_tab,
        lt_tmp type abap_func_parmbind_tab.
  data l_PARA  like line of lt_PARA.
  data lt_EXCP type ABAP_FUNC_EXCPBIND_TAB.
  data l_EXCP like line of lt_EXCP.


  DATA: l_equnr TYPE equnr,
        l_tidnr TYPE tidnr.
  data: l_dest type RFCDEST,
        l_func type RS38L_FNAM,
        s type char0128.

  SELECT tidnr FROM equz INTO l_tidnr UP TO 1 ROWS
  WHERE equnr = equi-equnr
  AND   datbi = ( SELECT MAX( datbi ) FROM equz
                WHERE equnr = equz-equnr ).
  ENDSELECT.
  IF sy-subrc = 0.
    IF l_tidnr IS INITIAL.
      MESSAGE i912(zu3zu3a) WITH equi-equnr.
    ELSE.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = l_tidnr
        IMPORTING
          output = l_equnr.

      l_PARA-NAME = 'I_EQUI'.
      l_PARA-KIND = ABAP_FUNC_EXPORTING.
      get reference of l_equnr into l_PARA-VALUE.
      append l_PARA to lt_PARA.
      l_EXCp-NAME = 'NO_EQUI'.
      l_EXCP-VALUE = 1.
      insert l_EXCP into table lt_EXCP.
      l_EXCp-NAME = 'COMMUNICATION_FAILURE'.
      l_EXCP-VALUE = 2.
      insert l_EXCP into table lt_EXCP.
      l_EXCp-NAME = 'SYSTEM_FAILURE'.
      l_EXCP-VALUE = 3.
      insert l_EXCP into table lt_EXCP.

      if sy-ucomm+1(2) = '24'.
        l_dest = 'ZU5_P24_EQUI.
        l_func = 'ZVSA_AUFRUF_EQUIANZEIGE_IE03'.
      else.
        l_dest = 'SHOW_EQUI_INFO'.
        l_func = 'Z_S2_SHOW_EQUI_INFO'.

        l_PARA-NAME = 'I_TCODE'.
        l_PARA-KIND = ABAP_FUNC_EXPORTING.
        get reference of sy-ucomm into l_PARA-VALUE.
        append l_PARA to lt_PARA.

      endif.

      CALL FUNCTION l_func
        DESTINATION l_dest
        PARAMETER-TABLE
          lt_para
        EXCEPTION-TABLE
          lt_excp.