使用 ABAP CRM 函数 CRM_BSP_OIC_1O_SEARCH_FROM_RF 查找指定 guid的数据

源代码：

REPORT zappointment_get_entity.

DATA: lt_search_tab TYPE crmt_name_value_pair_tab,
      ls_search_tab LIKE LINE OF lt_search_tab,
      lt_multiple   TYPE crmt_bsp_search_multi_val_tab,
      ls_multiple   LIKE LINE OF lt_multiple,
      ls_selection  LIKE LINE OF ls_multiple-searchvalues,
      lt_return     TYPE bapiret2_t,
      lt_guid       TYPE crmt_bsp_objectkey_tab.

ls_search_tab-name = 'OBJECT_TYPE'.
ls_search_tab-value = 'BUS2000110'.
APPEND ls_search_tab TO lt_search_tab.
CLEAR: ls_search_tab.
ls_search_tab-name = 'TEMPLATE_TYPE'.
APPEND ls_search_tab TO lt_search_tab.

ls_multiple-fieldname = 'GUID'.
ls_selection-low = '3440B5B172DE1EE58AD4A2D26F48427F'.
ls_selection-sign = 'I'.
ls_selection-option = 'EQ'.
APPEND ls_selection TO ls_multiple-searchvalues.
APPEND ls_multiple TO lt_multiple.
CLEAR: ls_multiple.
ls_multiple-fieldname = 'OBJECT_ID'.
APPEND ls_multiple TO lt_multiple.

CALL FUNCTION 'CRM_BSP_OIC_1O_SEARCH_FROM_RF'
  EXPORTING
    it_search_tab             = lt_search_tab
    it_multivalues            = lt_multiple
    iv_extern_call            = 'X'
    iv_select_for_headerlevel = 'X'
    iv_call_authority_badi    = 'X'
    iv_obj_il                 = 'BTQACT'
  IMPORTING
    et_guidlist               = lt_guid
    et_return                 = lt_return
  EXCEPTIONS
    date_not_correct          = 1
    no_card_type              = 2
    no_card_no                = 3
    no_program_id             = 4
    OTHERS                    = 5.
IF sy-subrc <> 0.
  WRITE: / 'error occurred: ' , sy-subrc.
  RETURN.
ENDIF.

BREAK-POINT.

执行结果：