Mostrar ventana archivo

FORM obtener_ruta_abrir_archivo  CHANGING p_ls_path TYPE string
                                          p_lc_rpta TYPE c.
  DATA: li_subrc       LIKE sy-subrc,
        ltd_filetable  TYPE filetable,
        lwa_filetable  TYPE file_table,
        li_user_action TYPE i.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = 'Seleccionar archivo de texto'
      default_filename        = '*.txt'
      multiselection          = ' '
    CHANGING
      file_table              = ltd_filetable
      rc                      = li_subrc
      user_action             = li_user_action
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      OTHERS                  = 5.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    p_lc_rpta = 'F'.
  ELSE.
    IF li_user_action = 0.
      READ TABLE ltd_filetable INTO lwa_filetable INDEX 1.
      p_ls_path = lwa_filetable-filename.
      p_lc_rpta = 'T'.
    ELSE.
      MESSAGE w184 WITH 'No se selecciono un archivo'.
       p_lc_rpta = 'F'.
    ENDIF.
  ENDIF.
ENDFORM.                    " obtener_ruta_abrir_archivo