REPORT znote.
PARAMETERS: note TYPE cwbntkeylg-numm OBLIGATORY DEFAULT '2184333'.
DATA: lv_insta TYPE cwbntinsta,
ls_note_key TYPE cwbntkeylg,
lv_full_length TYPE i,
lt_comp TYPE abap_compdescr_tab,
lv_data_bin TYPE xstring,
lv_code_delta_bin TYPE xstring,
lt_object_data_bin TYPE cwbci_t_objdelta,
lv_rfcmsg LIKE scwbrfcmsg-text,
lv_key TYPE hash160,
lv_check_key TYPE hash160,
lv_offset TYPE i,
lv_max_length TYPE i,
lv_data TYPE xstring,
lv_chunk_data TYPE xstring,
lv_unzipped_size TYPE i,
lt_cwbnthead LIKE cwbnthead OCCURS 0,
lt_cwbntstxt LIKE cwbntstxt OCCURS 0,
lt_cwbntdata TYPE bcwbn_note_text OCCURS 0,
lt_cwbntdata_html TYPE bcwbn_notehtml_text OCCURS 0,
lt_cwbntvalid LIKE cwbntvalid OCCURS 0,
lt_cwbntci LIKE cwbntci OCCURS 0,
lt_cwbntfixed LIKE cwbntfixed OCCURS 0,
lt_cwbntgattr LIKE cwbntgattr OCCURS 0,
lt_cwbcihead LIKE cwbcihead OCCURS 0,
lt_cwbcidata TYPE bcwbn_cinst_delta OCCURS 0,
lt_cwbcidata_ref TYPE cwb_deltas,
lt_cwbcivalid LIKE cwbcivalid OCCURS 0,
lt_cwbciinvld LIKE cwbciinvld OCCURS 0,
lt_cwbcifixed LIKE cwbcifixed OCCURS 0,
lt_cwbcidpndc LIKE cwbcidpndc OCCURS 0,
lt_cwbciobj LIKE cwbciobj OCCURS 0,
lt_cwbcmpnt LIKE cwbcmpnt OCCURS 0,
lt_cwbcmtext LIKE cwbcmtext OCCURS 0,
lt_cwbcmlast LIKE cwbcmlast OCCURS 0,
lt_cwbdehead LIKE cwbdehead OCCURS 0,
lt_cwbdeprdc LIKE cwbdeprdc OCCURS 0,
lt_cwbdetrack LIKE cwbdetrack OCCURS 0,
lt_cwbdeequiv LIKE cwbdeequiv OCCURS 0,
lt_cwbcinstattr TYPE cwbci_t_attr.
START-OF-SELECTION.
PERFORM main.
FORM main.
ls_note_key-langu = 'E'.
ls_note_key-numm = note.
CALL FUNCTION 'SLIC_GET_LICENCE_NUMBER'
IMPORTING
license_number = lv_insta.
CALL FUNCTION 'BHREM_SAPNOTE_RFC_GET_CHUNKED' DESTINATION 'SAPSNOTE'
EXPORTING
is_note_key_lg = ls_note_key
iv_check_status = 'X'
iv_insta_cust = lv_insta
iv_na_fmt_id = 3
IMPORTING
ev_full_length = lv_full_length
ev_chunk_data = lv_chunk_data
CHANGING
cv_key = lv_key
cv_chunk_offset = lv_offset
cv_chunk_max_length = lv_max_length
EXCEPTIONS
system_failure = 1 MESSAGE lv_rfcmsg
communication_failure = 2 MESSAGE lv_rfcmsg
note_not_exist = 3
note_not_released = 4
note_langu_not_exist = 5
pack_error = 6
note_incomplete = 7
note_format_error = 8
protocol_error = 9
OTHERS = 10.
IF sy-subrc <> 0.
WRITE: / 'note download failed: ', lv_rfcmsg.
RETURN.
ENDIF.
WRITE: / 'size ( compressed ):', lv_full_length.
lv_data = lv_chunk_data.
CALL FUNCTION 'CALCULATE_HASH_FOR_RAW'
EXPORTING
alg = 'SHA1'
data = lv_data
IMPORTING
hash = lv_check_key
EXCEPTIONS
unknown_alg = 1
param_error = 2
internal_error = 3
OTHERS = 4.
IF lv_check_key <> lv_key.
WRITE:/ 'note key verification failed.'.
RETURN.
ENDIF.
cl_abap_gzip=>decompress_binary( EXPORTING gzip_in = lv_data
IMPORTING raw_out = lv_data ).
CALL TRANSFORMATION id SOURCE XML lv_data
RESULT xml_data_bin = lv_data_bin
xml_code_delta_bint = lv_code_delta_bin
xml_object_data_bin = lt_object_data_bin.
CALL FUNCTION 'SCWN_NOTE_UNPACK_XML'
EXPORTING
iv_data_bin = lv_data_bin
iv_code_delta_bin = lv_code_delta_bin
it_object_data_bin = lt_object_data_bin
IMPORTING
et_cwbnthead = lt_cwbnthead
et_cwbntstxt = lt_cwbntstxt
et_htmltext = lt_cwbntdata_html
et_cwbntdata = lt_cwbntdata
et_cwbntvalid = lt_cwbntvalid
et_cwbntci = lt_cwbntci
et_cwbntfixed = lt_cwbntfixed
et_cwbntgattr = lt_cwbntgattr
et_cwbcihead = lt_cwbcihead
et_cwbcidata = lt_cwbcidata
et_cwbcidata_ref = lt_cwbcidata_ref
et_cwbcivalid = lt_cwbcivalid
et_cwbciinvld = lt_cwbciinvld
et_cwbcifixed = lt_cwbcifixed
et_cwbcidpndc = lt_cwbcidpndc
et_cwbciobj = lt_cwbciobj
et_cwbcmpnt = lt_cwbcmpnt
et_cwbcmtext = lt_cwbcmtext
et_cwbcmlast = lt_cwbcmlast
et_cwbdehead = lt_cwbdehead
et_cwbdeprdc = lt_cwbdeprdc
et_cwbdetrack = lt_cwbdetrack
et_cwbdeequiv = lt_cwbdeequiv
et_cwbcinstattr = lt_cwbcinstattr
EXCEPTIONS
corrupt_data_file = 1
incompatible_versions = 2
OTHERS = 3.
PERFORM cal_obj_data_bin_size USING lt_object_data_bin CHANGING lv_unzipped_size.
WRITE: / 'uncompressed size: (byte): ' , lv_unzipped_size.
BREAK-POINT.
ENDFORM.
FORM cal_obj_data_bin_size USING it_obj_data TYPE cwbci_t_objdelta CHANGING iv_total_size TYPE i.
DATA(lo_tab_type) = CAST cl_abap_tabledescr( cl_abap_typedescr=>describe_by_name( 'CWBCI_T_OBJDELTA' ) ).
DATA(lo_line_type) = CAST cl_abap_structdescr( lo_tab_type->get_table_line_type( ) ).
lt_comp = lo_line_type->components.
LOOP AT it_obj_data ASSIGNING FIELD-SYMBOL().
PERFORM calculate_line_size USING CHANGING iv_total_size.
ENDLOOP.
ENDFORM.
FORM calculate_line_size USING is_line_data TYPE cwbciobjdelta CHANGING iv_total_size TYPE i.
DO.
ASSIGN COMPONENT sy-index OF STRUCTURE is_line_data TO FIELD-SYMBOL().
IF sy-subrc <> 0.
EXIT.
ENDIF.
READ TABLE lt_comp ASSIGNING FIELD-SYMBOL() INDEX sy-index.
CASE -type_kind.
WHEN cl_abap_typedescr=>typekind_char OR cl_abap_typedescr=>typekind_num.
iv_total_size = iv_total_size + strlen( ) * 2.
WHEN cl_abap_typedescr=>typekind_xstring.
iv_total_size = iv_total_size + xstrlen( ).
WHEN OTHERS.
ASSERT 1 = 0.
ENDCASE.
ENDDO.
ENDFORM.
