REPORT zget_settype_config.
PARAMETERS: id TYPE comt_frgtype_id OBLIGATORY DEFAULT 'ZPROD_CCTV_SET'.INCLUDE com_settype_attribute_const03.
DATA:ls_pril_obj TYPE crmt_pril_obj,ls_settype TYPE comt_settype_ext,lv_settype_guid TYPE comt_settype_guid32,lv_viewname_ov TYPE o2pageext,lv_viewname_eov TYPE o2pageext,lv_viewname_edit TYPE o2pageext,lv_viewname_ov_attr TYPE o2pageext,lv_viewname_eov_attr TYPE o2pageext,lv_viewname_edit_attr TYPE o2pageext,lt_message TYPE bapiret2_tab,lv_counter TYPE i VALUE 0.CALL FUNCTION 'COM_SETTYPE_READ_SINGLE'EXPORTINGiv_settype_id = idIMPORTINGes_settype = ls_settypeEXCEPTIONSnot_found = 1no_import_values = 2no_text_found = 3OTHERS = 4.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CALL FUNCTION 'CRM_PRIL_SETTYPE_GET_VIEW_NAME'EXPORTINGis_settype = ls_settypeIMPORTINGev_viewname_ov = lv_viewname_ovev_viewname_eov = lv_viewname_eovev_viewname_edit = lv_viewname_editev_viewname_ov_attr = lv_viewname_ov_attrev_viewname_eov_attr = lv_viewname_eov_attrev_viewname_edit_attr = lv_viewname_edit_attrEXCEPTIONSsettype_not_found = 1OTHERS = 2.IF sy-subrc NE 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4RAISING settype_not_found.ENDIF.WRITE: / 'Overview name: ' , lv_viewname_ov COLOR COL_NEGATIVE.WRITE: / 'E Overview name: ' , lv_viewname_eov COLOR COL_NEGATIVE.WRITE: / 'Edit view name: ', lv_viewname_edit COLOR COL_NEGATIVE.lv_settype_guid = ls_settype-frgtype_guid.SELECT SINGLE * FROM crmc_pril_obj INTO ls_pril_objWHERE settype_guid = lv_settype_guidAND object_kind = 'C'.
IF sy-subrc = 0.
WRITE: / 'Object name: ', ls_pril_obj-object_ext COLOR COL_POSITIVE.