Excel download problem :--- Header data duplicating in unexpected columns

Question

Guys, 
   I   am  able  to  download  the  data onto  Excel  with   Header  data  but  the Header data duplicating in unexpected  columns RHS  upto  all  the  line item columns  below....Below  is  partial   excerpt... 
Please help....
DATA:
       BEGIN OF excel_wa,
            posnr               TYPE  vbap-posnr,           "Line Item
            matnr               TYPE  vbap-matnr,           "Mat#
            pmatn               TYPE  vbap-pmatn,           "Pric Mat
            zansicat            TYPE  zmarall-zansicat,     "AnsiCat#
            zansigrd            TYPE  zmarall-zansigrd,     "Grade
            zcurrvaltnarea      TYPE  zco002-zcurrvaltnarea,"Val Area
            zcurrcstusd         TYPE  zco002-zcurrcstusd,   "Cost$
            zzbrndnm            TYPE  mara-zzbrndnm,        "Brand
            zqedscgrp           TYPE  zglbprc-zqedscgrp, "QE Disc Grp
            mstav               TYPE  mara-mstav,        "Status
            prodh               TYPE  vbap-prodh,        "Prod Heir
            kwmeng              TYPE  vbap-kwmeng,       "Qty
            lprc                TYPE  konv-kbetr,  "List Price ZBP1
            sprc                TYPE  konv-kbetr,  "Std Pric ZNAA,ZNAX
            netpr               TYPE  vbap-netpr,  "Quot price
            mrgn                TYPE  konv-kbetr,  "margin%
       END   OF excel_wa,
       BEGIN OF sema_wa,
        posnr            LIKE ws-xxlt VALUE 'STRDFT',
        matnr            LIKE ws-xxlt VALUE 'STRDFT',
        pmatn            LIKE ws-xxlt VALUE 'STRDFT',
        zansicat         LIKE ws-xxlt VALUE 'STRDFT',
        zansigrd         LIKE ws-xxlt VALUE 'STRDFT',
        zcurrvaltnarea   LIKE ws-xxlt VALUE 'STRDFT',
        zcurrcstusd      LIKE ws-xxlt VALUE 'STRDFT',
        zzbrndnm         LIKE ws-xxlt VALUE 'STRDFT',
        zqedscgrp        LIKE ws-xxlt VALUE 'STRDFT',
        mstav            LIKE ws-xxlt VALUE 'STRDFT',
        prodh            LIKE ws-xxlt VALUE 'STRDFT',
        kwmeng           LIKE ws-xxlt VALUE 'N00ADD',
        lprc             LIKE ws-xxlt VALUE 'N02ADD',
        sprc             LIKE ws-xxlt VALUE 'N03ADD',
        netpr            LIKE ws-xxlt VALUE 'N02ADD',
        mrgn             LIKE ws-xxlt VALUE 'N00ADD',
      END OF sema_wa,
      BEGIN OF clhd_wa,
        posnr            LIKE ws-xxlt VALUE 'LineItem#',
        matnr            LIKE ws-xxlt VALUE 'Mat#',
        pmatn            LIKE ws-xxlt VALUE 'VC Mat#',
        zansicat         LIKE ws-xxlt VALUE 'AnsiCat',
        zansigrd         LIKE ws-xxlt VALUE 'Grade',
        zcurrvaltnarea   LIKE ws-xxlt VALUE 'ValnArea',
        zcurrcstusd      LIKE ws-xxlt VALUE 'Currency',
        zzbrndnm         LIKE ws-xxlt VALUE 'Brand',
        zqedscgrp        LIKE ws-xxlt VALUE 'QE disc',
        mstav            LIKE ws-xxlt VALUE 'Status',
        prodh            LIKE ws-xxlt VALUE 'Prod Heir',
        kwmeng           LIKE ws-xxlt VALUE 'Qty',
        lprc             LIKE ws-xxlt VALUE 'List Pric',
        sprc             LIKE ws-xxlt VALUE 'St.Disc',
        netpr            LIKE ws-xxlt VALUE 'Quote Price',
        mrgn             LIKE ws-xxlt VALUE 'Margin%',
     END OF clhd_wa,
     BEGIN OF hdtxt1_wa,
        vbeln      LIKE ws-xxlt VALUE 'Quotation#',
        kunnr      LIKE ws-xxlt VALUE 'Quote Date',
        kvgr3      LIKE ws-xxlt VALUE 'Rep Date',
        pltyp      LIKE ws-xxlt VALUE 'Pric List Typ & Currency',
        waers      LIKE ws-xxlt VALUE 'Sold To',
        knuma      LIKE ws-xxlt VALUE 'Ship To',
        datab      LIKE ws-xxlt VALUE 'Top Parent',
        datbi      LIKE ws-xxlt VALUE 'Sales Org/Sales Dist/CPA',
        note       LIKE ws-xxlt VALUE 'Net Sales',
     END OF hdtxt1_wa,
     BEGIN OF hdtxt2_wa,
        vbeln      LIKE ws-xxlt VALUE '',"Quotation#',
        kunnr      LIKE ws-xxlt VALUE '',"Quote Date',
        kvgr3      LIKE ws-xxlt VALUE '',"Rep Date',
        pltyp      LIKE ws-xxlt VALUE '',"Pric List Typ & Currency',
        waers      LIKE ws-xxlt VALUE '',"Sold To',
        knuma      LIKE ws-xxlt VALUE '',"Ship To',
        datab      LIKE ws-xxlt VALUE '',"Top Parent',
        datbi      LIKE ws-xxlt VALUE '',"Sales Org/Sales Dist/CPA',
        note       LIKE ws-xxlt VALUE '',"Net Sales',
     END OF hdtxt2_wa.
