Download as a CSV file (excel)

Question

hi all,
I am trying to download it as a CSV file (local and unix files), but when i get the data in excel , the issue occurs is:
F1     F2     F3                                        
OU Code     OU Name     OU Description                                        
0000010000     0000010000-PG/US/PRIM CARE                                             
0000010001     0000010001-PG/US/APOTH COMMODIT     APOTHECON COMMODITY                                        
note: in the first line iam getting as F1,F2 & F3. i dont want these to come, rest all iam getting it perfectly.
For downloading it i used the below code:
*&      Form  DOWNLOAD_FILE
      text
-->  p1        text
<--  p2        text
FORM DOWNLOAD_FILE .
**Add column headers
  clear x_out_prctr.
  x_out_prctr-prctr = 'OU Code'.
  x_out_prctr-ktext = 'OU Name'.
  x_out_prctr-ltext = 'OU Description'.
  x_out_prctr-OUTNAME = 'OU Type Name'.
  x_out_prctr-OTNAME = 'Organization Type Name'.
  x_out_prctr-POUCODE = 'Parent OU'.
  x_out_prctr-STATUS =  'Status'.
  x_out_prctr-OUOUNAME = 'OU Owner'.
  x_out_prctr-OUAUNAME = 'OU Assistant'.
  x_out_prctr-OUCUNAME = 'OU Controller'.
  x_out_prctr-OUMRUNAME = 'OU MSP Rep'.
  Insert x_out_prctr into it_out index 1.
Insert x_out_prctr into it_out1 index 1.
  clear x_out_prctr.
  IF p_local = c_x.
    perform gui_download.
  elseif p_unix = c_x.
    open dataset p_file for output in text mode encoding non-unicode
        ignoring conversion errors.
    if sy-subrc = 0.
*-For Profit Center
      loop at it_out into x_out_prctr.
        transfer x_out_prctr to p_file.
        if sy-subrc ne 0.
          write:/ 'Error writing file'(011), p_file.
          stop.
        endif.
      endloop.
    endif.
  Close dataset
    close dataset p_file.
  endif.
ENDFORM.                    " DOWNLOAD_FILE
*&      Form  GUI_DOWNLOAD
      text
-->  p1        text
<--  p2        text
FORM GUI_DOWNLOAD .
  DATA : lv_fname TYPE string.
  CLEAR lv_fname.
  lv_fname = p_file.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME                = lv_fname
      FILETYPE                = 'DBF'
    TABLES
      DATA_TAB                = it_out
    EXCEPTIONS
      FILE_WRITE_ERROR        = 1
      NO_BATCH                = 2
      GUI_REFUSE_FILETRANSFER = 3
      INVALID_TYPE            = 4
      NO_AUTHORITY            = 5
      UNKNOWN_ERROR           = 6
      HEADER_NOT_ALLOWED      = 7
      SEPARATOR_NOT_ALLOWED   = 8
      FILESIZE_NOT_ALLOWED    = 9
      HEADER_TOO_LONG         = 10
      DP_ERROR_CREATE         = 11
      DP_ERROR_SEND           = 12
      DP_ERROR_WRITE          = 13
      UNKNOWN_DP_ERROR        = 14
      ACCESS_DENIED           = 15
      DP_OUT_OF_MEMORY        = 16
      DISK_FULL               = 17
      DP_TIMEOUT              = 18
      FILE_NOT_FOUND          = 19
      DATAPROVIDER_EXCEPTION  = 20
      CONTROL_FLUSH_ERROR     = 21
      OTHERS                  = 22.
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " GUI_DOWNLOAD
could any one solve my issue ASAP?
Regards,
Shalini

Answer 1

Hi Karthik,
when i give the file type as ASC it  is not working, The column heading are getting messed up when i use this. the column heading is coming in one text line. but when i changed it to other one...everthing is working fine...but....in the downloaded file in the first line iam getting the F1 ,F2, F3 ..which i dont want it. if i delete this line my problem will be solved.
my program code is:
                 Includes                                            *
*--- BMS standard header and footer routines
INCLUDE zsrepthd.
*--- ALV Routinesg
INCLUDE zvsdi_alv_routines_ver3.
*--- Authorization Check
INCLUDE z_selection_auth_check.
                 Types Declarations                                  *
**-Profit Center
*-For CEPC table
TYPES: BEGIN OF ty_cepc,
        prctr TYPE prctr,
        datbi TYPE datbi,
       END OF ty_cepc.
*-For CEPCT table
TYPES: BEGIN OF ty_cepct,
        prctr TYPE prctr,
        datbi TYPE datbi,
        ktext TYPE ktext,
        ltext TYPE ltext,
       END OF ty_cepct.
