*&------------------------------------------------------------------*
*& Report ZREP_BOPF_DEMO_1
*&------------------------------------------------------------------*
*& How to get a service manager instance and use it to access BOPF
*&------------------------------------------------------------------*
REPORT zrep_bopf_demo_1.
FIELD-SYMBOLS: <ls_root> TYPE /scmtms/s_trq_root_k,
 <ls_item> TYPE /scmtms/s_trq_item_k,
 <ls_link> TYPE /bobf/s_frw_key_link,
 <ls_loc> TYPE /scmtms/s_bo_loc_root_k,
 <ls_txc> TYPE /bobf/s_txc_con_k,
 <ls_msg> TYPE /bobf/s_frw_message_k.
DATA: lo_srv_trq TYPE REF TO /bobf/if_tra_service_manager,
 ls_selpar TYPE /bobf/s_frw_query_selparam,
 lt_selpar TYPE /bobf/t_frw_query_selparam,
 lo_message TYPE REF TO /bobf/if_frw_message,
 ls_query_inf TYPE /bobf/s_frw_query_info,
 lt_key TYPE /bobf/t_frw_key,
 lt_root TYPE /scmtms/t_trq_root_k,
 lt_failed_key TYPE /bobf/t_frw_key,
 lt_item TYPE /scmtms/t_trq_item_k,
 lt_link TYPE /bobf/t_frw_key_link,
 lt_item_key TYPE /bobf/t_frw_key,
 lt_target_key TYPE /bobf/t_frw_key,
 lt_loc_root TYPE /scmtms/t_bo_loc_root_k,
 lv_text_assoc_key TYPE /bobf/conf_key,
 lt_link_txctext TYPE /bobf/t_frw_key_link,
 lt_txc_text_key TYPE /bobf/t_frw_key,
 lv_text_node_key TYPE /bobf/conf_key,
 lv_content_node_key TYPE /bobf/conf_key,
 lv_content_assoc_key TYPE /bobf/conf_key,
 lt_txc_content TYPE /bobf/t_txc_con_k,
 lo_change TYPE REF TO /bobf/if_tra_change,
 lr_action_param TYPE REF TO /scmtms/s_trq_a_confirm,
 lt_msg TYPE /bobf/t_frw_message_k,
 lv_str TYPE string,
 lo_msg TYPE REF TO /bobf/cm_frw,
 lt_trq_id TYPE /scmtms/t_trq_id,
 lt_trq_root_key TYPE /bobf/t_frw_key.
* Get an instance of a service manager for e.g. BO TRQ
lo_srv_trq = /bobf/cl_tra_serv_mgr_factory=>get_service_manager(
 /scmtms/if_trq_c=>sc_bo_key ).
BREAK-POINT.
* Set an example query parameter
ls_selpar-attribute_name = /scmtms/if_trq_c=>sc_query_attribute-rootquery_by_attributes-created_by.
ls_selpar-option = 'EQ'.
ls_selpar-sign = 'I'.
ls_selpar-low = 'POLCH'.
APPEND ls_selpar TO lt_selpar.
BREAK-POINT.
* Use method QUERY of the service manager to start the query
lo_srv_trq->query(
 EXPORTING
 iv_query_key = /scmtms/if_trq_c=>sc_query-root-
 query_by_attributes
 it_selection_parameters = lt_selpar
 IMPORTING
 eo_message = lo_message
 es_query_info = ls_query_inf
 et_key = lt_key ).
BREAK-POINT.