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().
PERFORM display_progress USING sy-tabix.
PERFORM get_bdoc_ext_via_id USING -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: ' , -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: 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 .
CLEAR: .
CALL METHOD cl_smw_bdocstore=>get_bdoc
EXPORTING
bdoc_id = iv_id
get_bdoc_header = ' '
get_body_ext = 'X'
IMPORTING
bdoc_body_ext =
EXCEPTIONS
invalid_bdoc_id = 1
inconsistent_body = 2
failed = 3
OTHERS = 4.
CHECK sy-subrc = 0.
PERFORM get_xml_source USING CHANGING cv_xml.
CLEAR: , 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.
