<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: Extracting data from iDoc tables in Application Development and Automation Discussions</title>
    <link>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233304#M480765</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Can you help me with an ABAP example as I am new in this field?&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thank you,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Ioan&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Fri, 11 May 2007 13:15:36 GMT</pubDate>
    <dc:creator>Former Member</dc:creator>
    <dc:date>2007-05-11T13:15:36Z</dc:date>
    <item>
      <title>Extracting data from iDoc tables</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233302#M480763</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I need to extract data from idoc segments from the database tables EDIDC and EDID4 for which the idoc status is 51 and to save all this data in an external file.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;For example, I need to check all the iDocs with WPUBON01 base type and if the status is 51 then I have to query the ARTNR field from E1WPB02 segment and to save idoc number and ARTNR in an excel file.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Can anybody help me or give me some example?&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thank you in advance.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Ioan&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Fri, 11 May 2007 12:54:32 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233302#M480763</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-05-11T12:54:32Z</dc:date>
    </item>
    <item>
      <title>Re: Extracting data from iDoc tables</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233303#M480764</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi loan,&lt;/P&gt;&lt;P&gt;READ_OBJECT_VALUE caters to your requirement.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Regards,&lt;/P&gt;&lt;P&gt;Younus&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Fri, 11 May 2007 13:00:02 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233303#M480764</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-05-11T13:00:02Z</dc:date>
    </item>
    <item>
      <title>Re: Extracting data from iDoc tables</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233304#M480765</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Can you help me with an ABAP example as I am new in this field?&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thank you,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Ioan&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Fri, 11 May 2007 13:15:36 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233304#M480765</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-05-11T13:15:36Z</dc:date>
    </item>
    <item>
      <title>Re: Extracting data from iDoc tables</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233305#M480766</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;You can use FM IDOC_READ_COMPLETELY to read detail EDIDC and EDID4.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;PRE&gt;&lt;CODE&gt;
DATA: T_IDOC_CONTROL  LIKE EDIDC  OCCURS 0 WITH HEADER LINE,
      T_IDOC_DATA     LIKE EDIDD  OCCURS 0 WITH HEADER LINE,
      T_IDOC_DATA_WA  LIKE EDIDD  OCCURS 0 WITH HEADER LINE.
                                                                        
SELECT DOCNUM
FROM EDIDC
INTO TABLE T_IDOC_CONTROL
WHERE STATUS EQ '51'
  AND IDOCTP EQ 'WPUBON01'.

LOOP AT T_IDOC_CONTROL.
  REFRESH T_IDOC_DATA_WA.
  CALL FUNCTION 'IDOC_READ_COMPLETELY'
    EXPORTING
      DOCUMENT_NUMBER         = T_IDOC_CONTROL-DOCNUM
    IMPORTING
      IDOC_CONTROL            = T_IDOC_CONTROL
    TABLES
      INT_EDIDD               = T_IDOC_DATA_WA
    EXCEPTIONS
      DOCUMENT_NOT_EXIST      = 1
      DOCUMENT_NUMBER_INVALID = 2
      OTHERS                  = 3.

  IF SY-SUBRC = 0.
    MODIFY T_IDOC_CONTROL.
    APPEND LINES OF T_IDOC_DATA_WA TO T_IDOC_DATA.
  ELSE.
    DELETE T_IDOC_CONTROL.
  ENDIF.
ENDLOOP.

* Then download internal tables T_IDOC_CONTROL and T_IDOC_DATA_WA TO to Excel.

