DATA: lo_contract  TYPE REF TO if_recn_contract,
      lo_term_mngr TYPE REF TO if_retm_term_mngr,
      lo_eval_rule TYPE REF TO if_rece_term_mngr.

cf_recn_contract=>find(
  EXPORTING
    id_bukrs       = '1000'                 " Company Code
    id_recnnr      = '1102000000037'                 " Real Estate Contract Number
    id_activity    = '02'
    if_auth_check  = abap_true
  RECEIVING
    ro_instance    = lo_contract                 " Contract
  EXCEPTIONS
    error          = 1                " Error
    OTHERS         = 2
).

lo_term_mngr = lo_contract->get_term_mngr( ).
lo_eval_rule ?= lo_term_mngr->get_specific_term_mngr( '1500' ).

lo_eval_rule->set_status_cond_rule(
  EXPORTING
    id_termno         = '0020'
    id_statuscondrule = 'C'
    if_auth_check     = abap_true
  EXCEPTIONS
    error             = 1
    OTHERS            = 2
).

CALL METHOD cf_reca_storable=>commit
  EXPORTING
    if_wait         = abap_true
    if_reset_buffer = abap_true.