SAP CRM product 主数据搜索，如何采用 ABAP 代码来实现

*&---------------------------------------------------------------------*
*& Report ZBOL_SEARCH_BY_ID
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zbol_search_by_id.
DATA: lo_core        TYPE REF TO cl_crm_bol_core,
      lo_collection  TYPE REF TO if_bol_entity_col,
      lv_view_name   TYPE crmt_view_name,
      lt_select_para TYPE genilt_selection_parameter_tab,
      lv_size        TYPE i.
APPEND INITIAL LINE TO lt_select_para ASSIGNING FIELD-SYMBOL(<single>).
*<single> = VALUE #( attr_name = 'PRODUCT_ID' sign = 'I' option = 'EQ'
*  low = 'JERRYTESTFORISSUE5' ).
<single> = VALUE #( attr_name = 'ONLY_01_02' sign = 'I' option = 'EQ'
  low = 'X' ).
data(id) = value genilt_selection_parameter( attr_name = 'PRODUCT_ID'
sign = 'I' option = 'EQ' low = 'JAVASCRIPT').
append id to lt_select_para.
lo_core = cl_crm_bol_core=>get_instance( ).
lo_core->load_component_set( 'PROD_ALL' ).
DATA(ls_query_parameter) = VALUE genilt_query_parameters( max_hits = 100 ).
lo_collection = lo_core->dquery(
    iv_query_name               = 'ProdAdvSearchRgProducts'
    it_selection_parameters     = lt_select_para
    iv_view_name                = lv_view_name
    is_query_parameters         = ls_query_parameter ).
lv_size = lo_collection->if_bol_bo_col~size( ).
WRITE:/ 'size:', lv_size.
"ASSERT lv_size = 1.
IF lv_size > 0.
  WRITE:/ 'ok'.
ELSE.
  WRITE:/ 'FAIL'.
ENDIF.
DATA(FIRST) = lo_collection->get_first( ).
DATA(LV_ID) = FIRST->get_property_as_string( 'PRODUCT_ID' ).
WRITE:/ | PRODUCT ID: { lv_id } | COLOR COL_GROUP.