DATA:
      ivbap      LIKE  STANDARD TABLE OF ivbap_wa,
      imat       LIKE  STANDARD TABLE OF mat_wa,
      icurr      LIKE  STANDARD TABLE OF curr_wa,
      ikonv      LIKE  STANDARD TABLE OF konv_wa,
      ivbpa      LIKE  STANDARD TABLE OF ivbpa_wa,
      ikna1      LIKE  STANDARD TABLE OF kna1_wa,
      iresult    LIKE  STANDARD TABLE OF result_wa,
*Excel tables
      iexcel     LIKE  STANDARD TABLE OF excel_wa,
      isema_wa   LIKE  gxxlt_s,
      it_sema    LIKE  STANDARD TABLE OF gxxlt_s,
      ihkey_wa   LIKE  gxxlt_h,
      it_hkey    LIKE  STANDARD TABLE OF gxxlt_h,
      iotxt_wa   LIKE  gxxlt_o,
      it_otext   LIKE  STANDARD TABLE OF gxxlt_o,
      iptxt_wa   LIKE  gxxlt_p,
      it_ptext   LIKE  STANDARD TABLE OF gxxlt_p,
      ivkey_wa   LIKE  gxxlt_v,
      it_vkey    LIKE  STANDARD TABLE OF gxxlt_v.
*Field-Symbols
FIELD-SYMBOLS:
      <vbap>  LIKE   ivbap_wa,
      <vbpa>  LIKE   ivbpa_wa,
      <mat>   LIKE   mat_wa,
      <sema_wa>,
      <clhd_wa>,
      <hdtxt1_wa>,
      <hdtxt2_wa>.
*Constants
CONSTANTS:
      c_auart   TYPE  vbak-auart  VALUE  'AG', "AG = Quotn
      c_parvw1  TYPE  vbpa-parvw  VALUE  'AG',
      c_parvw2  TYPE  vbpa-parvw  VALUE  'WE',
      c_parvw3  TYPE  vbpa-parvw  VALUE  'ZT',
      c_kappl   TYPE  konv-kappl  VALUE  'V',
      c_kschl1  TYPE  konv-kschl  VALUE  'ZBP1',
      c_kschl2  TYPE  konv-kschl  VALUE  'ZNAX',
      c_kschl3  TYPE  konv-kschl  VALUE  'ZNAA',
      c_psize   TYPE  i           VALUE  65535.
