ABAP运行临时程序

report  zmodify_program.


data:gv_report type trdir-name value 'ZDEMO99'.

data: begin of src occurs 1,
           txt(255) type c,
        end of src.

parameters p_file like rlgrap-filename.

at selection-screen on value-request for p_file.
  perform get_file_name changing p_file."调用对话框，选择文件

*Event
start-of-selection.
  perform sub_get_file.

  if src[] is not initial.
    insert report gv_report from src[].
    submit zdemo99 via selection-screen and return.
  endif.

*&---------------------------------------------------------------------*
*&      Form  get_file_name
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_FILE     text
*----------------------------------------------------------------------*
form get_file_name  changing p_file.
  call function 'WS_FILENAME_GET'
    exporting
      mask             = '*.txt.'
      mode             = 'O'
      title            = '数据上传'
    importing
      filename         = p_file
    exceptions
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      others           = 5.
endform.                    " GET_FILE_NAME

*&---------------------------------------------------------------------*
*& Form  sub_get_file
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form sub_get_file .
  data: lv_filename type string.
  lv_filename = p_file.
  call function 'GUI_UPLOAD'
    exporting
      filename = lv_filename
    tables
      data_tab = src[]
    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 '读取文件失败' type 'E'.
  endif.

endform.