RTHMHR_DISSOLVE_WHEN_INEFF SAP ABAP Report - Dissolve Ineffective Hedging Relationships (Retrospective)

RTHMHR_DISSOLVE_WHEN_INEFF is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter RTHMHR_DISSOLVE_WHEN_INEFF into the relevant SAP transactions such as SE38 or SE80

Transaction Code(s):

Below is a list of transaction codes which are relevant to this SAP report

THM52 - Retrospective Assessment

ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.

Text pool values

INCLUDES used within this REPORT RTHMHR_DISSOLVE_WHEN_INEFF

INCLUDE THMHR_DISSOLVE_WHEN_INEFF_TOP.

TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!

Function Modules used within report and the associated call statement:

LVC_VARIANT_DEFAULT_GET
    CALL FUNCTION 'LVC_VARIANT_DEFAULT_GET'
      EXPORTING
        i_save     = save_var
      CHANGING
        cs_variant = def_variant
      EXCEPTIONS
        not_found  = 2.

LVC_VARIANT_F4
  CALL FUNCTION 'LVC_VARIANT_F4'
    EXPORTING
      is_variant = def_variant
      i_save     = save_var
    IMPORTING
      e_exit     = g_exit
      es_variant = def_variant
    EXCEPTIONS
      not_found  = 1
      OTHERS     = 2.

LVC_VARIANT_EXISTENCE_CHECK
    CALL FUNCTION 'LVC_VARIANT_EXISTENCE_CHECK'
      EXPORTING
        i_save        = save_var
      CHANGING
        cs_variant    = ls_variant
      EXCEPTIONS
        wrong_input   = 1
        not_found     = 2
        program_error = 3
        OTHERS        = 4.

THMEX_AUTHORITY_BUK_LIST
  CALL FUNCTION 'THMEX_AUTHORITY_BUK_LIST'
    EXPORTING
      im_activ_auth         = thmex_con_activ_chg
      im_rng_company_code   = s_bukrs[]
    IMPORTING
      ex_rng_company_code   = l_rng_company_code
    EXCEPTIONS
      no_company_code_found = 1
      no_authority          = 2
      OTHERS                = 99.

THMH_HEDGE_READ
    CALL FUNCTION 'THMH_HEDGE_READ'
      EXPORTING
        cocode            = loc_val-bukrs
        hedge_id          = loc_val-hedge_id
      IMPORTING
        e_thmt_hedge_item = l_tab_hedge
      EXCEPTIONS
        no_hedge_found    = 1
        db_error          = 2
        OTHERS            = 3.

THMHR_DET_LATEST_HR_VERSION
    CALL FUNCTION 'THMHR_DET_LATEST_HR_VERSION'
      TABLES
        hr          = loc_tab_hr
      EXCEPTIONS
        no_input_hr = 0
        OTHERS      = 0.

TB_DEAL_AUTHORITY_CHECK
    CALL FUNCTION 'TB_DEAL_AUTHORITY_CHECK'
      EXPORTING
        bukrs   = loc_hr-bukrs
        sgsart  = loc_hr-sgsart
        sfhaart = loc_hr-sfhaart
        trfct   = '03'
        actvt   = '48'
      EXCEPTIONS
        OTHERS  = 1.

GET_DOMAIN_VALUES
      CALL FUNCTION 'GET_DOMAIN_VALUES'
        EXPORTING
          domname         = 'THM_HEDGE_CATEGORY'
        TABLES
          values_tab      = l_values_tab
        EXCEPTIONS
          no_values_found = 0
          OTHERS          = 0.

THMHR_BATCH_HEDGE_EXPIRE_DATE
    CALL FUNCTION 'THMHR_BATCH_HEDGE_EXPIRE_DATE'
      EXPORTING
        i_bukrs        = loc_hr-bukrs
        i_planner      = l_str_hedge-planner_id
        i_hedge        = loc_hr-hedge_id
        i_val_area     = loc_hr-valuation_area
      IMPORTING
        e_date         = loc_wa_disp-expdte
      EXCEPTIONS
        no_hedge_found = 0
        OTHERS         = 0.

THMHR_READ_TZPAT
    CALL FUNCTION 'THMHR_READ_TZPAT'
      EXPORTING
        language  = sy-langu
        prod_type = loc_hr-sgsart
      IMPORTING
        prodtxt   = prod_txt
      EXCEPTIONS
        no_entry  = 1.

TPM_DTIL_GET_OCI_PER_HR
    CALL FUNCTION 'TPM_DTIL_GET_OCI_PER_HR'
      EXPORTING
        im_key_date            = key_date
        im_hedge_id            = loc_hr-hedge_id
        im_bukrs               = loc_hr-bukrs
        im_rfha                = loc_hr-rfha
      IMPORTING
        ex_oci_amount          = oci_amt
      EXCEPTIONS
        prod_cat_not_supported = 1
        deal_not_found         = 2
        OTHERS                 = 3.

TRCA_COMPANYCODE_GETDETAIL
    CALL FUNCTION 'TRCA_COMPANYCODE_GETDETAIL'
      EXPORTING
        companycode = loc_hr-bukrs
      IMPORTING
        currency    = oci_curr
      EXCEPTIONS
        not_found   = 0.

TB_DEAL_AUTHORITY_CHECK
    CALL FUNCTION 'TB_DEAL_AUTHORITY_CHECK'
      EXPORTING
        bukrs   = loc_tab_hr_out-bukrs
        sgsart  = loc_tab_hr_out-sgsart
        sfhaart = loc_tab_hr_out-sfhaart
        trfct   = '03'
        actvt   = '16'
      EXCEPTIONS
        OTHERS  = 1.

THMHR_HR_MASS_DISSOLVE
    CALL FUNCTION 'THMHR_HR_MASS_DISSOLVE'
      EXPORTING
        show_reclass_popup  = tpmco_xfalse
        im_protocol_handler = l_p_protocol_handler
        im_reclass_origin   = tpmco_tril_recl_dissolve
      IMPORTING
        t_diss              = loc_tab_diss_succ[]
      TABLES
        t_to_be_diss        = loc_tab_hr_out
      EXCEPTIONS
        no_input_table      = 1
        reclass_failed      = 2
        bad_numkr_config    = 3
        OTHERS              = 4.

THMHR_HR_TAB_VAL_DBASE_ACCESS
        CALL FUNCTION 'THMHR_HR_TAB_VAL_DBASE_ACCESS' IN UPDATE TASK
          EXPORTING
            flag = db_update
            val  = loc_tab_val_ut.