*-Output field name
TYPES: BEGIN OF ty_output,
        prctr(10) TYPE c,
        ktext(40) TYPE c,
        ltext TYPE ltext,
        OUTNAME(13) TYPE c,
        OTNAME(30) TYPE c,
        POUCODE(13) TYPE c,
        STATUS(8) TYPE c,
        OUOUNAME(17) TYPE c,
        OUAUNAME(30) TYPE c,
        OUCUNAME(30) TYPE c,
        OUMRUNAME(17) TYPE c,
       END OF ty_output.
                 Internal Table Declarations                         *
DATA:
*--- Alv parameters
     it_out_alvp TYPE typ_alv_form_params, "for alv parameters
**--To store prctr for profit center data
     it_profit_prctr type standard table of ty_cepc,
**--To store text for profit center data
     it_text_prctr type standard table of ty_cepct.
**--To store output for profit center data
DATA: BEGIN OF it_out occurs 0,
        prctr(10) TYPE c,
        ktext(40) TYPE c,
        ltext TYPE ltext,
        OUTNAME(13) TYPE c,
        OTNAME(30) TYPE c,
        POUCODE(13) TYPE c,
        STATUS(8) TYPE c,
        OUOUNAME(17) TYPE c,
        OUAUNAME(30) TYPE c,
        OUCUNAME(30) TYPE c,
        OUMRUNAME(17) TYPE c,
       END OF it_out.
                 Work Area Declarations                              *
DATA: x_profit_prctr type ty_cepc,
      x_text_prctr type ty_cepct,
      x_out_prctr type ty_output,
                 Data Declarations                                   *
      v_prctr TYPE cepc-prctr,
      l_prctr(10) TYPE c,
      l_ktext(40) TYPE c.
                 Constants Declarations                              *
CONSTANTS: c_0  TYPE char1 VALUE '0',
           c_x  TYPE char1 VALUE 'X'.
                 Selection Screen                                    *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-fr1.
SELECT-OPTIONS:  s_prctr FOR v_prctr.
PARAMETERS:      p_date TYPE sy-datum OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-fr2.
PARAMETERS: p_local RADIOBUTTON GROUP rb1 USER-COMMAND cmd DEFAULT 'X',
            p_unix  RADIOBUTTON GROUP rb1,
            p_file TYPE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK b2.
                 Initialization                                      *
INITIALIZATION.
                 At Selection Screen                                 *
AT SELECTION-SCREEN.
                 At Selection value request                          *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  IF p_local = c_x.
*--- Getting F4 help for Costcenter file
    PERFORM get_filename CHANGING p_file.
  ELSEIF p_unix = c_x.
    MESSAGE i999(zi) WITH 'This fucntion is not available'(i01).
  ENDIF.
                 Start-of-Selection                                  *
START-OF-SELECTION.
*--- Check Authorizations for Selection-screen
  PERFORM z_selection_auth_check.
**-- Get the profit center data from tables CEPC,CEPCT
  PERFORM f_get_profitcenter.
                 End-of-Selection                                    *
END-OF-SELECTION.
**-- Download data to final internal table.
  PERFORM data_output.
  IF NOT it_out[] IS INITIAL.
*--- Fill the structure for calling the ALV form
    PERFORM initialize_alv_params.
**-- Display ALV Report
    PERFORM setup_and_display_alv_ver2
       USING
        it_out_alvp      "Parameter structure
        it_out[]         "Internal Data table(header table)
        it_out[].        "Dummy table for Hierarchical ALV!!(item table)
**-- Down load to excel.
    PERFORM download_file .
  ENDIF.
*&      Form  f_top_of_page
*This is to write the top of page
FORM top_of_page.
  DATA:  lt_list TYPE slis_t_listheader,
         lx_list TYPE slis_listheader.
*--- Title name
  CLEAR lx_list.
  lx_list-typ  = 'S'.
  lx_list-key  = 'Title name'(t13).
  lx_list-info = sy-title.
  APPEND lx_list TO lt_list.
  IF NOT lt_list IS INITIAL.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
      EXPORTING
        it_list_commentary = lt_list.
  ENDIF.
ENDFORM.                    "top_of_page
*&      Form  init_page_head
Description : This subroutine initializes the fields in table BHDGD  *
              for printing the report heading.                       *
FORM init_page_head.
  bhdgd-line1  = 'Profit Center Extraction'(h04).
  bhdgd-line2  = sy-title.
  bhdgd-lines  = sy-linsz.
  bhdgd-fcpyrt = sy-uline.
  bhdgd-inifl  = '0'.
