Created by Jerry Wang on Sep 04, 2014
例如希望得到所有基于product category MAT_JERR创建的product list:
输出product ID和创建时间:
REPORT PROD_LIST_CREATED_BY_CATEGORY.
PARAMETERS: id TYPE COMM_CAtegory-category_id OBLIGATORY DEFAULT 'MAT_JERR'.
START-OF-SELECTION.
DATA: lv_guid TYPE comm_category-category_guid,
lt_guid TYPE STANDARD TABLE OF COMM_PRODUCT-product_guid,
lt_prod TYPE STANDARD TABLE OF comm_product.
SELECT SINGLE category_guid FROM comm_category INTO lv_guid WHERE category_id = id.
IF sy-subrc <> 0.
WRITE: / 'category id not valid.'.
RETURN.
ENDIF.
SELECT product_guid INTO TABLE lt_guid FROM COMM_PRPRDCATR WHERE category_guid = lv_guid.
IF sy-subrc <> 0.
WRITE: / 'no product exists which are created based on current category.'.
RETURN.
ENDIF.
SELECT * INTO TABLE lt_prod FROM COmm_product FOR ALL ENTRIES IN lt_guid WHERE product_guid = lt_guid-table_line.
SORT lt_prod BY product_id.
LOOP AT lt_prod ASSIGNING FIELD-SYMBOL(<prod>).
WRITE: / <prod>-product_id COLOR COL_NEGATIVE, 'Created on: ' , <prod>-valid_from.
ENDLOOP.