如何编写含表名与值搜索输入字段的ABAP程序获取SAP系统数据表列表？

作为ABAP新手，你可以通过以下步骤实现一个带输入界面、能过滤搜索数据表的程序，核心是利用SAP的元数据表DD02L（存储所有数据表的定义信息）来查询数据。

一、完整程序代码 #

REPORT z_get_table_list NO STANDARD PAGE HEADING.

* 定义选择屏幕：表名输入框/范围选择
SELECT-SCREEN BEGIN OF BLOCK b_table WITH FRAME TITLE text-001.
  PARAMETERS: p_tabname TYPE dd02l-tabname MATCHCODE OBJECT dtel_tabname. "带搜索帮助的单值输入
  SELECT-OPTIONS: s_tabname FOR dd02l-tabname. "多值/范围选择（优先级高于单值）
SELECT-SCREEN END OF BLOCK b_table.

* 定义数据对象
DATA: gt_table_list TYPE STANDARD TABLE OF dd02l,
      gs_table      TYPE dd02l.

* 文本元素（需维护：SE38→菜单"转到"→"文本元素"→"标题"，把text-001设为"数据表过滤条件"）
TEXT-ELEMENTS:
  text-001 = '数据表过滤条件'.

START-OF-SELECTION.
  * 处理输入条件：如果单值输入有值，自动填充到范围选择
  IF p_tabname IS NOT INITIAL.
    s_tabname-sign = 'I'.
    s_tabname-option = 'EQ'.
    s_tabname-low = p_tabname.
    APPEND s_tabname.
  ENDIF.

  * 从元数据表查询激活的透明表
  SELECT tabname, ddtext, tabclass, clike
    INTO CORRESPONDING FIELDS OF TABLE gt_table_list
    FROM dd02l
    WHERE tabname IN s_tabname
      AND as4local = 'A' "只取激活状态的表
      AND tabclass = 'TRANSP'. "只取透明表（可根据需求移除该条件）

  * 判断查询结果
  IF gt_table_list IS INITIAL.
    WRITE: / '未找到符合条件的数据表，请检查输入条件或权限'.
    EXIT.
  ENDIF.

  * 用ALV网格显示结果（美观且支持交互）
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      is_layout          = VALUE #( colwidth_optimize = 'X' )
      it_fieldcat        = VALUE #(
        ( fieldname = 'TABNAME'   seltext_m = '数据表名' )
        ( fieldname = 'DDTEXT'    seltext_m = '表描述' )
        ( fieldname = 'TABCLASS'  seltext_m = '表类型' )
        ( fieldname = 'CLIKE'     seltext_m = '客户端相关' )
      )
    TABLES
      t_outtab           = gt_table_list
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.

  IF sy-subrc <> 0.
    WRITE: / 'ALV显示失败，错误代码:', sy-subrc.
  ENDIF.

二、关键部分解释 #

1. 选择屏幕设计

   • PARAMETERS p_tabname：提供带搜索帮助的单值输入，输入表名时按F4可调出系统中所有数据表的列表，方便新手选择
   • SELECT-OPTIONS s_tabname：支持范围查询（比如Z*查所有Z开头的表，EKKO-EKPO查指定表），优先级高于单值输入
   • 文本元素text-001：给输入区块加标题，提升界面友好度

2. 核心查询逻辑

   • 从DD02L表取数：这是SAP系统存储所有数据表元数据的核心表，包含表名、描述、类型等信息
   • as4local = 'A'：过滤出激活状态的表（排除修改但未激活的版本）
   • tabclass = 'TRANSP'：只取透明表（最常用的数据表类型，若需要包含簇表、池表可移除该条件）

3. 结果显示

   • 使用REUSE_ALV_GRID_DISPLAY函数：这是ABAP中常用的简易ALV显示方式，支持列宽自动调整、排序、过滤等交互功能，比直接用WRITE输出更实用

三、运行步骤 #

1. 在SE38事务码中创建程序Z_GET_TABLE_LIST，粘贴上述代码
2. 维护文本元素：点击菜单「转到」→「文本元素」→「标题」，添加text-001的内容为「数据表过滤条件」
3. 激活程序（Ctrl+F3），点击运行（F8）
4. 在输入界面：
   • 直接输入表名（如EKKO），或按F4选择表
   • 也可以用范围选择（如输入Z*查询所有自定义表）
5. 执行后即可看到符合条件的数据表列表

四、注意事项 #

• 权限问题：如果查询无结果，可能是当前用户没有访问DD02L表的权限，需要联系Basis团队添加权限
• 扩展功能：如果需要更多表属性（如数据行数、所属包），可以从DD02L或关联表（如DD02T、TADIR）中添加字段
• 简化显示：如果不想用ALV，也可以用LOOP循环+WRITE输出，替换掉ALV函数调用部分：

  LOOP AT gt_table_list INTO gs_table.
    WRITE: / gs_table-tabname UNDER '数据表名',
            20 gs_table-ddtext UNDER '表描述',
            60 gs_table-tabclass UNDER '表类型',
            80 gs_table-clike UNDER '客户端相关'.
  ENDLOOP.
  

内容的提问来源于stack exchange，提问作者Mahmood Hammood