ENDFORM.                    "init_page_head
*&      Form  initialize_alv_params
Description : Form to initialize ALV Params
FORM initialize_alv_params.
  CONSTANTS: lc_alv_grid  TYPE char1 VALUE 'G',  "Grid
             lc_u         TYPE char1 VALUE 'U'.
  MOVE 'IT_OUT' TO  it_out_alvp-tablname.   "final TABLE
  MOVE sy-repid    TO   it_out_alvp-repid.
  MOVE lc_alv_grid TO   it_out_alvp-alvtype.
  MOVE c_x         TO   it_out_alvp-bringdefaultvar.
  MOVE lc_u        TO   it_out_alvp-variantsavetype.
ENDFORM.                    " initialize_alv_params
      FORM it_out_init_events                                       *
-->this is form is to modify the events
FORM it_out_init_events
      CHANGING
       alevnts TYPE slis_t_event.
  FIELD-SYMBOLS <alevnt> TYPE slis_alv_event.
  LOOP AT alevnts ASSIGNING <alevnt>.
    CASE <alevnt>-name.
      WHEN  slis_ev_top_of_page.
        MOVE 'TOP_OF_PAGE'  TO <alevnt>-form.
    ENDCASE.
  ENDLOOP.
ENDFORM.                    "it_out_init_events
*&      Form  get_filename
Description : This subroutine is used for F4 Prompting
FORM get_filename CHANGING p_path LIKE rlgrap-filename.
  DATA : l_file  LIKE ibipparms-path, "Local file for upload/download
         l_repid LIKE syst-cprog,     "ABAP program, caller in external
                                      "procedures
         l_dynnr TYPE syst-dynnr.     "Current screen No
  l_repid = syst-cprog.
  l_dynnr = syst-dynnr.
*--- Function module used for F4 help
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name  = l_repid
      dynpro_number = l_dynnr
    IMPORTING
      file_name     = l_file.
  MOVE l_file TO p_path.
ENDFORM.                    " get_filename
*&      Form  F_GET_PROFITCENTER
*Get the profit center data from CEPC,CEPCT
FORM f_get_profitcenter.
  SELECT prctr
         datbi
         from cepc
         into table it_profit_prctr
         where prctr in s_prctr
         and   datbi >= p_date.
  IF sy-subrc = c_0.
    SORT it_profit_prctr BY prctr datbi.
  ENDIF.
  If not it_profit_prctr is initial.
    SELECT prctr
           datbi
           ktext
           ltext
           from cepct
           into table it_text_prctr
           for all entries in it_profit_prctr
           where prctr = it_profit_prctr-prctr
           and   datbi = it_profit_prctr-datbi.
    IF sy-subrc = c_0.
      SORT it_text_prctr BY prctr datbi ktext ltext.
    ENDIF.
  endif.
ENDFORM.                    " F_GET_PROFITCENTER
*&      Form  DATA_OUTPUT
      text
-->  p1        text
<--  p2        text
FORM DATA_OUTPUT .
  loop at it_profit_prctr into x_profit_prctr.
    read table it_text_prctr into x_text_prctr with key prctr =
                                            x_profit_prctr-prctr
                                                        datbi =
                                            x_profit_prctr-datbi.
    if sy-subrc = 0.
      x_out_prctr-prctr = x_text_prctr-prctr.
      concatenate x_text_prctr-prctr x_text_prctr-ktext into l_ktext
       separated by '-'.
      x_out_prctr-ktext = l_ktext.
      x_out_prctr-ltext = x_text_prctr-ltext.
      x_out_prctr-outname = 'Profit Center'.
      x_out_prctr-status = 'Active'.
    endif.
    append x_out_prctr to it_out.
  endloop.
ENDFORM.                    " DATA_OUTPUT
*&      Form  DOWNLOAD_FILE
      text
-->  p1        text
<--  p2        text
FORM DOWNLOAD_FILE .
**Add column headers
  clear x_out_prctr.
  x_out_prctr-prctr = 'OU Code'.
  x_out_prctr-ktext = 'OU Name'.
  x_out_prctr-ltext = 'OU Description'.
  x_out_prctr-OUTNAME = 'OU Type Name'.
  x_out_prctr-OTNAME = 'Organization Type Name'.
  x_out_prctr-POUCODE = 'Parent OU'.
  x_out_prctr-STATUS =  'Status'.
  x_out_prctr-OUOUNAME = 'OU Owner'.
  x_out_prctr-OUAUNAME = 'OU Assistant'.
  x_out_prctr-OUCUNAME = 'OU Controller'.
  x_out_prctr-OUMRUNAME = 'OU MSP Rep'.
  Insert x_out_prctr into it_out index 1.
