zif_adf_service_graph~create_calendar_event

in src/zadf/zadf_graph/zcl_adf_service_graph.clas.abap [0:0]

• 62 lines of code
• 5 McCabe index (conditional complexity)

  METHOD zif_adf_service_graph~create_calendar_event.
    DATA: lo_response              TYPE REF TO if_rest_entity,
          lo_request               TYPE REF TO if_rest_entity,
          lv_expiry                TYPE string,
          lv_sas_token             TYPE string,
          lv_msg                   TYPE string,
          lv_path_prefix           TYPE string,
          lcx_adf_service          TYPE REF TO zcx_adf_service,
          lv_host                  TYPE rfcdisplay-rfchost,
          lv_host_s                TYPE string,
          lv_http_events           TYPE i,
          lv_result_calendar_event TYPE  zif_adf_service_graph~calendar_event,
          lv_body_xstring          TYPE xstring.

    IF go_rest_api IS BOUND.

      DATA(lv_calendar_event) = iv_calendar_event.

      " Get id for user
      lv_path_prefix = |/users/{ iv_calendar_event-organizer-emailaddress-address }/calendar/events|.


      go_rest_api->zif_rest_framework~set_uri( lv_path_prefix ).

      lv_host_s = gv_host.
**Add header attributes in REST call.
      add_request_header( iv_name = 'Content-Type' iv_value = 'application/json; charset=utf-8' ).
      add_request_header( iv_name = 'Host' iv_value = lv_host_s ).
      add_request_header( iv_name = 'Authorization' iv_value = |Bearer | && iv_aad_token ).

      DATA(lv_body_json) = /ui2/cl_json=>serialize( data = iv_calendar_event compress = abap_true pretty_name = /ui2/cl_json=>pretty_mode-camel_case ).

      CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
        EXPORTING
          text   = lv_body_json
        IMPORTING
          buffer = lv_body_xstring.
      IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
      go_rest_api->zif_rest_framework~set_binary_body( lv_body_xstring ).

**Rest API call to get response from Azure Destination
      lo_response = go_rest_api->zif_rest_framework~execute(
        io_entity = lo_request
        async     = gv_asynchronous
        is_retry  = gv_is_try
      ).
      ev_http_status = go_rest_api->get_status( ).
      IF lo_response IS BOUND.
        DATA(lo_response_string) = lo_response->get_string_data( ).

        /ui2/cl_json=>deserialize(
                        EXPORTING
                          json = lo_response_string   " Data to serialize
                          pretty_name = abap_true    " Pretty Print property names
                        CHANGING
                          data = lv_result_calendar_event
                      ).
        response = lv_result_calendar_event.
      ELSE.
        RAISE EXCEPTION TYPE zcx_adf_service
          EXPORTING
            textid       = zcx_adf_service=>restapi_response_not_found
            interface_id = gv_interface_id.
      ENDIF.

      IF ev_http_status <> 201. " Created
        DATA(lt_errors) = json_to_http_fields( iv_response_data = lo_response_string ).
        READ TABLE lt_errors ASSIGNING FIELD-SYMBOL(<fs_error>) INDEX 1.

        RAISE EXCEPTION TYPE zcx_adf_service_graph
          EXPORTING
            textid         = zcx_adf_service_graph=>general_exception
            error_response = <fs_error>-value.

      ENDIF.

      go_rest_api->close( ).
    ENDIF.