How to get table list belonging to a given package and all its sub packages
How to get table list belonging to a given package and all its sub packages
Jerry Wang
发布于 2019-08-07 17:35:03
发布于 2019-08-07 17:35:03
知识共享许可协议
版权声明：署名，允许他人基于本文进行创作，且必须基于与原先许可协议相同的许可协议分发本文 （Creative Commons）
Created by Jerry Wang, last modified on Sep 02, 2016 Go to start of metadata
Suppose the requirement is to get all database tables belonging to package COM_PRODUCT_BASE and its sub packages. Since COM_PRODUCT_BASE contains no database tables not only sub packages:
Since Repository information system does not support query against sub packages:
Here below is an ABAP code snippet which can help you get table list: method GET_TABLE_LIST.
DATA: t_descendant TYPE cl_pak_package_queries=>tt_subpackage_info,
lt_result TYPE STANDARD TABLE OF tadir-obj_name.
CALL METHOD cl_pak_package_queries=>get_all_subpackages
EXPORTING
im_package = iv_package_name
IMPORTING
et_subpackages = t_descendant
EXCEPTIONS
OTHERS = 1.
CHECK sy-subrc = 0.
SELECT obj_name INTO TABLE lt_result FROM TADIR as dir INNER JOIN dd02l as tt ON dir~obj_name
= tt~tabname
FOR ALL ENTRIES IN t_descendant
WHERE pgmid = 'R3TR' and object = 'TABL' AND tt~tabclass = 'TRANSP'
AND devclass = t_descendant-package .
endmethod.本文参与 腾讯云自媒体分享计划，分享自作者个人站点/博客。
原始发表：2019年08月06日，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读