REPORT ZPROD_DISPLAY_OBJ_STRU_USAGE.
DATA: lt_il TYPE STANDARD TABLE OF COMM_IL_PRDIB,lt_prod TYPE STANDARD TABLE OF comm_product,lt_ibase TYPE STANDARD TABLE OF ibib.
SELECT * INTO TABLE lt_il FROM comm_il_prdib.
IF sy-subrc <> 0.WRITE: / 'no object structure IBASE exists in this system'.RETURN.
ENDIF.
SELECT * INTO TABLE lt_prod FROM comm_product FOR ALL ENTRIES IN lt_il WHEREproduct_guid = lt_il-sourceguid.
SELECT * INTO TABLE lt_ibase FROM ibib FOR ALL ENTRIES IN lt_il WHEREib_guid_16 = lt_il-destinguid.
LOOP AT lt_il ASSIGNING FIELD-SYMBOL(<il>).READ TABLE lt_prod ASSIGNING FIELD-SYMBOL(<prod>) WITH KEY product_guid = <il>-sourceguid.READ TABLE lt_ibase ASSIGNING FIELD-SYMBOL(<ibase>) WITH KEY ib_guid_16 = <il>-destinguid.IF <prod> IS NOT INITIAL AND <ibase> IS NOT INITIAL.WRITE: / 'obj: ' , <prod>-product_id COLOR COL_GROUP, 'IBASE: ', <ibase>-ibase, 'created on: ' ,<ibase>-crtim.ENDIF.
ENDLOOP.
