Upload file from Presentation to Application

Question

Hi Friends,
I  M uploading EXEL file  from presentation to application server.
but in the transaction AL11 when i double click the file path ,i can not see the EXEL data. it is appearing the dump data. that way,  i m finding  the dump data in internal table also . what can i do for uploading EXEL file to application server.
please help me.
Thanks,
Rohini

Answer 1

hai rohini
To upload excel file to AL11 Please refer to the given below code:
data : if_intern type  kcde_cells occurs 0 with header line.
  data : vf_index type i.
  data : vf_start_col type i value '1',
         vf_end_col   type i value '256'.
  field-symbols : <fs>.
* ----------- " Define Internal tables for ABAP.
data: begin of i_mat OCCURS 10,
      empc(5),
      name(12),
      Age(3),
      end of i_mat.
* ----------- " Define data variables for ABAP.
*             " Define data variables for Excel Upload.
data: p_text type natxt.
data: dataset(150) type c.:
* ----------- " Selection-Screen.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE text-001.
parameters: p_file2  type rlgrap-filename,
            p_brow2 type i,
            p_erow2 type i.
SELECTION-SCREEN END OF BLOCK B1.
* ----------- " At Selection- screen.
at selection-screen on value-request for p_file2.
  call function 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      program_name = syst-repid
    CHANGING
      file_name    = p_file2.
* ----------- " Start of ABAP SQL Commands
START-OF-SELECTION.
*  dataset = '/tmp/new.xls'.
   dataset = '/tmp/new.xls'.
  if rg1 = 'X'.
   if p_file2 is not initial and
      p_brow2 is not initial and
      p_erow2 is not initial.
call function 'KCD_EXCEL_OLE_TO_INT_CONVERT'
    EXPORTING
      filename    = p_filename
      i_begin_col = vf_start_col
      i_begin_row = p_brow2
      i_end_col   = vf_end_col
      i_end_row   = p_erow2
    TABLES
      intern      = if_intern.
  if if_intern[] is initial.
    p_text = 'No Data Uploaded'.
  else.
    sort if_intern by row col.
    loop at if_intern.
      move : if_intern-col to vf_index.
      assign component vf_index of structure p_download to <fs>.
      move : if_intern-value to <fs>.
      at end of row.
        append p_download.
        clear p_download.
      endat.
    endloop.
  endif.
delete dataset dataset.
  open dataset dataset for output in text mode encoding default.
  loop at i_mat.
    if sy-subrc eq 0.
      transfer i_mat to dataset.
    endif.
  endloop.
  close dataset dataset.