IDOC data to excel file

Question

Hi
I have downloaded the IDOC Data in my Excel file.
But the problem is that I am getting all the details in a single column.
I want the systematic data should appear on my Excel.
Thanks

Answer 1

hi,
    Sorry for the delay, just now i have seen your issue, here just i am trying to help you in case till now you have not got it....
Thanks
Satyasuresh
Here the code....
*& Report  YSAT_IDOC_TO_EXCEL                     *
REPORT  YSAT_IDOC_TO_EXCEL line-size 275.
data: idoc_control like EDIDC,
      NUMBER_OF_DATA_RECORDS like sy-dbcnt,
      NUMBER_OF_STATUS_RECORDS like sy-dbcnt,
      INT_EDIDS like edids occurs 0 with header line,
      INT_EDIDD like edidd occurs 0 with header line.
data: begin of i_split1 occurs 0,
          segment(20),
          fieldname(20),
          field1(20),
          field2(20),
          field3(20),
          field4(20),
          field5(60),
          field6(20),
          field7(20),
          field8(20),
      end of i_split1.
TYPE-POOLS : LEDID.
data: STRUCT_TYPE TYPE LEDID_STRUCT_TYPE ,
IDOC_STRUCT TYPE LEDID_T_IDOC_STRUCT,
SEGMENTS TYPE LEDID_T_SEGMENT,
SEGMENT_STRUCT TYPE LEDID_T_SEGMENT_STRUCT,
excel_tab(2000) occurs 0 with header line.
parameter: DOCNUM like edidc-docnum obligatory, "Idoc Number
sap_rel like SY-SAPRL default SY-SAPRL no-display ,
pi_ver like EDI_VERREC-VERSION default '3' no-display,
d_excel as checkbox default 'X'. "Download ?
start-of-selection.
  perform read_idoc.
  perform process_idoc.
  if d_excel = 'X'.
    perform download_to_excel.
  endif.
end-of-selection.
*& Form read_idoc
text
FORM read_idoc.
  CALL FUNCTION 'IDOC_READ_COMPLETELY'
    EXPORTING
      DOCUMENT_NUMBER          = docnum
    IMPORTING
      IDOC_CONTROL             = idoc_control
      NUMBER_OF_DATA_RECORDS   = NUMBER_OF_DATA_RECORDS
      NUMBER_OF_STATUS_RECORDS = NUMBER_OF_STATUS_RECORDS
    TABLES
      INT_EDIDS                = INT_EDIDS
      INT_EDIDD                = INT_EDIDD
    EXCEPTIONS
      DOCUMENT_NOT_EXIST       = 1
      DOCUMENT_NUMBER_INVALID  = 2
      OTHERS                   = 3.
  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. " read_idoc
*& Form process_idoc
text
FORM process_idoc.
  perform read_idoc_structure.
  perform display_data_records.
ENDFORM. " process_idoc
*& Form display_data_records
text
FORM display_data_records.
  data: PE_seg_HEADER like EDI_SAPI01,
  segname like EDI_IAPI12-SEGMENTTYP,
  prev_segname like EDI_IAPI12-SEGMENTTYP value ' ',
  pt_fields2 like EDI_IAPI12 occurs 0 with header line,
  PT_FVALUES2 like EDI_IAPI14 occurs 0 with header line,
  byte_first type i,
  byte_last type i,
  field_val(50),
  tmp_str(15),
  tmp_str3(15),
  seg_repeats type i value 0,
  tmp_str2(15),
  tab_cr(2) type c value '@@',
  tot_ctr type i value 0,
  ctr type i value 0,
  msg(40) type c.
  data: IDOC_STRUCT_wa TYPE LEDID_IDOC_STRUCT.
  sort int_edidd by segnum.
  describe table int_edidd lines tot_ctr.
  loop at int_edidd.
    move int_edidd-segnam to segname.
    clear msg.
    concatenate 'Reading segment ' segname
    into msg separated by space.
    if tot_ctr <> 0.
      ctr = ( 100 * sy-tabix ) / tot_ctr.
    endif.
