How to read a file content from portal

Question

Hi experts,
I have a file (xml or xlsx), which i have kept in D drive.
then using GUI_UPLOAD, i have read file content into internal table. then i am proceeding furthur.
but in real, my file will be in portal (means https:\\in.xyz.com\........\TEST.XML
in this case i can not use GUI_UPLOAD.
can any one suggest how can i achieve above. Thanks.
Regards,
Venkata Prasad

Answer 1

Hi venkata
try this code below
tables: znks_exceldb.
types: begin of wa_input,
       emp_id type string,
       name type string,
       middle type string,
       last_name type string,
       address type string,
       acc_num type string,
       mobile type string,
end of wa_input.
data: gt_intern type kcde_intern.
data:gwa_intern type kcde_intern_struc.
data gt_input type table of wa_input.
data gwa_input like line of gt_input.
data it_tab type table of znks_exceldb.
data it_wa like line of it_tab.
constants c_seprator type c value ','.
parameters ex_file type localfile obligatory.
at selection-screen on value-request for ex_file.
  call function 'F4_FILENAME'
* EXPORTING
*   PROGRAM_NAME        = SYST-CPROG
*   DYNPRO_NUMBER       = SYST-DYNNR
*   FIELD_NAME          = ' '
   importing
     file_name           = ex_file.
start-of-selection.
  perform readfile using ex_file.
  perform insert.
  perform display.
form readfile using ex_file type localfile.
  data:lv_filename type rlgrap-filename.
  data: lv_index type i.
  field-symbols: <> type any.
  lv_filename = ex_file.
  call function 'KCD_CSV_FILE_TO_INTERN_CONVERT'
    exporting
      i_filename      = lv_filename
      i_separator     = c_seprator
    tables
      e_intern        = gt_intern
    exceptions
      upload_csv      = 1
      upload_filetype = 2
      others          = 3.
  if sy-subrc <> 0.
* Implement suitable error handling here
  endif.
  loop at gt_intern into gwa_intern.
    move gwa_intern-col to lv_index.
    assign component lv_index of structure gwa_input to <>.
    move:gwa_intern-value to <>.
    at end of row.
      append gwa_input  to gt_input.
      clear gwa_input.
    endat.
  endloop.
endform.
form insert.
  loop at gt_input into gwa_input.
    it_wa-emp_id = gwa_input-emp_id.
    it_wa-name = gwa_input-name.
    it_wa-middle = gwa_input-middle.
    it_wa-last_name = gwa_input-last_name.
    it_wa-address = gwa_input-address.
    it_wa-mobile = gwa_input-mobile.
    it_wa-acc_num = gwa_input-acc_num.
    append it_wa to it_tab.
  endloop.
  insert znks_exceldb from table it_tab accepting duplicate keys.
endform.
form display.
  loop at gt_input into gwa_input.
    write :/ gwa_input-emp_id,
             gwa_input-name,
             gwa_input-middle,
             gwa_input-last_name,
             gwa_input-address,
              gwa_input-mobile,
              gwa_input-acc_num .
  endloop.
endform.
Regards
Niraj Sinha