anchor.diff:        WHEN gc_ref_d.
           lv_type = '111'.
         WHEN OTHERS.
  -        RAISE EXCEPTION TYPE lcx_exception
  -          EXPORTING
  -            iv_text = 'Unexpected object type while encoding pack'. "#EC NOTEXT
  +        _raise 'Unexpected object type while encoding pack'.
       ENDCASE.
   
       lv_x4 = xstrlen( is_object-data ).
  
positive.code: ENDCLASS.                    "lcx_exception IMPLEMENTATION
  
  *----------------------------------------------------------------------*
  *       CLASS lcl_xml DEFINITION
  *----------------------------------------------------------------------*
  *
  
negative.code:       CONCATENATE lv_result '0' lv_bits+21(7) INTO lv_result.
      ELSE.
  * use shifting?
        _raise 'Todo, encoding length'.
      ENDIF.
  
  * convert bit string to xstring
  