REPORT zprod_list_doc.PARAMETERS: id TYPE comm_product-product_id OBLIGATORY DEFAULT 'CK0000001'.DATA: ls_prod TYPE comt_product,lt_io TYPE skwf_ios,lt_property TYPE crm_kw_propst.CONSTANTS: doc_id TYPE crm_kw_props-objid VALUE 'Document ID',doc_url TYPE sdok_propv VALUE 'Relative URL',doc_author TYPE sdok_propv VALUE 'Author',doc_time TYPE sdok_propv VALUE 'Created On'.ls_prod-product_id = id.
CALL FUNCTION 'CRM_PRODUCT_DOC_GET_DETAI'EXPORTINGis_product = ls_prodIMPORTINGet_prop_result = lt_property.WRITE: / doc_id COLOR COL_NEGATIVE, 35 doc_url COLOR COL_POSITIVE,75 doc_author COLOR COL_GROUP, 95 doc_time COLOR COL_TOTAL.LOOP AT lt_property ASSIGNING FIELD-SYMBOL(<result>) WHERE objtype = 'P'.READ TABLE <result>-properties ASSIGNING FIELD-SYMBOL(<name>) WITH KEY name = 'CREATED_BY'.READ TABLE <result>-properties ASSIGNING FIELD-SYMBOL(<date>) WITH KEY name = 'CREATED_AT'.READ TABLE <result>-properties ASSIGNING FIELD-SYMBOL(<url>) WITH KEY name = 'KW_RELATIVE_URL'.WRITE: / <result>-objid UNDER doc_id COLOR COL_NEGATIVE, <url>-value UNDER doc_url COLOR COL_POSITIVE,<name>-value UNDER doc_author COLOR COL_GROUP, <date>-value UNDER doc_time COLOR COL_TOTAL.
ENDLOOP.