SAPGUI_PROGRESS_INDICATOR
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        PERCENTAGE = ctr
        TEXT       = msg.
    add 1 to seg_repeats.
    clear tmp_str2.
    if int_edidd-segnam <> prev_segname.
      seg_repeats = 1.
      clear: pe_seg_header, pt_fields2, pt_fvalues2.
      refresh: pt_fields2, pt_fvalues2.
SEGMENT_READ_COMPLETE
      CALL FUNCTION 'SEGMENT_READ_COMPLETE'
        EXPORTING
          PI_SEGTYP                 = segname
          PI_RELEASE                = sap_rel
          PI_VERSION                = pi_ver
        IMPORTING
          PE_HEADER                 = pe_seg_header
        TABLES
          PT_FIELDS                 = pt_fields2
          PT_FVALUES                = pt_fvalues2
        EXCEPTIONS
          SEGMENT_UNKNOWN           = 1
          SEGMENT_STRUCTURE_UNKNOWN = 2
          OTHERS                    = 3.
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      prev_segname = int_edidd-segnam.
    endif.
    read table idoc_struct into idoc_struct_wa with key
    segment_type = int_edidd-segnam.
    if sy-subrc = 0.
      IF IDOC_STRUCT_WA-SYNTAX_ATTRIB-MUSTFL = 'X'.
        TMP_STR = 'Mandatory'. "Mandatory
      ELSE.
        TMP_STR = 'Optional'. "Optional
      ENDIF.
      if IDOC_STRUCT_wa-SEGMENT_TYPE_ATTRIB-QUALIFIER = 'X'.
        tmp_str3 = 'Qualified'.
      else.
        tmp_str3 = 'Non-Qualified'.
      endif.
      shift IDOC_STRUCT_wa-SYNTAX_ATTRIB-OCCMAX
      left deleting leading '0'.
      move seg_repeats to tmp_str2.
      condense: IDOC_STRUCT_wa-SYNTAX_ATTRIB-OCCMAX, tmp_str2.
      concatenate tmp_str2 'of' IDOC_STRUCT_wa-SYNTAX_ATTRIB-OCCMAX
      into tmp_str2 separated by space.
      write :/ IDOC_STRUCT_wa-SEGMENT_TYPE,
      tmp_str,
      TMP_STR3,
      tmp_str2,
      IDOC_STRUCT_wa-SYNTAX_ATTRIB-HLEVEL,
      IDOC_STRUCT_wa-SEGMENT_TYPE_ATTRIB-plast,
      IDOC_STRUCT_wa-SEGMENT_TYPE_ATTRIB-DESCRP.
      if d_excel = 'X'.
        concatenate 'Segment Name' tab_cr
        'Mand / Opt ' tab_cr
        'Qual / non-Qual' tab_cr
        'Seq of Max' tab_cr
        'Level' tab_cr
        'Owner' tab_cr
        'Description'
        into excel_tab.
        append excel_tab.
        concatenate IDOC_STRUCT_wa-SEGMENT_TYPE tab_cr
        tmp_str tab_cr
        TMP_STR3 tab_cr
        tmp_str2 tab_cr
        IDOC_STRUCT_wa-SYNTAX_ATTRIB-HLEVEL tab_cr
        IDOC_STRUCT_wa-SEGMENT_TYPE_ATTRIB-plast tab_cr
        IDOC_STRUCT_wa-SEGMENT_TYPE_ATTRIB-DESCRP
        into excel_tab.
        append excel_tab.
        concatenate tab_cr
        'Field Nma' tab_cr
        'Type' tab_cr
        'Length' tab_cr
        'Byte From' tab_cr
        'Byte To' tab_cr
        'Description' tab_cr
        'Value' tab_cr
        'Qualifier Meaning'
        into excel_tab.
        append excel_tab.
      endif.
    endif.
    sort pt_fields2 by field_pos.
    byte_first = 0.
    loop at pt_fields2.
      clear: field_val.
      byte_last = pt_fields2-EXTLEN.
      write int_edidd-sdata+byte_first(byte_last) to
      field_val left-justified.
      shift pt_fields2-EXTLEN left deleting leading '0'.
      shift pt_fields2-byte_first left deleting leading '0'.
      shift pt_fields2-byte_last left deleting leading '0'.
      write:/ ' ', pt_fields2-fieldname,
      pt_fields2-datatype,
      pt_fields2-EXTLEN,
      pt_fields2-byte_first ,
      pt_fields2-byte_last,
      pt_fields2-descrp,
      field_val.
      read table pt_fvalues2 with key fieldname = pt_fields2-fieldname
      fldvalue_l = field_val.
      add byte_last to byte_first.
      if sy-subrc = 0.
        write : pt_fvalues2-descrp.
      else.
        clear pt_fvalues2-descrp.
      endif.
      if d_excel = 'X'.
        concatenate tab_cr pt_fields2-fieldname tab_cr
        pt_fields2-datatype tab_cr
        pt_fields2-EXTLEN tab_cr
        pt_fields2-byte_first tab_cr
        pt_fields2-byte_last tab_cr
        pt_fields2-descrp tab_cr
        field_val tab_cr
        pt_fvalues2-descrp
        into excel_tab.
        append excel_tab.
      endif.
    endloop.
  endloop.
