delete_process_chain

in src/zgoog_cl_bqtr_gen_bw_object.clas.abap [0:0]

• 35 lines of code
• 3 McCabe index (conditional complexity)

  METHOD delete_process_chain.
    CLEAR: et_return, ev_sy_subrc.

    DATA: lo_chain   TYPE REF TO cl_rspc_chain,
          lt_variant TYPE  rspc_t_variante.

* ==== Create Chain-Object ====
    CREATE OBJECT lo_chain
      EXPORTING
        i_chain         = iv_chain                 " Process chain
        i_objvers       = mv_objver
        i_with_dialog   = ''              " With online
        i_new           = abap_false
      EXCEPTIONS
        aborted_by_user = 1                " User would actually rather not process a chain ...
        not_unique      = 2                " Selection not unique - & user requests not allowed
        wrong_name      = 3                " Incorrect Name of (New) Chain
        display_only    = 4                " Only Display Allowed
        OTHERS          = 5.
    IF sy-subrc <> 0.
      ev_sy_subrc = sy-subrc.
      /goog/cl_bqtr_utility=>add_bapiret2_from_sy(
        CHANGING
          ct_bapiret2 = et_return ).
      RETURN.
    ENDIF.

    lo_chain->delete(
      EXCEPTIONS
        failed = 1                " Failed
        OTHERS = 2
    ).
    IF sy-subrc <> 0.
      ev_sy_subrc = sy-subrc.
      /goog/cl_bqtr_utility=>add_bapiret2_from_sy(
        CHANGING
          ct_bapiret2 = et_return ).
      RETURN.
    ENDIF.