create_trigger

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

• 31 lines of code
• 4 McCabe index (conditional complexity)

  METHOD create_trigger.


    CLEAR: et_return, ev_sy_subrc.
    DATA: lt_process_data TYPE rspc_t_variante,
          lv_trigger      TYPE string,
          ls_startspecs   TYPE  tbtcstrt.

    ls_startspecs-startdttyp  = 'I'.
    ls_startspecs-periodic    = abap_true.

    IF iv_prdmin IS NOT INITIAL.
      ls_startspecs-prdmins = iv_prdmin.
    ELSEIF iv_prdhours IS NOT INITIAL.
      ls_startspecs-prdhours = iv_prdhours.
    ELSE.
      "Default to 1 min.
      ls_startspecs-prdmins     = '01'.
    ENDIF.

    lv_trigger = iv_trigger.

    CALL FUNCTION 'RSPC_TRIGGER_GENERATE'
      EXPORTING
        i_variant      = CONV rspc_variant( lv_trigger )
        i_variant_text = 'Start Trigger'
        i_startspecs   = ls_startspecs                 " Start Data Description / Repetition Period of Background Job
*       i_meta         =                  " Start via meta chain
*       i_no_transport =                  " No Transport Connection
*       i_modify       =                  " No error if existence
      EXCEPTIONS
        exists         = 1                " already exists
        failed         = 2                " Failed
        OTHERS         = 3.
    IF sy-subrc <> 0.
      ev_sy_subrc = sy-subrc.
      /goog/cl_bqtr_utility=>add_bapiret2_from_sy(
        CHANGING
          ct_bapiret2 = et_return ).
      RETURN.
    ENDIF.