Upload pdf file from frontend to unix server

Question

Hi all,
I want to upload a file from frontend to unix server.
The following coding transfers the file to the unix server. But the file is corrupted.
Any ideas whats wrong?
TYPES: BEGIN OF t_data_tab,
         line TYPE x LENGTH 256,
       END OF t_data_tab.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    CHANGING
      file_table = lt_filetable
      rc         = lv_rc.
  READ TABLE lt_filetable INTO p_file INDEX 1.
  lv_filename = p_file.
  CALL METHOD cl_gui_frontend_services=>gui_upload
    EXPORTING
      filename = lv_filename
      filetype = 'BIN'
    CHANGING
      data_tab = lt_data_tab
    EXCEPTIONS
      OTHERS   = 4.
  OPEN DATASET p_unix FOR OUTPUT IN BINARY MODE.
  IF sy-subrc NE 0.
    EXIT.
  ELSE.
    LOOP AT lt_data_tab INTO ls_data_tab.
      TRANSFER ls_data_tab TO p_unix.
      IF sy-subrc NE 0.
        CONTINUE.
      ENDIF.
    ENDLOOP.
    CLOSE DATASET p_unix.
  ENDIF.
regards

Answer 1

Found solution by myself.
Upload
REPORT  z_upload_to_unix.
TYPES: ESP1_BOOLEAN LIKE BAPISTDTYP-BOOLEAN.
DATA: i_ftfront TYPE string,
      i_ftappl LIKE  rcgfiletr-ftappl,
      i_flg_overwrite TYPE  esp1_boolean,
      l_flg_open_error TYPE  esp1_boolean,
      l_os_message TYPE  c.
i_ftfront = '<frontendpath>\test.pdf'.
i_ftappl = '<unixpath>/test.pdf'.
CALL FUNCTION 'C13Z_FILE_UPLOAD_BINARY'
  EXPORTING
    i_file_front_end   = i_ftfront
    i_file_appl        = i_ftappl
    i_file_overwrite   = i_flg_overwrite
  IMPORTING
    e_flg_open_error   = l_flg_open_error
    e_os_message       = l_os_message
  EXCEPTIONS
    fe_file_not_exists = 1
    fe_file_read_error = 2
    ap_no_authority    = 3
    ap_file_open_error = 4
    ap_file_exists     = 5
    OTHERS             = 6.
DOWNLOAD:
REPORT  z_download_from_unix.
TYPES: ESP1_BOOLEAN LIKE BAPISTDTYP-BOOLEAN.
DATA: front TYPE string,
      i_file_appl LIKE rcgfiletr-ftappl,
      i_file_overwrite TYPE  esp1_boolean,
      e_flg_open_error TYPE  esp1_boolean,
      e_os_message TYPE  c.
i_file_appl = '<unixpath>/test.pdf'.
front = '<frontendpath>\test.pdf'.
CALL FUNCTION 'C13Z_FILE_DOWNLOAD_BINARY'
  EXPORTING
    i_file_front_end    = front
    i_file_appl         = i_file_appl
    i_file_overwrite    = i_file_overwrite
  IMPORTING
    e_flg_open_error    = e_flg_open_error
    e_os_message        = e_os_message
  EXCEPTIONS
    fe_file_open_error  = 1
    fe_file_exists      = 2
    fe_file_write_error = 3
    ap_no_authority     = 4
    ap_file_open_error  = 5
    ap_file_empty       = 6
    OTHERS              = 7.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.