&lt;/CODE&gt;&lt;/PRE&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Regards,&lt;/P&gt;&lt;P&gt;Ferry Lianto&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Fri, 11 May 2007 13:36:39 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233305#M480766</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-05-11T13:36:39Z</dc:date>
    </item>
    <item>
      <title>Re: Extracting data from iDoc tables</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233306#M480767</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Thanks,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;The code above solved filtering of idocs and extracting of SDATA component of the idoc. But how can I extract just one data field from SDATA because there are many fields in an unstructured format?&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thank you,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Ioan&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Fri, 11 May 2007 15:11:42 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233306#M480767</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-05-11T15:11:42Z</dc:date>
    </item>
    <item>
      <title>Re: Extracting data from iDoc tables</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233307#M480768</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;See Below Example code :&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;TYPE-POOLS: slis.&lt;/P&gt;&lt;P&gt;tables : edid4 , edidc ,edids ,lfa1,teds2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv.&lt;/P&gt;&lt;P&gt;DATA: s_fieldcatalog TYPE slis_fieldcat_alv.&lt;/P&gt;&lt;P&gt;DATA: s_layout TYPE slis_layout_alv.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: text11 LIKE E1EDP02.&lt;/P&gt;&lt;P&gt;DATA: text111 LIKE E1MBXYI.&lt;/P&gt;&lt;P&gt;DATA: s_keyinfo TYPE slis_keyinfo_alv.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: v_repid TYPE syrepid.&lt;/P&gt;&lt;P&gt;DATA: V_MSGNO LIKE T100-MSGNR.&lt;/P&gt;&lt;P&gt;*DATA: V_TEXT(90).&lt;/P&gt;&lt;P&gt;DATA : WA_EDIDS TYPE EDIDS.&lt;/P&gt;&lt;P&gt;data : begin of itab_edids occurs 0,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   user like edids-UNAME,&lt;/P&gt;&lt;P&gt;   date like edids-CREDAT,&lt;/P&gt;&lt;P&gt;   time like edids-cretim,&lt;/P&gt;&lt;P&gt;   idoc like edids-docnum,&lt;/P&gt;&lt;P&gt;  MESSAGETYPE like edidc-MESTYP,&lt;/P&gt;&lt;P&gt;  VENDOR LIKE EDIDC-SNDPRN,&lt;/P&gt;&lt;P&gt;  name like lfa1-name1,&lt;/P&gt;&lt;P&gt;  icon(1),&lt;/P&gt;&lt;P&gt;   EXPAND TYPE C,&lt;/P&gt;&lt;P&gt;end of itab_edids.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data : itab type edid4.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data : begin of itab_edidc occurs 0,&lt;/P&gt;&lt;P&gt;     doc_num like edidc-docnum,&lt;/P&gt;&lt;P&gt;     MESSAGETYPE like edidc-MESTYP,&lt;/P&gt;&lt;P&gt;   IDOCTYPE like edidc-DOCTYP,&lt;/P&gt;&lt;P&gt;   PARTNERNUMBER like edidc-RCVPRN,&lt;/P&gt;&lt;P&gt;   PARTNERTYPE like edidc-RCVPRT,&lt;/P&gt;&lt;P&gt;  MESSAGECODE like edidc-MESCOD,&lt;/P&gt;&lt;P&gt;  VENDOR LIKE EDIDC-SNDPRN,&lt;/P&gt;&lt;P&gt;  data like edidc-credat,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*include structure edidc.&lt;/P&gt;&lt;P&gt;  end of itab_edidc.&lt;/P&gt;&lt;P&gt;data : begin of itab_status occurs 0,&lt;/P&gt;&lt;P&gt;idoc like edids-docnum,&lt;/P&gt;&lt;P&gt;date_stauus like edids-logdat,&lt;/P&gt;&lt;P&gt;status_counter like edids-countr,&lt;/P&gt;&lt;P&gt;staTus like edids-status,&lt;/P&gt;&lt;P&gt;*descrp like teds2-descrp,&lt;/P&gt;&lt;P&gt;DESCRP(70),&lt;/P&gt;&lt;P&gt;ponumber like  ekpo-ebeln,&lt;/P&gt;&lt;P&gt;MESS LIKE edidc-MESTYP,&lt;/P&gt;&lt;P&gt;*appdoc like edids-stapa1,&lt;/P&gt;&lt;P&gt;end of itab_status.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data : text like edid4-sdata.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: text1 LIKE E1EDK01.&lt;/P&gt;&lt;P&gt;data : begin of itab_teds1 occurs 0.&lt;/P&gt;&lt;P&gt;        include structure teds1.&lt;/P&gt;&lt;P&gt;data end of itab_teds1.&lt;/P&gt;&lt;P&gt;*selection-screen begin of block sb with frame title text-001.&lt;/P&gt;&lt;P&gt;*select-options:&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;   s_rsdat for edidc-CREDAT.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*selection-screen end of block sb.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DATA: f_fieldcatalog TYPE slis_fieldcat_alv.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;selection-screen begin of block sb with frame title text-001.&lt;/P&gt;&lt;P&gt;parameters:&lt;/P&gt;&lt;P&gt;       p_su radiobutton group gp1,&lt;/P&gt;&lt;P&gt;       p_re radiobutton group gp1,&lt;/P&gt;&lt;P&gt;       p_al radiobutton group gp1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;select-options:&lt;/P&gt;&lt;P&gt;    s_rsdat for edids-creDAT,&lt;/P&gt;&lt;P&gt;    s_user for edids-uname.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;selection-screen end of block sb.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;initialization.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;PERFORM INITIALIZATION.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;start-of-selection.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;PERFORM DATA_RETRIVAL.&lt;/P&gt;&lt;P&gt;PERFORM DATA_BASED_SELECTION.&lt;/P&gt;&lt;P&gt;PERFORM PASSING_ALV.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*select docnum mestyp doctyp rcvprn rcvprt mescod credat into&lt;/P&gt;&lt;P&gt;*table itab_edidc from edidc&lt;/P&gt;&lt;P&gt;*where credat in s_rsdat.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'&lt;/P&gt;&lt;P&gt;*EXPORTING&lt;/P&gt;&lt;P&gt;*i_program_name = v_repid&lt;/P&gt;&lt;P&gt;*I_INTERNAL_TABNAME = 'ITAB_STATUS'&lt;/P&gt;&lt;P&gt;*CHANGING&lt;/P&gt;&lt;P&gt;*ct_fieldcat = t_fieldcatalog.&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'&lt;/P&gt;&lt;P&gt;*EXPORTING&lt;/P&gt;&lt;P&gt;*i_program_name = v_repid&lt;/P&gt;&lt;P&gt;*I_INTERNAL_TABNAME = 'ITAB_EDIDS'&lt;/P&gt;&lt;P&gt;*CHANGING&lt;/P&gt;&lt;P&gt;*ct_fieldcat = t_fieldcatalog.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; s_LAYOUT-ZEBRA = 'X'.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*s_LAYOUT-SUBTOTALS_TEXT = 'SUBTOTAL'.&lt;/P&gt;&lt;P&gt;*s_LAYOUT-TOTALS_TEXT = 'TOTAL'.&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  INITIALIZATION&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      text&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; --&amp;gt;  p1        text&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; &amp;lt;--  p2        text&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM INITIALIZATION.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;V_REPID = SY-REPID.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  s_keyinfo-header01 = 'IDOC'.&lt;/P&gt;&lt;P&gt;  s_keyinfo-item01 = 'IDOC'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*s_layout-subtotals_text = 'SUBTOTAL TEXT'.&lt;/P&gt;&lt;P&gt;*s_layout-key_hotspot = 'X'.&lt;/P&gt;&lt;P&gt;*s_layout-expand_fieldname = 'EXPAND'.&lt;/P&gt;&lt;P&gt;  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'&lt;/P&gt;&lt;P&gt;       EXPORTING&lt;/P&gt;&lt;P&gt;            i_program_name         = V_REPID&lt;/P&gt;&lt;P&gt;            I_INTERNAL_TABNAME     = 'ITAB_STATUS'&lt;/P&gt;&lt;P&gt;            I_INCLNAME = V_repid&lt;/P&gt;&lt;P&gt;       CHANGING&lt;/P&gt;&lt;P&gt;            ct_fieldcat            = T_fieldcatalog&lt;/P&gt;&lt;P&gt;       EXCEPTIONS&lt;/P&gt;&lt;P&gt;            INCONSISTENT_INTERFACE = 1&lt;/P&gt;&lt;P&gt;            PROGRAM_ERROR          = 2&lt;/P&gt;&lt;P&gt;            OTHERS                 = 3.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'&lt;/P&gt;&lt;P&gt;       EXPORTING&lt;/P&gt;&lt;P&gt;            i_program_name         = V_REPID&lt;/P&gt;&lt;P&gt;            I_INTERNAL_TABNAME     = 'ITAB_EDIDS'&lt;/P&gt;&lt;P&gt;            I_INCLNAME = V_repid&lt;/P&gt;&lt;P&gt;       CHANGING&lt;/P&gt;&lt;P&gt;            ct_fieldcat            = T_fieldcatalog&lt;/P&gt;&lt;P&gt;       EXCEPTIONS&lt;/P&gt;&lt;P&gt;            INCONSISTENT_INTERFACE = 1&lt;/P&gt;&lt;P&gt;            PROGRAM_ERROR          = 2&lt;/P&gt;&lt;P&gt;            OTHERS                 = 3.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;f_fieldcatalog-just = 'L'.&lt;/P&gt;&lt;P&gt;MODIFY t_fieldcatalog FROM f_fieldcatalog&lt;/P&gt;&lt;P&gt;TRANSPORTING just&lt;/P&gt;&lt;P&gt;WHERE  ( fieldname = 'IDOC' OR FIELDNAME = 'STATUS_COUNTER' ).&lt;/P&gt;&lt;P&gt;f_fieldcatalog-SELTEXT_L = 'Status Message'.&lt;/P&gt;&lt;P&gt;MODIFY t_fieldcatalog FROM f_fieldcatalog&lt;/P&gt;&lt;P&gt;TRANSPORTING SELTEXT_L&lt;/P&gt;&lt;P&gt;WHERE  fieldname = 'DESCRP'.&lt;/P&gt;&lt;P&gt;f_fieldcatalog-TECH = 'X'.&lt;/P&gt;&lt;P&gt;MODIFY t_fieldcatalog FROM f_fieldcatalog&lt;/P&gt;&lt;P&gt;TRANSPORTING TECH&lt;/P&gt;&lt;P&gt;WHERE  fieldname = 'EXPAND'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;f_fieldcatalog-REPTEXT_DDIC = 'Vendor Name'.&lt;/P&gt;&lt;P&gt;MODIFY t_fieldcatalog FROM f_fieldcatalog&lt;/P&gt;&lt;P&gt;TRANSPORTING REPTEXT_DDIC&lt;/P&gt;&lt;P&gt;WHERE  fieldname = 'NAME'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*f_fieldcatalog-REPTEXT_DDIC = 'V Code 32122'.&lt;/P&gt;&lt;P&gt;*MODIFY t_fieldcatalog FROM f_fieldcatalog&lt;/P&gt;&lt;P&gt;*TRANSPORTING REPTEXT_DDIC&lt;/P&gt;&lt;P&gt;*WHERE  fieldname = 'VENDOR'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    " INITIALIZATION&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  DATA_RETRIVAL&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      text&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; --&amp;gt;  p1        text&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; &amp;lt;--  p2        text&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM DATA_RETRIVAL.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;select  uname credat cretim docnum into  table&lt;/P&gt;&lt;P&gt;itab_edids from edids&lt;/P&gt;&lt;P&gt;               where credat in s_rsdat and&lt;/P&gt;&lt;P&gt;                      uname in s_user and&lt;/P&gt;&lt;P&gt;                      countr = ' '.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;select  uname credat cretim docnum from edids&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*APPENDING CORRESPONDING FIELDS OF TABLE itab_edids&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;              where logdat in s_rsdat and&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                     uname in s_user.&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                     SELECT budat hkont belnr shkzg wrbtr FROM bsas&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*APPENDING CORRESPONDING FIELDS OF TABLE it_temp WHERE hkont = w_glacct&lt;/P&gt;&lt;P&gt;*"wa_cb-gl_account&lt;/P&gt;&lt;P&gt;*AND bukrs IN (so_bukrs-low)&lt;/P&gt;&lt;P&gt;*AND budat &amp;lt; so_date-low.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  delete  adjacent duplicates from itab_edids.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  if not itab_edids[]  is initial.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;     select docnum mestyp doctyp rcvprn rcvprt mescod SNDPRN credat into&lt;/P&gt;&lt;P&gt;    table itab_edidc from edidc for all entries in itab_edids&lt;/P&gt;&lt;P&gt;    where docnum = itab_edids-idoc.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;LOOP AT ITAB_edids.&lt;/P&gt;&lt;P&gt;   READ TABLE ITAB_EDIDC WITH KEY  DOC_NUM = ITAB_EDIDS-IDOC.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   itab_edids-messagetype = ITAB_EDIDC-MESSAGETYPE.&lt;/P&gt;&lt;P&gt;   itab_edids-VENDOR = ITAB_EDIDC-VENDOR.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   MODIFY ITAB_EDIDS.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   CLEAR ITAB_EDIDS.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   ENDLOOP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;DELETE ITAB_EDIDC WHERE MESSAGETYPE = 'ORDERS'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;loop at itab_edids.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;read table itab_edidc with key doc_num  = itab_edids-idoc.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;if sy-subrc ne 0.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;delete itab_edids.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endif.&lt;/P&gt;&lt;P&gt;endloop.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;select docnum logdat countr status into table itab_status from edids for&lt;/P&gt;&lt;P&gt;   all entries in itab_edidc where docnum = itab_edidc-doc_num.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   LOOP AT ITAB_STATUS.&lt;/P&gt;&lt;P&gt;   READ TABLE ITAB_EDIDC WITH KEY  DOC_NUM = ITAB_STATUS-IDOC.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   ITAB_STATUS-MESS = ITAB_EDIDC-MESSAGETYPE.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   MODIFY ITAB_STATUS.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   CLEAR ITAB_STATUS.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   ENDLOOP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  loop at itab_status.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    clear : text ,text1 , text11, text111, itab.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;   select single descrp from teds2 into itab_status-descrp&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                          where status = itab_status-STATUS AND&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                               LANGUA = 'E'.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;   select single sdata into text from edid4 where&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;     DOCNUM =  itab_status-idoc and&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;     segnam = 'E1EDK01'.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*MOVE: text        TO text1,&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;     text1-BELNR TO itab_status-ponumber.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      itab_status-ponumber = text1-belnr.&lt;/P&gt;&lt;/LI&gt;&lt;UL&gt;&lt;LI level="2" type="ul"&gt;&lt;P&gt;   move text+83(30) to itab_status-ponumber.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;*&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;   MODIFY ITAB_STATUS.&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;   clear itab_status.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; IF itab_status-MESS = 'WMMBXY'.&lt;/P&gt;&lt;P&gt;   select single * from edid4  INTO ITAB where segnam = 'E1MBXYI' AND&lt;/P&gt;&lt;P&gt;                 HLEVEL = '02' AND DOCNUM = itab_status-idoc.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;MOVE  : ITAB-SDATA  TO TEXT111 ,&lt;/P&gt;&lt;P&gt;text111-EBELN TO itab_status-ponumber.&lt;/P&gt;&lt;P&gt;**text1-BELNR TO ponumber.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ELSE.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;select single * from edid4  INTO ITAB where segnam = 'E1EDP02' AND&lt;/P&gt;&lt;P&gt;                 HLEVEL = '03' AND DOCNUM = itab_status-idoc.&lt;/P&gt;&lt;P&gt;MOVE  : ITAB-SDATA  TO TEXT11 ,&lt;/P&gt;&lt;P&gt;*text1-EBELN TO ponumber.&lt;/P&gt;&lt;P&gt;text11-BELNR TO itab_status-ponumber.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    MODIFY ITAB_STATUS.&lt;/P&gt;&lt;P&gt;    clear itab_status.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  endloop.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    " DATA_RETRIVAL&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  PASSING_ALV&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      text&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; --&amp;gt;  p1        text&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; &amp;lt;--  p2        text&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM PASSING_ALV.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;s_LAYOUT-EXPAND_FIELDNAME = 'EXPAND'.&lt;/P&gt;&lt;P&gt;DATA: t_events TYPE slis_t_event.&lt;/P&gt;&lt;P&gt;DATA: s_events LIKE LINE OF t_events.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;s_events-form = 'TOP_OF_PAGE'.&lt;/P&gt;&lt;P&gt;s_events-name = 'TOP_OF_PAGE'.&lt;/P&gt;&lt;P&gt;APPEND s_events TO t_events.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;s_layout-lights_fieldname = 'ICON'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;sort itab_status by status_counter descending. " -&lt;/P&gt;&lt;HR originaltext="---" /&gt;&lt;P&gt;mod3&lt;/P&gt;&lt;P&gt;  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'&lt;/P&gt;&lt;P&gt;       EXPORTING&lt;/P&gt;&lt;P&gt;            i_callback_program = v_repid&lt;/P&gt;&lt;P&gt;            is_layout          = s_layout&lt;/P&gt;&lt;P&gt;            it_fieldcat        = t_fieldcatalog&lt;/P&gt;&lt;P&gt;            i_callback_user_command = 'USER_COMMAND'&lt;/P&gt;&lt;P&gt;            i_tabname_header   = 'ITAB_EDIDS'&lt;/P&gt;&lt;P&gt;            i_tabname_item     = 'ITAB_STATUS'&lt;/P&gt;&lt;P&gt;            IT_EVENTS          = t_events&lt;/P&gt;&lt;P&gt;            is_keyinfo         = s_keyinfo&lt;/P&gt;&lt;P&gt;       TABLES&lt;/P&gt;&lt;P&gt;            t_outtab_header    = itab_EDIDS&lt;/P&gt;&lt;P&gt;            t_outtab_item      = itab_STATUS&lt;/P&gt;&lt;P&gt;       EXCEPTIONS&lt;/P&gt;&lt;P&gt;            program_error      = 1&lt;/P&gt;&lt;P&gt;            OTHERS             = 2.&lt;/P&gt;&lt;P&gt;  IF sy-subrc &amp;lt;&amp;gt; 0.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;  ENDIF.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    " PASSING_ALV&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  DATA_BASED_SELECTION&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      text&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; --&amp;gt;  p1        text&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; &amp;lt;--  p2        text&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM DATA_BASED_SELECTION.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;if p_su eq 'X'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*loop at itab_status where status = '53'.&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*select single stapa1 from edids into itab_status-appdoc&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;where  docnum = itab_status-idoc and status = '53'.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*delete itab_status where status ne '53'.&lt;/P&gt;&lt;P&gt;*modify itab_status.&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*endloop.&lt;/P&gt;&lt;P&gt;delete itab_status where status ne '53'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;loop at itab_edids.&lt;/P&gt;&lt;P&gt;read table itab_status with key idoc = itab_edids-idoc binary search.&lt;/P&gt;&lt;P&gt;if sy-subrc ne 0.&lt;/P&gt;&lt;P&gt;delete itab_edids.&lt;/P&gt;&lt;P&gt;ELSE.&lt;/P&gt;&lt;P&gt;*SHIFT ITAB_EDIDS-IDOC LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;P&gt;MODIFY ITAB_EDIDS.&lt;/P&gt;&lt;P&gt;endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endloop.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;LOOP AT ITAB_STATUS WHERE MESS NE 'WMMBXY'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;SELECT SINGLE * FROM EDIDS INTO WA_EDIDS WHERE DOCNUM = ITAB_STATUS-IDOC&lt;/P&gt;&lt;P&gt; AND COUNTR = ITAB_STATUS-STATUS_COUNTER.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;IF  WA_EDIDS-STATXT CA '&amp;amp;'.&lt;/P&gt;&lt;P&gt;V_MSGNO = WA_EDIDS-STAMNO.&lt;/P&gt;&lt;P&gt;IF V_MSGNO NE '000'. "----mod3&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'MESSAGE_PREPARE'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;msg_id = WA_EDIDS-STAMID&lt;/P&gt;&lt;P&gt;msg_no = V_MSGNO&lt;/P&gt;&lt;P&gt;MSG_VAR1 = wa_edids-stapa1&lt;/P&gt;&lt;P&gt;MSG_VAR2 = WA_EDIDS-STAPA2&lt;/P&gt;&lt;P&gt;MSG_VAR3 = WA_EDIDS-STAPA3&lt;/P&gt;&lt;P&gt;MSG_VAR4 = WA_EDIDS-STAPA4&lt;/P&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;P&gt;MSG_TEXT = itab_status-descrp.&lt;/P&gt;&lt;P&gt;CONDENSE ITAB_STATUS-DESCRP.&lt;/P&gt;&lt;P&gt;ENDIF."---- mod3&lt;/P&gt;&lt;P&gt;ELSE .&lt;/P&gt;&lt;P&gt;ITAB_STATUS-DESCRP = WA_EDIDS-STATXT.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;*SHIFT ITAB_STATUS-IDOC LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;P&gt;*SHIFT ITAB_STATUS-STATUS_COUNTER LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;P&gt;MODIFY ITAB_STATUS.&lt;/P&gt;&lt;P&gt; ENDLOOP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; LOOP AT ITAB_STATUS WHERE MESS EQ 'WMMBXY'.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;SHIFT ITAB_STATUS-IDOC LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; SHIFT ITAB_STATUS-STATUS_COUNTER LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt; ITAB_STATUS-DESCRP = 'APPLICATION DOCUMENT POSTED'.&lt;/P&gt;&lt;P&gt; MODIFY ITAB_STATUS.&lt;/P&gt;&lt;P&gt; ENDLOOP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;delete adjacent duplicates from  itab_edids comparing idoc.&lt;/P&gt;&lt;P&gt;elseif p_re eq 'X'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;loop at itab_status where status = '53'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;delete itab_edids where idoc = itab_status-idoc.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endloop.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;loop at itab_status.&lt;/P&gt;&lt;P&gt;read table itab_edids with key idoc = itab_status-idoc binary search.&lt;/P&gt;&lt;P&gt;if sy-subrc ne 0.&lt;/P&gt;&lt;P&gt;delete itab_status.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endloop.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;LOOP AT ITAB_STATUS.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;SELECT SINGLE * FROM EDIDS INTO WA_EDIDS WHERE DOCNUM = ITAB_STATUS-IDOC&lt;/P&gt;&lt;P&gt; AND COUNTR = ITAB_STATUS-STATUS_COUNTER.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;IF  WA_EDIDS-STATXT CA '&amp;amp;'.&lt;/P&gt;&lt;P&gt;V_MSGNO = WA_EDIDS-STAMNO.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;IF V_MSGNO NE '000'. "----mod3&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'MESSAGE_PREPARE'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;msg_id = WA_EDIDS-STAMID&lt;/P&gt;&lt;P&gt;msg_no = V_MSGNO&lt;/P&gt;&lt;P&gt;MSG_VAR1 = WA_EDIDS-STAPA1&lt;/P&gt;&lt;P&gt;MSG_VAR2 = WA_EDIDS-STAPA2&lt;/P&gt;&lt;P&gt;MSG_VAR3 = WA_EDIDS-STAPA3&lt;/P&gt;&lt;P&gt;MSG_VAR4 = WA_EDIDS-STAPA4&lt;/P&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;P&gt;MSG_TEXT = itab_status-descrp.&lt;/P&gt;&lt;P&gt;CONDENSE ITAB_STATUS-DESCRP.&lt;/P&gt;&lt;P&gt;endif. "-----mod3&lt;/P&gt;&lt;P&gt;ELSE .&lt;/P&gt;&lt;P&gt;ITAB_STATUS-DESCRP = WA_EDIDS-STATXT.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;SHIFT ITAB_STATUS-IDOC LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt; SHIFT ITAB_STATUS-STATUS_COUNTER LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;MODIFY ITAB_STATUS.&lt;/P&gt;&lt;P&gt; ENDLOOP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;LOOP AT ITAB_EDIDS.&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;SHIFT ITAB_EDIDS-IDOC LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;MODIFY ITAB_EDIDS.&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;ENDLOOP.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;delete adjacent duplicates from  itab_edids comparing idoc.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;elseif p_al eq 'X'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;delete adjacent duplicates from  itab_edids comparing idoc.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;LOOP AT ITAB_STATUS." WHERE MESS NE 'WMMBXY'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;SELECT SINGLE * FROM EDIDS INTO WA_EDIDS WHERE DOCNUM = ITAB_STATUS-IDOC&lt;/P&gt;&lt;P&gt; AND COUNTR = ITAB_STATUS-STATUS_COUNTER.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;IF  WA_EDIDS-STATXT CA '&amp;amp;'.&lt;/P&gt;&lt;P&gt;V_MSGNO = WA_EDIDS-STAMNO.&lt;/P&gt;&lt;P&gt;IF V_MSGNO NE '000'. "----mod3&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'MESSAGE_PREPARE'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;msg_id = WA_EDIDS-STAMID&lt;/P&gt;&lt;P&gt;msg_no = V_MSGNO&lt;/P&gt;&lt;P&gt;MSG_VAR1 = WA_EDIDS-STAPA1&lt;/P&gt;&lt;P&gt;MSG_VAR2 = WA_EDIDS-STAPA2&lt;/P&gt;&lt;P&gt;MSG_VAR3 = WA_EDIDS-STAPA3&lt;/P&gt;&lt;P&gt;MSG_VAR4 = WA_EDIDS-STAPA4&lt;/P&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;P&gt;MSG_TEXT = itab_status-descrp.&lt;/P&gt;&lt;P&gt;CONDENSE ITAB_STATUS-DESCRP.&lt;/P&gt;&lt;P&gt;endif. "----mod3&lt;/P&gt;&lt;P&gt;ELSE .&lt;/P&gt;&lt;P&gt;ITAB_STATUS-DESCRP = WA_EDIDS-STATXT.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;*SHIFT ITAB_STATUS-IDOC LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;P&gt;*SHIFT ITAB_STATUS-STATUS_COUNTER LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;P&gt;MODIFY ITAB_STATUS.&lt;/P&gt;&lt;P&gt; ENDLOOP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; LOOP AT ITAB_EDIDS.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  if p_su EQ 'X'.&lt;/P&gt;&lt;P&gt;  itab_edids-icon = '3'.&lt;/P&gt;&lt;P&gt;  elseif p_re eq 'X'.&lt;/P&gt;&lt;P&gt;   itab_edids-icon = '1'.&lt;/P&gt;&lt;P&gt;   ELSE.&lt;/P&gt;&lt;P&gt;   read table itab_sTATUS with  key idoc = itab_EDIDS-idoc&lt;/P&gt;&lt;P&gt;                               STATUS  = '53' ."binary search.&lt;/P&gt;&lt;P&gt;   IF SY-SUBRC EQ 0.&lt;/P&gt;&lt;P&gt;    itab_edids-icon = '3'.&lt;/P&gt;&lt;P&gt;   ELSE.&lt;/P&gt;&lt;P&gt;   itab_edids-icon = '1'.&lt;/P&gt;&lt;P&gt;   ENDIF.&lt;/P&gt;&lt;P&gt;   ENDIF.&lt;/P&gt;&lt;P&gt; select single name1 from lfa1 into itab_edids-name where&lt;/P&gt;&lt;P&gt;            lifnr = itab_edids-vendor.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; SHIFT ITAB_EDIDS-IDOC LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;P&gt; MODIFY ITAB_EDIDS.&lt;/P&gt;&lt;P&gt; clear itab_edids.&lt;/P&gt;&lt;P&gt; ENDLOOP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; loop at itab_status.&lt;/P&gt;&lt;P&gt; SHIFT ITAB_STATUS-IDOC LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;P&gt;SHIFT ITAB_STATUS-STATUS_COUNTER LEFT  DELETING LEADING '0'.&lt;/P&gt;&lt;P&gt;if itab_status-descrp is initial.&lt;/P&gt;&lt;P&gt; select single descrp from teds2 into itab_status-descrp&lt;/P&gt;&lt;P&gt;                           where status = itab_status-STATUS AND&lt;/P&gt;&lt;P&gt;                                LANGUA = 'E'.&lt;/P&gt;&lt;P&gt;endif.&lt;/P&gt;&lt;P&gt;MODIFY ITAB_STATUS.&lt;/P&gt;&lt;P&gt;clear itab_status.&lt;/P&gt;&lt;P&gt; endloop.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; sort itab_status by idoc.&lt;/P&gt;&lt;P&gt; sort itab_edids by idoc.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    " DATA_BASED_SELECTION&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp; Form TOP_OF_PAGE&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;text&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM TOP_OF_PAGE.&lt;/P&gt;&lt;P&gt;SKIP.&lt;/P&gt;&lt;P&gt;ULINE.&lt;/P&gt;&lt;P&gt;IF P_SU EQ 'X'.&lt;/P&gt;&lt;P&gt;WRITE : / 'TITLE : SUCCESSFULLY POSTED IDOC', 50 'DATE :', SY-DATUM..&lt;/P&gt;&lt;P&gt;ELSEIF P_RE EQ 'X'.&lt;/P&gt;&lt;P&gt;WRITE : / 'TITLE : REJECTED IDOCS'  ,50 'DATE :', SY-DATUM.&lt;/P&gt;&lt;P&gt;ELSEIF P_AL EQ 'X'.&lt;/P&gt;&lt;P&gt;WRITE : / 'TITLE : ALL IDOCS' ,50 'DATE :', SY-DATUM.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;WRITE  :/9 'Successful-Green light  Unsuccessful-Red Light'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;format color COL_TOTAL intensified on.&lt;/P&gt;&lt;P&gt;WRITE : / 'NOTE  : DOUBLE CLICK TO SEE CORREPONDING IDOC AND PO'.&lt;/P&gt;&lt;P&gt;WRITE :/9 'DOUBLE CLICK IDOC NO ON HEADER LIST'.&lt;/P&gt;&lt;P&gt;WRITE :  'AND PO NUMBER ON DETAIL LIST'.&lt;/P&gt;&lt;P&gt; format color off.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ULINE.&lt;/P&gt;&lt;P&gt;SKIP.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM. "TOP_OF_PAGE&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;FORM user_command *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;........ *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;--&amp;gt; UCOMM *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;--&amp;gt; SELFIELD *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;FORM user_command USING ucomm LIKE sy-ucomm&lt;/P&gt;&lt;P&gt;selfield TYPE slis_selfield.&lt;/P&gt;&lt;P&gt;DATA: WA_IDOC9 LIKE EDIDC-DOCNUM.&lt;/P&gt;&lt;P&gt;DATA: SELTAB     TYPE TABLE OF RSPARAMS,&lt;/P&gt;&lt;P&gt;      SELTAB_WA  LIKE LINE OF SELTAB.&lt;/P&gt;&lt;P&gt;RANGES : R_DATE FOR EDIDC-CREDAT." SY-DATUM.&lt;/P&gt;&lt;P&gt;IF ucomm = '&amp;amp;IC1'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;if SELFIELD-SEL_TAB_FIELD = 'ITAB_EDIDS-IDOC'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;READ TABLE itab_edids INDEX selfield-tabindex.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;IF sy-subrc = 0.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'&lt;/P&gt;&lt;P&gt;EXPORTING&lt;/P&gt;&lt;P&gt;INPUT = ITAB_edids-IDOC&lt;/P&gt;&lt;P&gt;IMPORTING&lt;/P&gt;&lt;P&gt;OUTPUT = WA_IDOC9.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*r_date-low = itab_edids-date.&lt;/P&gt;&lt;P&gt;*r_date-high = itab_edids-date.&lt;/P&gt;&lt;P&gt;*r_date-SIGN = 'I'.&lt;/P&gt;&lt;P&gt;*r_date-OPTION = 'BT'.&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;*append r_date.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; SUBMIT RSEIDOC2  WITH DOCNUM = wa_idoc9&lt;/P&gt;&lt;P&gt; WITH CREDAT in R_DATE[]  AND RETURN.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ELSEIF SELFIELD-SEL_TAB_FIELD = 'ITAB_STATUS-PONUMBER'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;READ TABLE itab_STATUS INDEX selfield-tabindex.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;IF sy-subrc = 0.&lt;/P&gt;&lt;P&gt;SET PARAMETER ID 'BES' FIELD itab_sTATUS-PONUMBER.&lt;/P&gt;&lt;P&gt;CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;ENDIF.&lt;/P&gt;&lt;P&gt;ENDFORM..&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Fri, 11 May 2007 15:14:30 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233307#M480768</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-05-11T15:14:30Z</dc:date>
    </item>
    <item>
      <title>Re: Extracting data from iDoc tables</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233308#M480769</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Please try this.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;PRE&gt;&lt;CODE&gt;
