*&---------------------------------------------------------------------*
*& Report  ZFUPLOAD                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  zfupload.

TYPES: BEGIN OF ty_line,
        line(37) TYPE c,
       END OF ty_line.

TYPES: BEGIN OF ty_sflight,
        carrid(3)     TYPE c,
        connid(4)     TYPE c,
        fldate(8)     TYPE c,
        planetype(10) TYPE c,
        seatsmax(10)  TYPE c,
        seatsocc(10)  TYPE c,
      END OF ty_sflight.

DATA: it_file    TYPE TABLE OF ty_line,
      wa_line    LIKE LINE OF it_file,
      wa_sflight TYPE ty_sflight.

DATA: v_filename TYPE string.

PARAMETERS: p_file TYPE filename-fileextern.

v_filename = p_file.

START-OF-SELECTION.

  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                      = v_filename
      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_file
* 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.

  ULINE.
  WRITE: / '| Airline Code | Flight Connection Number | Flight date | Plane type | Maximum | Occupied |'.
  ULINE.

  LOOP AT it_file INTO wa_line.
    MOVE wa_line TO wa_sflight.

    WRITE: /1  '|',
            4  wa_sflight-carrid,
            16 '|',
            18 wa_sflight-connid,
            43 '|',
            45 wa_sflight-fldate,
            57 '|',
            59 wa_sflight-planetype,
            70 '|',
            72 wa_sflight-seatsmax,
            80 '|',
            82 wa_sflight-seatsocc,
            91 '|'.
    ULINE.

  ENDLOOP.