【Enhancement】--How to Find a Screen Exit for T-code

最新推荐文章于 2025-06-25 09:27:12 发布

转载最新推荐文章于 2025-06-25 09:27:12 发布 · 780 阅读

文章标签：

#search #input

SAP ABAP CODE: 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一个使用 ABAP 编写的程序，该程序通过接收输入参数来从多个表（如 tstc、modsap 和 modact）中检索数据，并根据检索结果进行相应的输出。程序首先从 tstc 表中检索与输入参数 tcode 相匹配的数据，再进一步从 modsap 表中查找符合特定条件的数据，最后在 modact 表中进行单一记录的检索。

TABLES: modsap, modact, tstc. PARAMETERS: input1 LIKE tstc-tcode DEFAULT ' ', input2 LIKE modsap-typ DEFAULT ' '. DATA: search1(6), search2(3), search3 LIKE modsap-member. DATA : first_row VALUE 'Y'. CONCATENATE: '%' input1 '%' INTO search1,'%' input2 INTO search2. SELECT * FROM tstc WHERE tcode LIKE search1. first_row = 'Y'. CHECK tstc-pgmna NE space. CONCATENATE '%' tstc-pgmna '%' INTO search3. SELECT * FROM modsap WHERE typ LIKE search2 and MEMBER LIKE search3. SELECT SINGLE * FROM modact WHERE member = modsap-name. IF first_row EQ 'Y'. WRITE: /0 tstc-tcode, 6 tstc-pgmna, 16 modsap-name, 32 modsap-typ, 45 modsap-member, 70 modact-name. first_row = 'N'. ELSE. WRITE: /16 modsap-name, 32 modsap-typ, 45 modsap-member, 70 modact-name. ENDIF. CLEAR : modsap, modact. ENDSELECT. IF sy-subrc NE 0. WRITE : /0 tstc-tcode, 6 tstc-pgmna, 30 'No exits found'. ENDIF. CLEAR tstc. ENDSELECT. END-OF-SELECTION. CLEAR:search1, search2, search3.