Tabla con disposiciones de visualización de ALVs

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_disvar.

  CLEAR   it_matchcode.
  REFRESH it_matchcode.
  vg_repid = sy-repid.
  vg_uname = sy-uname.

  SELECT variant text
            INTO TABLE it_matchcode
            FROM ltdxt
            WHERE report  = vg_repid AND
                  ( username = vg_uname OR username = space ).

  PERFORM mostrar_matchcode TABLES it_matchcode
                            USING  'VARIANT'
                                   'P_DISVAR'
                                   'Disposición'.

FORM mostrar_matchcode TABLES i_tabla
                       USING  dl_retfield  TYPE dfies-fieldname
                              dl_nom_campo TYPE help_info-dynprofld
                              dl_title     TYPE c.

  DATA: BEGIN OF i_return_tab OCCURS 0.
          INCLUDE STRUCTURE ddshretval.
  DATA: END OF i_return_tab.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = dl_retfield
      dynprofield     = dl_nom_campo
      window_title    = dl_title
      value_org       = 'S'
      multiple_choice = ' '
    TABLES
      value_tab       = i_tabla
      return_tab      = i_return_tab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

* Se carga el valor selecionado en el campo de pantalla
  IF sy-subrc EQ 0.
    READ TABLE i_return_tab INDEX 1.
    MOVE i_return_tab-fieldval TO p_disvar.
  ENDIF.

ENDFORM. " mostrar_matchcode