源代码如下:
*&---------------------------------------------------------------------* *& Report ZCAMPAIGN_READ *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT zcampaign_read. DATA: ls_attributes TYPE crm_mktpl_mktelement, lo_mktpl TYPE REF TO cl_crm_mktpl_appl_base, proc_type_desc TYPE crm_mktpl_camptypetx, lv_due_date TYPE timestamp. IF lo_mktpl IS INITIAL. * Get MKTPL Instance CALL METHOD cl_crm_mktpl_appl_base=>get_instance RECEIVING re_instance = lo_mktpl EXCEPTIONS failed = 1 OTHERS = 2. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. ENDIF. CALL METHOD lo_mktpl->element_read EXPORTING im_mktelement_guid = '00163EA71FFC1EE196AF77958FBE42FA' IMPORTING ex_attributes = ls_attributes EXCEPTIONS not_found = 1 OTHERS = 2. BREAK-POINT.
执行结果: