Duplicate enties getting attached in the email excel

Question

HI,
  When am trying to send the details in the excel duplicate entries are getting attached in the excel though the internal table has the correc value.The list is displaying the contents such as 1-255 are correct entries and 256-511 are the duplicate entries.
Instead of attaching in the excel if am displaying in the contents of email the details are getting displayed correctly.Please help to correct this duplicate entries in the excel.Code is as follows
TABLES: edidc,somlreci1.
TYPE-POOLS: slis,sscr.
TYPES: BEGIN OF gt_edidc,
       docnum TYPE edidc-docnum,
       status TYPE edidc-status,
       credat TYPE edidc-credat,
       idoctp TYPE edidc-idoctp,
       mestyp TYPE edidc-mestyp,
       rcvprn TYPE edidc-rcvprn,
       END OF gt_edidc.
DATA:gi_edidc       TYPE  STANDARD TABLE OF gt_edidc.
DATA:gw_edidc      TYPE gt_edidc.
SELECTION-SCREEN:BEGIN OF BLOCK b01 WITH FRAME TITLE text-001.
SELECT-OPTIONS:s_credat FOR sy-datum .
SELECT-OPTIONS: s_mailid FOR somlreci1-receiver OBLIGATORY
                  NO INTERVALS.
SELECTION-SCREEN:END OF BLOCK b01.
INITIALIZATION.
  s_credat-low = ' '.
  s_credat-high = sy-datum - 2.
  APPEND s_credat.
start-of-selection.
SELECT docnum status idoctp mestyp rcvprn FROM edidc INTO CORRESPONDING
  FIELDS OF TABLE gi_edidc
     WHERE credat IN s_credat AND ( status EQ 64 OR status EQ 30 ).
IF no idoc selected for the given idoc date give the error message.
  IF sy-subrc <> 0.
    MESSAGE e000 WITH 'No idoc selected for the given input'.
  ENDIF.
DATA: lv_objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
DATA: lv_objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE.
DATA: lv_objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: lv_objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: lv_reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE.
DATA: lv_doc_chng LIKE sodocchgi1.
DATA: lv_tab_lines LIKE sy-tabix.
data: lc_dsn_totals TYPE string.
DATA: gv_date_mmdd(10) TYPE c.
DATA: gv_message(50) TYPE c.
lv_doc_chng-obj_descr = 'IDoc Error Status'.
    lv_objtxt = 'Please Find the Attached IDOC Error List'.
    APPEND lv_objtxt.
    lv_objtxt = 'Have a good day'.
    APPEND lv_objtxt.
Mail Contents
  DESCRIBE TABLE lv_objtxt LINES lv_tab_lines.
  READ TABLE lv_objtxt INDEX lv_tab_lines.
*attaching the data excel sheet to be sent as the email.
CONCATENATE 'IDOCNUMBER'  'STATUS'  'BASIC TYPE'  'MESSAGE TYPE' 'PARTNER'
cl_abap_char_utilities=>newline INTO lv_objbin-line separated by
     cl_abap_char_utilities=>horizontal_tab.
     append lv_objbin.
  LOOP AT gi_edidc INTO gw_edidc.
    CONCATENATE gw_edidc-docnum gw_edidc-status gw_edidc-idoctp
                  gw_edidc-mestyp gw_edidc-rcvprn
                  cl_abap_char_utilities=>newline INTO lv_objbin-line
     separated by  cl_abap_char_utilities=>horizontal_tab.
    APPEND lv_objbin.
  ENDLOOP.
  APPEND INITIAL LINE TO lv_objbin.
lv_doc_chng-doc_size = ( lv_tab_lines - 1 ) * 255 + STRLEN( lv_objtxt ).
  CLEAR lv_objpack-transf_bin.
*OBJPACK-TRANSF_BIN = 'X'.
  lv_objpack-head_start = 1.
  lv_objpack-head_num = 0.
  lv_objpack-body_start = 1.
  lv_objpack-body_num = lv_tab_lines.
*OBJPACK-BODY_NUM = 1.
  lv_objpack-doc_type = 'RAW'.
  lv_objpack-obj_name = 'Mail'.
  lv_objpack-obj_descr = 'First Mail'.
  lv_objpack-doc_size = lv_tab_lines * 255.
  APPEND lv_objpack.
Creation of the entry for the compressed document
  DESCRIBE TABLE lv_objbin LINES lv_tab_lines.
CLEAR lc_dsn_totals.
  IF sy-langu = 'E'.
    CONCATENATE 'IDOC_TOTALS_' sy-datlo '_' sy-timlo INTO lc_dsn_totals.
    endif.
*CLEAR OBJPACK-TRANSF_BIN.
  lv_objpack-transf_bin = 'X'.
  lv_objpack-head_start = 1.
  lv_objpack-head_num = 0.
  lv_objpack-body_start = 1.
*OBJPACK-BODY_NUM = TAB_LINES.
  lv_objpack-body_num = lv_tab_lines.
  lv_objpack-doc_type = 'CSV'.
  lv_objpack-obj_name = 'ATTACHMENT'.
  lv_objpack-obj_descr = lc_dsn_totals.
  lv_objpack-doc_size = lv_tab_lines * 255.
  APPEND lv_objpack.
*Create the list of recipients
LOOP AT s_mailid.
    lv_reclist-receiver = s_mailid-low.
    lv_reclist-rec_type = 'U'.
    APPEND lv_reclist .
  ENDLOOP.
Sending the document
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = lv_doc_chng
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = lv_objpack
      object_header              = lv_objhead
      contents_bin               = lv_objbin
      contents_txt               = lv_objtxt
      receivers                  = lv_reclist
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
  IF sy-subrc = 0.
    MESSAGE s000 WITH 'Email succesfully delivered'.
    SUBMIT rsconn01 WITH mode = 'INT'
                      WITH output = 'X'
                      AND RETURN.
  ELSE.
    MESSAGE s000 WITH 'Error while sending email'.
  ENDIF.

Answer 1

Your code is tough to understand in the way you posted .....
make sure you are clearing the data in some internal tables.... or make sure you are using the correct table for email body and to excel
if at all if you are using header line clear: itab[] will clear the whole table..