*&      SELECTION-SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE  text-001.
SELECT-OPTIONS:
    s_vbeln  FOR  ws-vbeln NO INTERVALS NO-EXTENSION OBLIGATORY.
SELECTION-SCREEN END OF BLOCK a.
*&      AT SELECTION-SCREEN.
AT SELECTION-SCREEN.
  PERFORM validate_screen_entries.
START-OF-SELECTION.
  PERFORM gather_quot_data.
  PERFORM gather_mat_data.
  PERFORM gather_ansi_data.
  PERFORM gather_customer_data.
  PERFORM gather_price_data.
  PERFORM process_consolidate_data.
TOP-OF-PAGE.
  PERFORM write_header_data.
  PERFORM write_column_heading.
END-OF-SELECTION.
  SET PF-STATUS 'XLS'.
  PERFORM display_output.
AT USER-COMMAND.
  CASE sy-ucomm.
    WHEN 'XLS'.
      LOOP AT iresult INTO result_wa.
        CLEAR excel_wa.
        excel_wa-posnr       = result_wa-posnr.
        excel_wa-matnr       = result_wa-matnr.
        excel_wa-pmatn       = result_wa-pmatn.
        excel_wa-zansicat    = result_wa-zansicat.
        excel_wa-zansigrd    = result_wa-zansigrd.
        excel_wa-zcurrvaltnarea = result_wa-zcurrvaltnarea.
        excel_wa-zcurrcstusd = result_wa-zcurrcstusd.
        excel_wa-zzbrndnm    = result_wa-zzbrndnm.
        excel_wa-zqedscgrp   = result_wa-zqedscgrp.
        excel_wa-mstav       = result_wa-mstav.
        excel_wa-prodh       = result_wa-prodh.
        excel_wa-kwmeng      = result_wa-kwmeng.
        excel_wa-lprc        = result_wa-lprc.
        excel_wa-sprc        = result_wa-sprc.
        excel_wa-netpr       = result_wa-netpr.
        excel_wa-mrgn        = result_wa-mrgn.
        APPEND excel_wa TO iexcel.
      ENDLOOP.
      PERFORM set_up_xxl_structures.
      PERFORM download_xxl.
    WHEN OTHERS.
  ENDCASE.
  FREE: ivbpa, imat, ikna1, ivbap, ikonv, iresult, ws.
*&      Form  set_up_xxl_structures
      text
