Rollen Upload per RFC

Code: Alles auswählen.

call function 'NAVIGATION_FILENAME_HELP' in background task
  destination 'clnt'
  exporting
    default_path_long      = '*.*'                       
    mode                   = 'O'
    with_encoding          = l_with_encoding
  importing
    selected_filename_long = filename               
  changing
    file_encoding          = l_file_encoding.
if filename = space.
  message s232(s#).
else.
  commit work.
  exit.
endif.



call function 'PRGN_UPLOAD_AGR' in background task
  destination 'clnt'
  exporting
    filename_for_agr        = filename
    filetype_for_agr        = 'ASC'
    file_encoding           = l_file_encoding
  importing
    number_of_agrs          = number_of_agrs
    single_selected_agr     = single_selected_agr
  exceptions
    file_open_error         = 1
    file_read_error         = 2
    invalid_type            = 3
    no_batch                = 4
    unknown_error           = 5
    not_authorized          = 6
    activity_group_enqueued = 7
    illegal_release         = 8
    no_valid_data           = 9
    action_cancelled        = 10
    others                  = 11.
case sy-subrc.
  when 0.
    if number_of_agrs > 1.
      message s390(s#) with number_of_agrs.
      commit work.
    else.
      message s391(s#).
      commit work.
    endif.
    if single_selected_agr <> space.
      agr_name_neu = single_selected_agr.
      set parameter id 'PROFILE_GENERATOR' field single_selected_agr.
    endif.
  when 1.
    message i382(s#) with filename.
  when 2.
    message i385(s#) with filename.
  when 3.
    message i386(s#).
  when 4.
    message i387(s#) with filename 'NO_BATCH'.
  when 5 or 6.
    message id sy-msgid type sy-msgty number sy-msgno
       with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  when 7.
    message i514(s#).
  when 8.
    message i388(s#).
  when 9.
    message i389(s#).
  when 10.
    message s232(s#).
endcase.