*&---------------------------------------------------------------------*
*& Report  ZALVE_XLS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZALVE_XLS.

*DATA it_vuelos TYPE TABLE OF spfli WITH HEADER LINE.

*DATA: it_datos TYPE STANDARD TABLE OF spfli INITIAL SIZE 0,
*      it_vuelos TYPE TABLE OF spfli WITH HEADER LINE.

TYPES: BEGIN OF ty_tab,
    campo1(300),
END OF ty_tab.
DATA: it_datos TYPE STANDARD TABLE OF ty_tab INITIAL SIZE 0,
      wa_datos TYPE ty_tab.


CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    filename                      = 'c:\vuelos.prn'
*   FILETYPE                      = 'ASC'
*   HAS_FIELD_SEPARATOR           = ' '
*   HEADER_LENGTH                 = 0
*   READ_BY_LINE                  = 'X'
*   DAT_MODE                      = ' '
*   CODEPAGE                      = ' '
*   IGNORE_CERR                   = ABAP_TRUE
*   REPLACEMENT                   = '#'
*   CHECK_BOM                     = ' '
*   VIRUS_SCAN_PROFILE            =
*   NO_AUTH_CHECK                 = ' '
* IMPORTING
*   FILELENGTH                    =
*   HEADER                        =
  tables
    data_tab                      = it_datos
 EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_READ_ERROR               = 2
   NO_BATCH                      = 3
   GUI_REFUSE_FILETRANSFER       = 4
   INVALID_TYPE                  = 5
   NO_AUTHORITY                  = 6
   UNKNOWN_ERROR                 = 7
   BAD_DATA_FORMAT               = 8
   HEADER_NOT_ALLOWED            = 9
   SEPARATOR_NOT_ALLOWED         = 10
   HEADER_TOO_LONG               = 11
   UNKNOWN_DP_ERROR              = 12
   ACCESS_DENIED                 = 13
   DP_OUT_OF_MEMORY              = 14
   DISK_FULL                     = 15
   DP_TIMEOUT                    = 16
   OTHERS                        = 17
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

LOOP AT it_datos INTO wa_datos.
  WRITE:/     sy-vline,
              wa_datos-campo1, sy-vline.
ENDLOOP.