anchor.diff:      lv_xstring = iv_data(lv_len).
       lv_sha1 = lcl_hash=>sha1_raw( lv_xstring ).
       IF lv_sha1 <> lv_data.
  -      BREAK-POINT.
  +      RAISE EXCEPTION TYPE lcx_exception
  +        EXPORTING
  +          iv_text = 'SHA1 at end of pack doesnt match'.     "#EC NOTEXT
       ENDIF.
   
     ENDMETHOD.                    "decode
  
positive.code:     li_client->send( ).
      li_client->receive( ).
  
  *    DATA: lt_fields      TYPE tihttpnvp.
  *    li_client->response->get_header_fields( CHANGING fields = lt_fields ).
  *    BREAK-POINT.
  
      li_client->response->get_status(
        IMPORTING
          code   = lv_code ).
      IF c_debug_http = abap_true.
        WRITE: / 'HTTP_STATUS_CODE = ', lv_code.
      ENDIF.
      lv_data = li_client->response->get_cdata( ).
  
  
negative.code:     CLASS-METHODS: encode_commit IMPORTING is_commit TYPE st_commit
                           RETURNING value(rv_data) TYPE xstring.
  
  
    PRIVATE SECTION.
  
      CONSTANTS: c_debug_pack TYPE abap_bool VALUE abap_false,
                 c_pack_start TYPE x LENGTH 4 VALUE '5041434B',
                 c_zlib       TYPE x LENGTH 2 VALUE '789C',
  