Datei Upload auf Applikationsserver

Codeschnipsel

DATA: data_tab TYPE rsanm_file_table, 
      filename             TYPE string,
      path_filename        TYPE string,
      table                TYPE STANDARD TABLE OF t_line,
      to_dir_file          TYPE string,

   TRY.
       path_filename = p_up,

       "Upload from client to application server
       cl_gui_frontend_services=>gui_upload( EXPORTING filename = path_filename
                                             CHANGING data_tab = table ).
       data_tab = table.

       "File from Path
       lcl_utilities=>get_filename_from_path( EXPORTING iv_path_filename = path_filename IMPORTING ev_filename = filename ).

       "Rename it with Filename pattern from cust table and date/time stamp
       lcl_utilities=>rename_build_to_dir_path( EXPORTING iv_filename = filename
                                                          io_cust = cust
                                                IMPORTING ev_path_filename = to_dir_file ).
 
       "Write file to application server
       cl_rsan_ut_appserv_file_writer=>appserver_file_write( EXPORTING i_filename = to_dir_file
                                                                       i_data_tab = data_tab
                                                                       i_overwrite = abap_true
                                                             IMPORTING e_lines_written = DATA(lines_written) ).

       "User has uploaded the selected file
       MESSAGE s018(zbc_dir_file) WITH sy-uname filename to_dir_file INTO DATA(msgg).
       zcl_bc_application_log=>add_sy_msg_to_bal_msg_tab( CHANGING xt_bal_msg = messages_bal_msg_tab ).

       MESSAGE s016(zbc_dir_file) WITH filename.
     CATCH zcx_bc_basic INTO DATA(cx_basic).
       RAISE EXCEPTION TYPE zcx_bc_basic
        MESSAGE e023(zbc_dir_file) WITH filename.
   ENDTRY.