SAP ABAP 查找数据表程序

最新推荐文章于 2024-08-09 10:40:14 发布

戰之樂章

最新推荐文章于 2024-08-09 10:40:14 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： SAP-ABAP 文章标签： SAP ABAP REPORT 数据表查找数据表程序

本文链接：https://blog.youkuaiyun.com/realglance/article/details/39676553

这是一个使用ABAP编程实现的SAP系统中数据表查找程序。用户可以通过输入表名、字段名、表类型等筛选条件进行精确或模糊查询，并通过ALV网格展示查询结果，提供双击事件处理，跳转到SE11事务码进行详细查看。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

REPORT Z_SEARCH_TABLENAME            .
TABLES: DD02L, DD03L, DD02T, DD02V.
*&----------------------------------------------------
*&                    屏幕输出
*&-----------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK ioc01 WITH FRAME TITLE text-a01.
SELECT-OPTIONS:
    TABNAME FOR DD03L-TABNAME,
    S-NAME FOR DD03L-FIELDNAME,
    TABCLASS FOR DD02V-TABCLASS DEFAULT 'TRANSP',    "表类型
    ROLLNAME FOR DD03L-ROLLNAME,   "数据元素
    DOMNAME FOR DD03L-DOMNAME,     "域名
    INTLEN FOR DD03L-INTLEN.       "字段长度
SELECTION-SCREEN END OF BLOCK ioc01.

SELECTION-SCREEN BEGIN OF BLOCK ioc02 WITH FRAME TITLE text-a02.
PARAMETERS PO AS CHECKBOX DEFAULT 'X'.
PARAMETERS DDTEXT LIKE DD02T-DDTEXT.
SELECTION-SCREEN END OF BLOCK ioc02.

TYPE-POOLS: SLIS.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv, "存放ALV字段描述的表
g_repid LIKE sy-repid.
DATA: fieldcat TYPE slis_fieldcat_alv.
DATA: eventstab TYPE slis_t_event WITH HEADER LINE.
DATA: fieldlayout type slis_layout_alv.

TYPES: BEGIN OF RESULT,
       TABNAME LIKE DD03L-TABNAME,
       FIELDNAME LIKE DD03L-FIELDNAME,
       TABCLASS LIKE DD02V-TABCLASS,
       ROLLNAME LIKE DD03L-ROLLNAME,
       DOMNAME LIKE DD03L-DOMNAME,
       INTLEN LIKE DD03L-INTLEN,
       DDTEXT LIKE DD02T-DDTEXT,
       END OF RESULT.
DATA: WA TYPE RESULT,
      ITAB TYPE RESULT OCCURS 0 WITH HEADER LINE.

DATA PM_TXT LIKE DD02T-DDTEXT.
*************************************************************************
AT SELECTION-SCREEN.
IF PO = 'X'.
    IF DDTEXT = SPACE.
      MESSAGE '模糊查询时，物料描述不能为空' type 'W'.
    ENDIF.
ENDIF.

******