Insert x_out_prctr into it_out1 index 1.
  clear x_out_prctr.
  IF p_local = c_x.
    perform gui_download.
  elseif p_unix = c_x.
    open dataset p_file for output in text mode encoding non-unicode
        ignoring conversion errors.
    if sy-subrc = 0.
*-For Profit Center
      loop at it_out into x_out_prctr.
        transfer x_out_prctr to p_file.
        if sy-subrc ne 0.
          write:/ 'Error writing file'(011), p_file.
          stop.
        endif.
      endloop.
    endif.
  Close dataset
    close dataset p_file.
  endif.
ENDFORM.                    " DOWNLOAD_FILE
*&      Form  GUI_DOWNLOAD
      text
-->  p1        text
<--  p2        text
FORM GUI_DOWNLOAD .
  DATA : lv_fname TYPE string.
  CLEAR lv_fname.
  lv_fname = p_file.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME                = lv_fname
      FILETYPE                = 'DBF'
    TABLES
      DATA_TAB                = it_out
    EXCEPTIONS
      FILE_WRITE_ERROR        = 1
      NO_BATCH                = 2
      GUI_REFUSE_FILETRANSFER = 3
      INVALID_TYPE            = 4
      NO_AUTHORITY            = 5
      UNKNOWN_ERROR           = 6
      HEADER_NOT_ALLOWED      = 7
      SEPARATOR_NOT_ALLOWED   = 8
      FILESIZE_NOT_ALLOWED    = 9
      HEADER_TOO_LONG         = 10
      DP_ERROR_CREATE         = 11
      DP_ERROR_SEND           = 12
      DP_ERROR_WRITE          = 13
      UNKNOWN_DP_ERROR        = 14
      ACCESS_DENIED           = 15
      DP_OUT_OF_MEMORY        = 16
      DISK_FULL               = 17
      DP_TIMEOUT              = 18
      FILE_NOT_FOUND          = 19
      DATAPROVIDER_EXCEPTION  = 20
      CONTROL_FLUSH_ERROR     = 21
      OTHERS                  = 22.
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " GUI_DOWNLOAD
      FORM it_out_alv_fieldcat_before                               *