...

DATA: BEGIN OF T_OUTPUT OCCURS 0,
        DOCNUM LIKE EDIDD-DOCNUM,
        ARTNR  LIKE E1WPB02- ARTNR .  
DATA: END OF T_OUTPUT.

DATA: WA_E1WPB02 LIKE E1WPB02.

LOOP AT T_IDOC_DATA WHERE SEGNAM = 'E1WPB02'.
  MOVE T_IDOC_DATA-SDATA TO WA_E1WPB02.
  MOVE T_IDOC_DATA-DOCNUM TO T_OUTPUT-DOCNUM.
  MOVE WA_E1WPB02-ARTNR TO T_OUTPUT-ARTNR.
  APPEND  T_OUTPUT.
ENDLOOP.

* Then download internal table T_OUTPUT to excel.
&lt;/CODE&gt;&lt;/PRE&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Regards,&lt;/P&gt;&lt;P&gt;Ferry Lianto&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Please reward points if helpful.&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Fri, 11 May 2007 15:22:44 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233308#M480769</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-05-11T15:22:44Z</dc:date>
    </item>
    <item>
      <title>Re: Extracting data from iDoc tables</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233309#M480770</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;The code you posted helped me to solve my problem. Thank you for your help.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Ioan.&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Sat, 12 May 2007 15:28:39 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/extracting-data-from-idoc-tables/m-p/2233309#M480770</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-05-12T15:28:39Z</dc:date>
    </item>
  </channel>
</rss>

