Crear Catalogo desde una tabla interna con la MERGE

Constants: c_t_salida     TYPE slis_tabname   VALUE 'T_SALIDA'.

* Catálogo de campos ALV
  DATA t_fieldcat TYPE slis_t_fieldcat_alv.

  DATA: l_repid    LIKE sy-repid.

  l_repid = sy-repid.

* Se carga el catálogo de campos
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name     = l_repid
      i_internal_tabname  = c_t_salida " Constante de la tabla interna
      i_inclname              = l_repid
    CHANGING
      ct_fieldcat               = t_fieldcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.

  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.