Extract dhRecbto & digVal tags from CT-e's XML

Z_CTE_EXTRACT_TAGS.abap

  DATA: lv_xml_string TYPE string,
        ls_xml_cte TYPE /XNFE/INCTEXML,
        lv_split1 TYPE string,
        lv_split2 TYPE string,
        lv_digval TYPE string,
        lv_dhrecbto TYPE string.

  CALL FUNCTION '/XNFE/B2BCTE_READ_CTE_WO_LOCK'
    EXPORTING
      IV_CTE_ID          = '35170712343517071234351707123435170712341234' "Your access key
    IMPORTING
      ES_XML_CTE         = ls_xml_cte
    EXCEPTIONS
      CTE_DOES_NOT_EXIST = 1
      CTE_LOCKED         = 2
      TECHNICAL_ERROR    = 3
      OTHERS             = 4.

  if sy-subrc <> 0.
    WRITE: 'Error while calling /XNFE/B2BCTE_READ_CTE_WO_LOCK: subrc ', sy-subrc.
    STOP.
  endif.

  CALL FUNCTION '/XNFE/XML_XSTRING2STRING'
  EXPORTING
    inxstring = ls_xml_cte-xmlstring
  IMPORTING
    outstring = lv_xml_string.

  SPLIT lv_xml_string AT '<infProt>' INTO lv_split1 lv_split2.
  SPLIT lv_split2 AT '</infProt>' INTO lv_xml_string lv_split2.

  SPLIT lv_xml_string AT '<dhRecbto>' INTO lv_split1 lv_split2.
  SPLIT lv_split2 AT '</dhRecbto>' INTO lv_dhrecbto lv_split2.

  SPLIT lv_xml_string AT '<digVal>' INTO lv_split1 lv_split2.
  SPLIT lv_split2 AT '</digVal>' INTO lv_digval lv_split2.

  WRITE: / 'dhRecbto = ', lv_dhrecbto,
         /, 'DigVal = ', lv_digval.