工具源代码如下：
REPORT zscan_bdoc_via_keyword. PARAMETERS: start TYPE smw3_bdoc-snd_date OBLIGATORY DEFAULT sy-datlo, end TYPE smw3_bdoc-snd_date OBLIGATORY DEFAULT sy-datlo, keyword TYPE string LOWER CASE OBLIGATORY DEFAULT 'CRMA'. DATA: lv_bdoc_id TYPE smw3_bdoc1-bdoc_id VALUE 'FA163E8EAB031EE496D7B1616132B3D2', lt_header TYPE STANDARD TABLE OF smw3_bdoc, lv_xml TYPE xstring, lv_count TYPE i, lv_string TYPE string. START-OF-SELECTION. PERFORM main. FORM main. SELECT * INTO TABLE lt_header FROM smw3_bdoc WHERE snd_date >= start AND snd_date <= end. IF sy-subrc <> 0. WRITE: / 'No BDOC exists for given time period.'. RETURN. ENDIF. lv_count = lines( lt_header ). LOOP AT lt_header ASSIGNING FIELD-SYMBOL(<header>). PERFORM display_progress USING sy-tabix. PERFORM get_bdoc_ext_via_id USING <header>-bdoc_id CHANGING lv_xml. CALL FUNCTION 'ECATT_CONV_XSTRING_TO_STRING' EXPORTING im_xstring = lv_xml IMPORTING ex_string = lv_string. FIND keyword IN lv_string. IF sy-subrc = 0. WRITE: / 'found search keyword in BDOC: ' , <header>-bdoc_id. ENDIF. CLEAR: lv_xml, lv_string. ENDLOOP. ENDFORM. FORM get_bdoc_ext_via_id USING iv_id TYPE smw3_bdoc1-bdoc_id CHANGING cv_xml TYPE any. DATA: wa_smw3_bdoc TYPE smw3_fhd, l_dtyp TYPE smw3_ddic1, bdoc_ext TYPE REF TO data. FIELD-SYMBOLS: <b_ext> TYPE any. CALL METHOD cl_smw_bdocstore=>get_bdoc EXPORTING bdoc_id = iv_id get_bdoc_header = 'X' IMPORTING bdoc_header = wa_smw3_bdoc EXCEPTIONS OTHERS = 4. ASSERT sy-subrc = 0. IF wa_smw3_bdoc-ddic2 IS INITIAL. "MESSAGE s006(smw3). " No BDoc extension available (no messaging BDoc). WRITE: / 'Not BDOC extension avaible for BDOC id: ' , lv_bdoc_id. EXIT. ENDIF. * create data refs l_dtyp = wa_smw3_bdoc-ddic2 . CREATE DATA bdoc_ext TYPE (l_dtyp). ASSIGN: bdoc_ext->* TO <b_ext>. CLEAR: <b_ext>. CALL METHOD cl_smw_bdocstore=>get_bdoc EXPORTING bdoc_id = iv_id get_bdoc_header = ' ' get_body_ext = 'X' IMPORTING bdoc_body_ext = <b_ext> EXCEPTIONS invalid_bdoc_id = 1 inconsistent_body = 2 failed = 3 OTHERS = 4. CHECK sy-subrc = 0. PERFORM get_xml_source USING <b_ext> CHANGING cv_xml. CLEAR: <b_ext>, bdoc_ext. ENDFORM. FORM display_progress USING iv_percent. DATA: lv_percent type i, lv_text TYPE string. lv_percent = iv_percent * 100 / lv_count. lv_text = 'In process... ' && lv_percent && '%'. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING PERCENTAGE = lv_percent text = lv_text. eNDFORM. FORM get_xml_source USING is_ext TYPE any CHANGING cv_xml TYPE xstring. DATA: * x_xml_tab TYPE swr_t_html, lv_rc TYPE sy-subrc, lref_document TYPE REF TO if_ixml_document, lref_data_as_dom TYPE REF TO if_ixml_element. * Maps a ABAP variable into a DOM structure CALL FUNCTION 'SDIXML_DATA_TO_DOM' EXPORTING name = 'MESSAGE' dataobject = is_ext * CONTROL = IMPORTING data_as_dom = lref_data_as_dom CHANGING document = lref_document * TYPE_HANDLE = EXCEPTIONS illegal_name = 1 OTHERS = 2. ASSERT sy-subrc = 0. CALL METHOD lref_document->append_child EXPORTING new_child = lref_data_as_dom RECEIVING rval = lv_rc. ASSERT sy-subrc = 0. * SDIXML_DOM_TO_XML CALL FUNCTION 'SDIXML_DOM_TO_XML' EXPORTING document = lref_document IMPORTING xml_as_string = cv_xml EXCEPTIONS OTHERS = 1. ASSERT sy-subrc = 0. ENDFORM.
使用界面：
这段ABAP程序的作用是从SAP系统的smw3_bdoc表中检索指定时间范围内的BDOC（Business Document）数据，然后搜索每个BDOC的内容以查找包含指定关键字的BDOC，并在找到匹配的情况下将其打印出来。以下是详细的说明和示例：
程序名称：zscan_bdoc_via_keyword
程序输入参数：
start：开始日期，用于指定要搜索的BDOC的起始日期，默认为系统当前日期（sy-datlo）。end：结束日期，用于指定要搜索的BDOC的结束日期，默认为系统当前日期（sy-datlo）。keyword：关键字，用于指定要搜索的关键字，默认为"CRMA"。
程序变量说明：
lv_bdoc_id：用于存储固定的BDOC ID。lt_header：标准内表，用于存储从smw3_bdoc表中检索到的BDOC记录。lv_xml：用于存储BDOC的XML数据（以二进制形式）。lv_count：用于存储符合时间范围的BDOC记录数量。lv_string：用于存储将XML数据转换为字符串后的内容。
主要处理逻辑：
- 首先，程序通过
SELECT语句从smw3_bdoc表中检索满足指定时间范围的BDOC记录，并将它们存储在lt_header内表中。 - 如果没有找到符合时间范围的BDOC记录，程序将输出消息 “No BDOC exists for given time period.” 并结束执行。
- 如果找到符合时间范围的BDOC记录，程序将计算符合时间范围的BDOC记录的数量（
lv_count）。 - 然后，程序通过循环遍历
lt_header内表中的每个BDOC记录。 - 在循环中，程序会调用
display_progress子程序以显示搜索进度。 - 接下来，程序将调用
get_bdoc_ext_via_id子程序来获取BDOC的XML数据，并将其存储在lv_xml变量中。 - 然后，程序将XML数据转换为字符串格式。
- 最后，程序在转换后的字符串中搜索指定的关键字，如果找到匹配的关键字，就会打印出BDOC的ID。
下面是示例执行过程：
假设输入参数为：
start：2023年01月01日end：2023年12月31日keyword：‘CRMA’
- 程序首先从
smw3_bdoc表中检索符合时间范围的BDOC记录。 - 如果找到符合条件的BDOC记录，程序将计算符合时间范围的BDOC记录的数量。
- 然后，程序会逐个遍历这些BDOC记录。
- 对于每个BDOC记录，程序会显示搜索进度，并调用
get_bdoc_ext_via_id子程序来获取BDOC的XML数据。 - 获取的XML数据将被转换为字符串。
- 然后，程序将搜索字符串中是否包含关键字’CRMA’。
- 如果找到匹配的关键字，程序将打印出相应的BDOC ID。
示例输出可能如下所示：
In process... 10% In process... 20% In process... 30% found search keyword in BDOC: FA163E8EAB031EE496D7B1616132B3D2 In process... 40% In process... 50% In process... 60% In process... 70% In process... 80% In process... 90%
在这个示例中，程序首先显示搜索进度，然后找到了一个包含关键字’CRMA’的BDOC，该BDOC的ID为’FA163E8EAB031EE496D7B1616132B3D2’，所以程序打印了相应的消息。
程序的主要功能是在指定的BDOC数据集合中搜索关键字，并且能够处理大量的BDOC数据，显示搜索进度，以及将XML数据转换为字符串进行搜索。
