Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 8507

Re: How to read a file content from portal

$
0
0

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


Viewing all articles
Browse latest Browse all 8507

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>