diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap index 55ee875c8..7adc6cfd0 100644 --- a/zabapgit.prog.abap +++ b/zabapgit.prog.abap @@ -19546,22 +19546,11 @@ CLASS lcl_gui_page_main IMPLEMENTATION. lv_string TYPE string. FIELD-SYMBOLS: LIKE LINE OF lt_fields. -* TYPE any. - + CLEAR: ev_key, es_file. lv_string = iv_string. " type conversion lt_fields = cl_http_utility=>if_http_utility~string_to_fields( lv_string ). -* LOOP AT lt_fields ASSIGNING . -* ASSIGN COMPONENT -name OF STRUCTURE es_file TO . -* IF sy-subrc <> 0. -* CONTINUE. " more structures might be encoded in same string -* ENDIF. -* -* = -value. -* ENDLOOP. - - CLEAR: ev_key, es_file. READ TABLE lt_fields ASSIGNING WITH KEY name = 'KEY'. IF sy-subrc = 0. ev_key = -value. @@ -19600,25 +19589,8 @@ CLASS lcl_gui_page_main IMPLEMENTATION. METHOD file_encode. DATA: lt_fields TYPE tihttpnvp, -* lo_descr_ref TYPE REF TO cl_abap_structdescr, ls_field LIKE LINE OF lt_fields. -* FIELD-SYMBOLS: LIKE LINE OF lo_descr_ref->components, -* TYPE any. -* -* -* lo_descr_ref ?= cl_abap_typedescr=>describe_by_data( is_file ). -* -* LOOP AT lo_descr_ref->components ASSIGNING . -* -* ASSIGN COMPONENT -name OF STRUCTURE is_file TO . -* ASSERT sy-subrc = 0. -* -* ls_field-name = -name. -* ls_field-value = . -* APPEND ls_field TO lt_fields. -* ENDLOOP. - ls_field-name = 'KEY'. ls_field-value = iv_key. APPEND ls_field TO lt_fields.