-->  PT_FCAT                                                       *
-->  ALVP                                                          *
FORM it_out_alv_fieldcat_before  CHANGING
    pt_fcat TYPE slis_t_fieldcat_alv
    alvp TYPE typ_alv_form_params.
  DATA: lx_fcat TYPE slis_fieldcat_alv.
  CLEAR lx_fcat.
  lx_fcat-tabname        = 'IT_OUT'.
  lx_fcat-fieldname      = 'PRCTR'.
  lx_fcat-col_pos        = '1'.
  lx_fcat-ddictxt        = 'M'.
  lx_fcat-seltext_l      = 'OU Code'(010).
  lx_fcat-seltext_m      = 'OU Code'(010).
  lx_fcat-seltext_s      = 'OU Code'(010).
  lx_fcat-reptext_ddic   = 'OU Code'(010).
  APPEND lx_fcat TO pt_fcat.
  CLEAR lx_fcat.
  lx_fcat-tabname        = 'IT_OUT'.
  lx_fcat-fieldname      = 'KTEXT'.
  lx_fcat-col_pos        = '1'.
  lx_fcat-ddictxt        = 'M'.
  lx_fcat-seltext_l      = 'OU Name'(030).
  lx_fcat-seltext_m      = 'OU Name'(030).
  lx_fcat-seltext_s      = 'OU Name'(030).
  lx_fcat-reptext_ddic   = 'OU Name'(030).
  APPEND lx_fcat TO pt_fcat.
  CLEAR lx_fcat.
  lx_fcat-tabname        = 'IT_OUT'.
  lx_fcat-fieldname      = 'LTEXT'.
  lx_fcat-col_pos        = '1'.
  lx_fcat-ddictxt        = 'M'.
  lx_fcat-seltext_l      = 'OU Description'(040).
  lx_fcat-seltext_m      = 'OU Description'(040).
  lx_fcat-seltext_s      = 'OU Description'(040).
  lx_fcat-reptext_ddic   = 'OU Description'(040).
  APPEND lx_fcat TO pt_fcat.
  CLEAR lx_fcat.
  lx_fcat-tabname        = 'IT_OUT'.
  lx_fcat-fieldname      = 'OUTNAME'.
  lx_fcat-col_pos        = '1'.
  lx_fcat-ddictxt        = 'M'.
  lx_fcat-seltext_l      = 'OU Type Name'(013).
  lx_fcat-seltext_m      = 'OU Type Name'(013).
  lx_fcat-seltext_s      = 'OU Type Name'(013).
  lx_fcat-reptext_ddic   = 'OU Type Name'(013).
  APPEND lx_fcat TO pt_fcat.
  CLEAR lx_fcat.
  lx_fcat-tabname        = 'IT_OUT'.
  lx_fcat-fieldname      = 'OTNAME'.
  lx_fcat-col_pos        = '1'.
  lx_fcat-ddictxt        = 'M'.
  lx_fcat-seltext_l      = 'Organization Type Name'(030).
  lx_fcat-seltext_m      = 'Organization Type Name'(030).
  lx_fcat-seltext_s      = 'Organization Type Name'(030).
  lx_fcat-reptext_ddic   = 'Organization Type Name'(030).
  APPEND lx_fcat TO pt_fcat.
  CLEAR lx_fcat.
  lx_fcat-tabname        = 'IT_OUT'.
  lx_fcat-fieldname      = 'POUCODE'.
  lx_fcat-col_pos        = '1'.
  lx_fcat-ddictxt        = 'M'.
  lx_fcat-seltext_l      = 'Parent OU Code'(013).
  lx_fcat-seltext_m      = 'Parent OU Code'(013).
  lx_fcat-seltext_s      = 'Parent OU Code'(013).
  lx_fcat-reptext_ddic   = 'Parent OU Code'(013).
  APPEND lx_fcat TO pt_fcat.
  CLEAR lx_fcat.
  lx_fcat-tabname        = 'IT_OUT'.
  lx_fcat-fieldname      = 'STATUS'.
  lx_fcat-col_pos        = '1'.
  lx_fcat-ddictxt        = 'M'.
  lx_fcat-seltext_l      = 'Status'(008).
  lx_fcat-seltext_m      = 'Status'(008).
  lx_fcat-seltext_s      = 'Status'(008).
  lx_fcat-reptext_ddic   = 'Status'(008).
  APPEND lx_fcat TO pt_fcat.
  CLEAR lx_fcat.
  lx_fcat-tabname        = 'IT_OUT'.
  lx_fcat-fieldname      = 'OUOUNAME'.
  lx_fcat-col_pos        = '1'.
  lx_fcat-ddictxt        = 'M'.
  lx_fcat-seltext_l      = 'OU Owner User Name'(017).
  lx_fcat-seltext_m      = 'OU Owner User Name'(017).
  lx_fcat-seltext_s      = 'OU Owner User Name'(017).
  lx_fcat-reptext_ddic   = 'OU Owner User Name'(017).
  APPEND lx_fcat TO pt_fcat.
  CLEAR lx_fcat.
  lx_fcat-tabname        = 'IT_OUT'.
  lx_fcat-fieldname      = 'OUAUNAME'.
  lx_fcat-col_pos        = '1'.
  lx_fcat-ddictxt        = 'M'.
  lx_fcat-seltext_l      = 'OU Assistant User Name'(030).
  lx_fcat-seltext_m      = 'OU Assistant User Name'(030).
  lx_fcat-seltext_s      = 'OU Assistant User Name'(030).
  lx_fcat-reptext_ddic   = 'OU Assistant User Name'(030).
  APPEND lx_fcat TO pt_fcat.
  CLEAR lx_fcat.
  lx_fcat-tabname        = 'IT_OUT'.
  lx_fcat-fieldname      = 'OUCUNAME'.
  lx_fcat-col_pos        = '1'.
  lx_fcat-ddictxt        = 'M'.
  lx_fcat-seltext_l      = 'OU Controller User Name'(030).
  lx_fcat-seltext_m      = 'OU Controller User Name'(030).
  lx_fcat-seltext_s      = 'OU Controller User Name'(030).
  lx_fcat-reptext_ddic   = 'OU Controller User Name'(030).
  APPEND lx_fcat TO pt_fcat.
  CLEAR lx_fcat.
  lx_fcat-tabname        = 'IT_OUT'.
  lx_fcat-fieldname      = 'OUMRUNAME'.
  lx_fcat-col_pos        = '1'.
  lx_fcat-ddictxt        = 'M'.
  lx_fcat-seltext_l      = 'OU MSP Rep User Name'(017).
  lx_fcat-seltext_m      = 'OU MSP Rep User Name'(017).
  lx_fcat-seltext_s      = 'OU MSP Rep User Name'(017).
  lx_fcat-reptext_ddic   = 'OU MSP Rep User Name'(017).
  APPEND lx_fcat TO pt_fcat.
ENDFORM.                    " it_out_alv_fieldcat_before
Thanks & Regards,
Shalini