DATA:
    lr_idoc_xml       TYPE REF TO cl_idoc_xml1 ,
    lv_file_xstring   TYPE xstring ,
    lv_file_length    TYPE i .

*-->> create IDoc object
  CREATE OBJECT lr_idoc_xml
    EXPORTING
      docnum = pv_docnum   " -->> IDoc number
    EXCEPTIONS
      OTHERS = 1 .
  IF sy-subrc NE 0
  OR lr_idoc_xml IS NOT BOUND .
*   MSG: Error creating IDOC object
    MESSAGE i000(lp) WITH pv_docnum ':' text-m02 .
    EXIT .
  ENDIF .

*-->> get IDoc data
  lr_idoc_xml->get_xmldata_as_xstring(
      EXPORTING encoding    = '4110'   " -->> utf_8
                ignore_cerr = abap_true
      IMPORTING data_string = lv_file_xstring
                len         = lv_file_length ) .
  IF lv_file_length EQ 0 .
*   MSG: Error getting XML data
    MESSAGE i000(lp) WITH pv_docnum ':' text-m03 .
    EXIT .
  ENDIF .

*-->> get control record
  DATA ls_edidc TYPE edidc .
  ls_edidc = lr_idoc_xml->get_controlrecord( ) .