загрузка файла на сервер SAP

Программа для загрузки файла на сервер SAP. аналог транзакции CG3Y, CG3Z, только с возможностью создать файл. посмотреть загруженный файл можно в транзакции AL11.

  1. PARAMETERS: p_file TYPE rlgrap-filename.
  2. PARAMETERS: sap_file(250) TYPE c.
  3.  
  4. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  5.   CALL FUNCTION 'F4_FILENAME'
  6.     EXPORTING
  7.       field_name = 'P_FILE'
  8.     IMPORTING
  9.       file_name  = p_file.
  10.  
  11. START-OF-SELECTION.
  12.  
  13.   TYPES: BEGIN OF txt_line,
  14.            data(8192) TYPE c,
  15.          END OF txt_line.
  16.  
  17.   DATA: txt_table      TYPE TABLE OF txt_line WITH HEADER LINE,
  18.         txt_tablesize  TYPE i.
  19.   DATA: s_file TYPE string.
  20.  
  21.   s_file = p_file.
  22.  
  23.   CALL FUNCTION 'GUI_UPLOAD'
  24.     EXPORTING
  25.       filename     = s_file
  26.       filetype     = 'ASC'
  27.       read_by_line = 'X'
  28.     IMPORTING
  29.       filelength   = txt_tablesize
  30.     TABLES
  31.       data_tab     = txt_table
  32.     EXCEPTIONS
  33.       OTHERS       = 11.
  34.  
  35.   OPEN DATASET sap_file FOR OUTPUT IN TEXT MODE ENCODING UTF-8.
  36.   LOOP AT txt_table .
  37.     TRANSFER txt_table TO sap_file.
  38.   ENDLOOP.
  39.   CLOSE DATASET sap_file.
kenzhemax  Кенжебаев Максим  CBS ERP