*&---------------------------------------------------------------------*
*& Include          Z13_09_I01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  EXIT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE exit INPUT.
  CASE ok_code.
    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'CANC'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  CASE ok_code.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.

    WHEN 'UPLOAD'.
      PERFORM process_upload.


    WHEN 'SAVE'.
      PERFORM process_save.



  ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  F4_FILENAME  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE f4_filename INPUT.
  DATA: lt_file_table TYPE filetable,
        lv_rc         TYPE i,
        lv_action     TYPE i.


  cl_gui_frontend_services=>file_open_dialog(
    EXPORTING
      file_filter = |xlsx (*.xlsx)\|*.xlsx\|{ cl_gui_frontend_services=>filetype_all }|
    CHANGING
      file_table  = lt_file_table
      rc          = lv_rc
      user_action = lv_action ).

  CHECK lv_action EQ 0.

  gv_filename = CONV rlgrap-filename(
                  VALUE #( lt_file_table[ 1 ]-filename OPTIONAL ) ).

ENDMODULE.