Created by Jerry Wang, last modified on Oct 01, 2016

The requirement is, you need to print out all relationship data in the system with relationship type STRSET:

You can use the following source code:

METHOD get_strset_info. DATA: lt_strset TYPE STANDARD TABLE OF comm_il_strset, lt_prod TYPE STANDARD TABLE OF comm_product. SELECT * INTO TABLE lt_strset FROM comm_il_strset. CHECK sy-subrc = 0. SELECT * INTO TABLE lt_prod FROM comm_product FOR ALL ENTRIES IN lt_strset WHERE product_guid = lt_strset-sourceguid OR product_guid = lt_strset-destinguid. LOOP AT lt_strset ASSIGNING FIELD-SYMBOL(<strset>). APPEND INITIAL LINE TO rt_result ASSIGNING FIELD-SYMBOL(<result>). READ TABLE lt_prod ASSIGNING FIELD-SYMBOL(<parent>) WITH KEY product_guid = <strset>-sourceguid. IF sy-subrc = 0. <result>-parent = <parent>-product_id. ENDIF. READ TABLE lt_prod ASSIGNING FIELD-SYMBOL(<child>) WITH KEY product_guid = <strset>-destinguid. IF sy-subrc = 0. <result>-child = <child>-product_id. ENDIF. ENDLOOP. ENDMETHOD.

An example of output:

要获取更多Jerry的原创文章，请关注公众号"汪子熙":

汪子熙 认证博客专家 前端框架 Node.js SAP JerryWang，2007年从电子科技大学计算机专业硕士毕业后加入SAP成都研究院工作至今。Jerry是SAP社区导师，SAP中国技术大使。2020年5月下旬，Jerry做了脑部肿瘤的开颅切除手术，对编程和人生又有了新的感悟。