列出系统所有未被Business transaction 引用的Products集合
2023-09-14 09:03:03 时间
Created by Jerry Wang on Jul 25, 2014
需求是给出系统里所有products的列表,这些product尚未被assign到任何business transaction中去:
参数num 指定为100,意味着只显示前100个满足条件( 未加入到任何business transaction中去)的product信息:
REPORT ZPROD_LIST_NOT_ASSIGNED. PARAMETERS: num TYPE i OBLIGATORY DEFAULT 100. DATA: lv_prod_guid TYPE comm_product-product_guid, lt_item_tab TYPE STANDARD TABLE OF comm_product-product_guid, lt_product TYPE STANDARD TABLE OF comm_product. START-OF-SELECTION. SELECT product_guid product_id object_family FROM comm_product INTO CORRESPONDING FIELDS OF TABLE lt_product. ASSERT lt_product IS NOT INITIAL. SELECT product INTO TABLE lt_item_tab FROM crmd_orderadm_i FOR ALL ENTRIES IN lt_product WHERE product = lt_product-product_guid. SELECT product_guid APPENDING TABLE lt_item_tab FROM CRMD_SRV_REFOBJ FOR ALL ENTRIES IN lt_product WHERE product_guid = lt_product-product_guid. SELECT warranty APPENDING TABLE lt_item_tab FROM crmd_service_i FOR ALL ENTRIES IN lt_product WHERE warranty = lt_product-product_guid. SORT lt_item_tab. DELETE ADJACENT DUPLICATES FROM lt_item_tab. LOOP AT lt_product ASSIGNING FIELD-SYMBOL(<product>). READ TABLE lt_item_tab WITH KEY table_line = <product>-product_guid TRANSPORTING NO FIELDS. IF sy-subrc = 0. DELETE TABLE lt_product FROM <product>. ENDIF. ENDLOOP. DO num TIMES. READ TABLE lt_product ASSIGNING FIELD-SYMBOL(<result>) INDEX sy-index. IF sy-subrc = 0. IF <result>-object_family IS INITIAL. WRITE: / 'Product ID: ' , <result>-product_id COLOR COL_NEGATIVE. ELSE. WRITE: / 'Object ID: ' , <result>-product_id COLOR COL_NEGATIVE. ENDIF. ELSE. RETURN. ENDIF. ENDDO.
相关文章
- 工具推荐|集合天气预报的概率后处理系统
- Map集合中value()与keySet()、entrySet()区别
- java 集合框架
- 【说站】Java中的常见集合有哪些
- 【说站】javascript中集合如何理解
- 实用工具集合-2
- 推荐系统[三]:粗排算法常用模型汇总(集合选择和精准预估),技术发展历史(向量內积,Wide&Deep等模型)以及前沿技术
- eBPF 入门开发实践指南六:捕获进程发送信号的系统调用集合,使用 hash map 保存状态
- Java 集合框架 LinkedHashSet 和 LinkedHashMap 源码剖析详解编程语言
- Java集合之LinkedList详解编程语言
- Java Map集合详解
- Redis实现无序集合数据结构(redis 集合无序)
- Redis构建功能强大的集合搜索系统(redis 集合 搜索)
- Redis集合如何有效分业(redis集合怎么分业)
- 红色的集合Redis的Sets功能(redis里的sets)
- Oracle SGA 一个最佳设计的集合(oracle sga组成)