FORM set_up_xxl_structures.
  REFRESH: it_otext, it_sema, it_hkey, it_vkey.
  CLEAR:   result_wa, ivbpa_wa, it_otext, ws.
  MOVE  sy-repid  TO ws-title-repid.
  MOVE 'Section'  TO ws-title-reppart.
  WRITE sy-uzeit  TO ws-title-uzeit USING EDIT MASK '__:__'.
  MOVE  ws-title  TO ws-xxl-title.
  READ TABLE iresult INTO result_wa
                     WITH KEY vbeln = s_vbeln-low.
  READ  TABLE  ivbpa INTO ivbpa_wa
                     WITH KEY vbeln = s_vbeln-low
                              parvw = 'AG'.
  CONCATENATE ivbpa_wa-kunnr '/'
              ivbpa_wa-name1 INTO ws-soldto.
  CLEAR ivbpa_wa.
  READ  TABLE  ivbpa INTO ivbpa_wa
                     WITH KEY vbeln = s_vbeln-low
                              parvw = 'WE'.
  CONCATENATE ivbpa_wa-kunnr '/'
              ivbpa_wa-name1 INTO ws-shipto.
  CLEAR ivbpa_wa.
  READ  TABLE  ivbpa INTO ivbpa_wa
                     WITH KEY vbeln = s_vbeln-low
                              parvw = 'ZT'.
  IF   ivbpa_wa-kunnr EQ space.
    CLEAR ivbpa_wa.
    READ  TABLE  ivbpa INTO ivbpa_wa
                       WITH KEY vbeln = s_vbeln-low
                                parvw = 'AG'.
  ENDIF.
  CONCATENATE ivbpa_wa-kunnr '/'
              ivbpa_wa-name1 INTO ws-tparent.
  DO.
    CLEAR: isema_wa, ihkey_wa, iotxt_wa, iptxt_wa, ivkey_wa.
    ASSIGN COMPONENT sy-index OF STRUCTURE hdtxt1_wa TO <hdtxt1_wa>.
    ASSIGN COMPONENT sy-index OF STRUCTURE hdtxt2_wa TO <hdtxt2_wa>.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
    CASE <hdtxt1_wa>.
      WHEN 'Quotation#'.
        <hdtxt2_wa> = 'Quotation#'.
      WHEN 'Quote Date'.
        <hdtxt2_wa> = 'Quote Date'.
      WHEN 'Rep Date'.
        <hdtxt2_wa> = 'Rep Date'.
      WHEN 'Pric List Typ & Currency'.
        <hdtxt2_wa> = 'Pric List Typ & Currency'.
      WHEN 'Sold To'.
        <hdtxt2_wa> = 'Sold To'.
      WHEN 'Ship To'.
        <hdtxt2_wa> = 'Ship To'.
      WHEN 'Top Parent'.
        <hdtxt2_wa> = 'Top Parent'.
      WHEN 'Sales Org/Sales Dist/CPA'.
        <hdtxt2_wa> = 'Sales Org/Sales Dist/CPA'.
      WHEN 'Net Sales'.
        <hdtxt2_wa> = 'Net Sales'.
    ENDCASE.
    MOVE : 1           TO ihkey_wa-col_no,
           sy-index    TO ihkey_wa-row_no,
           <hdtxt2_wa> TO ihkey_wa-col_name.
    APPEND ihkey_wa TO it_hkey.
    CLEAR ihkey_wa.
    CASE <hdtxt1_wa>.
      WHEN 'Quotation#'.
        <hdtxt2_wa> = result_wa-vbeln.
      WHEN 'Quote Date'.
        WRITE result_wa-erdat TO ws-dat1.
        <hdtxt2_wa> = ws-dat1.
      WHEN 'Rep Date'.
        WRITE result_wa-repdt TO ws-dat2.
        <hdtxt2_wa> = ws-dat2.
      WHEN 'Pric List Typ & Currency'.
        CONCATENATE result_wa-pltyp '/'
                    result_wa-waers INTO <hdtxt2_wa>.
      WHEN 'Sold To'.
        <hdtxt2_wa> = ws-soldto.
      WHEN 'Ship To'.
        <hdtxt2_wa> = ws-shipto.
      WHEN 'Top Parent'.
        <hdtxt2_wa> = ws-tparent.
      WHEN 'Sales Org/Sales Dist/CPA'.
        CONCATENATE result_wa-vkorg  '/'
                    result_wa-bzirk  '/'
                    ivbpa_wa-kvgr3
                    INTO <hdtxt2_wa>.
      WHEN 'Net Sales'.
        <hdtxt2_wa> = result_wa-netwr.
    ENDCASE.
    MOVE : 2           TO ihkey_wa-col_no,
           sy-index    TO ihkey_wa-row_no,
           <hdtxt2_wa> TO ihkey_wa-col_name.
    APPEND ihkey_wa TO it_hkey.
  ENDDO.
  DO.
    CLEAR: isema_wa, ihkey_wa, iotxt_wa, iptxt_wa, ivkey_wa.
    ASSIGN COMPONENT sy-index OF STRUCTURE sema_wa TO <sema_wa>.
    IF sy-subrc NE 0.
      ASSIGN COMPONENT sy-index OF STRUCTURE clhd_wa TO <clhd_wa>.
      IF sy-subrc EQ 0.
        MESSAGE e193 WITH 'OFIL Structures out of synch-Contact IT'.
      ENDIF.
      EXIT.
    ENDIF.
    ASSIGN COMPONENT sy-index OF STRUCTURE clhd_wa TO <clhd_wa>.
    IF NOT <sema_wa> EQ 'NOSHOW'.
      ADD 1 TO ws-xxl-tabix.
      MOVE: ws-xxl-tabix   TO isema_wa-col_no,
            <sema_wa>(3)   TO isema_wa-col_typ,
            <sema_wa>+3(3) TO isema_wa-col_ops,
            ws-xxl-tabix   TO isema_wa-col_src.
      APPEND isema_wa TO it_sema.
      IF ws-xxl-tabix LE ws-xxl-vrtkeys.
        MOVE: ws-xxl-tabix TO ivkey_wa-col_no,
              <clhd_wa>    TO ivkey_wa-col_name.
        APPEND ivkey_wa TO it_vkey.
      ELSE.
        ADD 1 TO ws-xxl-attcols.
        MOVE: ws-xxl-attcols TO ihkey_wa-col_no,
              10             TO ihkey_wa-row_no,
              <clhd_wa>      TO ihkey_wa-col_name.
        APPEND ihkey_wa TO it_hkey.
      ENDIF.
    ENDIF.
  ENDDO.