ENDFORM. " display_data_records
*& Form read_idoc_structure
text
FORM read_idoc_structure.
  data: idoctype type LEDID_IDOCTYPE.
  if not idoc_control-cimtyp is initial.
    STRUCT_TYPE = 'E'. "Extended
    idoctype = idoc_control-cimtyp.
  else.
    STRUCT_TYPE = 'B'. "Basic
    idoctype = idoc_control-idoctp.
  endif.
  CALL FUNCTION 'IDOC_TYPE_COMPLETE_READ'
    EXPORTING
      RELEASE              = sap_rel
      STRUCT_TYPE          = STRUCT_TYPE
      IDOCTYPE             = idoctype
      VERSION              = pi_ver
    TABLES
      IDOC_STRUCT          = idoc_struct
      SEGMENTS             = segments
      SEGMENT_STRUCT       = segment_struct
    EXCEPTIONS
      IDOCTYPE_UNKNOWN     = 1
      IDOCSTRUCT_UNKNOWN   = 2
      SEGMENT_DATA_MISSING = 3
      ILLEGAL_STRUCT_TYPE  = 4
      OTHERS               = 5.
  IF SY-SUBRC <> 0 and sy-subrc <> 3.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM. " read_idoc_structure
*& Form download_to_excel
text
FORM download_to_excel.
data: name like RLGRAP-FILENAME.
  data: name TYPE STRING.
  shift docnum left deleting leading '0'.
  concatenate docnum '-' idoc_control-idoctp '.xls'
  into name.
  perform to_split.
CALL FUNCTION 'RH_START_EXCEL_WITH_DATA'
   EXPORTING
     DATA_filename       = name
     WAIT                = 'X'
     DATA_TABLE          = excel_tab[]
   EXCEPTIONS
     NO_BATCH            = 1
     EXCEL_NOT_INSTALLED = 2
     WRONG_VERSION       = 3
     INTERNAL_ERROR      = 4
     INVALID_TYPE        = 5
     CANCELLED           = 6
     DOWNLOAD_ERROR      = 7
     OTHERS              = 8.
IF SY-SUBRC <> 0.
   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
  break donepus.
  CALL FUNCTION 'WS_DOWNLOAD'
    EXPORTING
      FILENAME                = 'C:\Documents and Settings\donepus\Desktop\test2.xls'
      FILETYPE                = 'DAT'
    TABLES
      DATA_TAB                = i_split1
    EXCEPTIONS
      CONVERSION_ERROR        = 1
      INVALID_TABLE_WIDTH     = 2
      INVALID_TYPE            = 3
      NO_BATCH                = 4
      UNKNOWN_ERROR           = 5
      GUI_REFUSE_FILETRANSFER = 6
      OTHERS                  = 7.
  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. " download_to_excel
*&      Form  to_split
      text
-->  p1        text
<--  p2        text
FORM to_split .
   break donepus.
loop at excel_tab.
    split excel_tab at '@@' into i_split1-segment
                                 i_split1-fieldname
                                 i_split1-field1
                                 i_split1-field2
                                 i_split1-field3
                                 i_split1-field4
                                 i_split1-field5
                                 i_split1-field6
                                 i_split1-field7
                                 i_split1-field8.
        append i_split1.
        clear i_split1.
endloop.
ENDFORM.                    " to_split