ENDFORM.                    " set_up_xxl_structures
*&      Form  download_xxl
      text
     -->P_IHQEXCEL  text
FORM download_xxl.  "TABLES  iexcel STRUCTURE excel_wa.
  DESCRIBE TABLE iexcel LINES ws-xxl-count.
  ws-xxl-from = 1.
  ws-xxl-to = c_psize.
  DO.
    IF ws-xxl-from GT ws-xxl-count.
      EXIT.
    ENDIF.
    IF ws-xxl-to GT ws-xxl-count.
      MOVE ws-xxl-count TO ws-xxl-to.
    ENDIF.
    ADD 1 TO ws-xxl-suffix.
    MOVE ws-xxl-suffix TO: ws-xxl-name+6(2),
                           ws-xxl-title+36(2).
    CALL FUNCTION 'XXL_FULL_API'
         EXPORTING
              n_vrt_keys       = ws-xxl-vrtkeys
              n_att_cols       = ws-xxl-attcols
              n_hrz_keys       = ws-xxl-hrzkeys
              data_starting_at = ws-xxl-from
              data_ending_at   = ws-xxl-to
              filename         = ws-xxl-name
              header_1         = space
              sema_type        = 'X'
              so_title         = ws-xxl-title
         TABLES
              data             = iexcel
              hkey             = it_hkey
              online_text      = it_otext
              print_text       = it_ptext
              sema             = it_sema
              vkey             = it_vkey
         EXCEPTIONS
              data_too_big     = 1
              file_open_error  = 2
              file_write_error = 3
              inv_winsys       = 4
              inv_xxl          = 5.
    CASE sy-subrc.
      WHEN 1.
        MESSAGE e193 WITH 'dim_mismatch_data'.
      WHEN 2.
        MESSAGE e193 WITH 'file_open_error'.
      WHEN 3.
        MESSAGE e193 WITH 'file_write_error'.
      WHEN 4.
        MESSAGE e193 WITH 'inv_winsys'.
      WHEN 5.
        MESSAGE e193 WITH 'inv_xxl'.
    ENDCASE.
    ADD c_psize TO: ws-xxl-from,
                            ws-xxl-to.
  ENDDO.
ENDFORM.                    " download_xxl

Answer 1

Hello Friend,
You can use GUI_DOWNLOAD FM to get the excel header if that's the only specific requirement.
[Download Excel including header |Download Excel including header;
Hope this helps.
BR,
Suhas