Enhancement--How to Find a Screen Exit for T-code
来源:互联网 发布:北京java培训机构排名 编辑:程序博客网 时间:2024/06/10 06:36
REPORT YSMOD2 .Source URL:http://erpgenie.com/abaptips/content/view/356/40/
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.
* End
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1653914
- Enhancement--How to Find a Screen Exit for T-code
- Enhancement--How to Find a Screen Exit for T-code
- 【Enhancement】--How to Find a Screen Exit for T-code
- How to Find a Screen Exit for T-code
- How to - Create a custom layout manager for a screen
- Report to Find User-Exit for Transaction Code
- How to find a laptop for me
- how to find user exit
- How to find a BAPI for a transaction ME01?
- How to disable compiler optimization for a piece of code
- How To Create A Data Entry Screen
- Venus UI --- How to create a screen
- How to find the relation between role and user, t-code, profile
- HOWTO:Implement a screen exit to a standard SAP transaction
- Implement a screen exit to a standard SAP transaction
- How To Print a Form That Is Too Large for the Screen or Page
- How to find code and file
- Could not find file copypng emitted errors but did not return a nonzero exit code to indicate fail
- .NET平台下Web树形结构程序设计
- 希望
- ABAP---How to use controls
- BASIS--LSMW Steps For Data Migration
- Enhancement--User exit documentation from SAP
- Enhancement--How to Find a Screen Exit for T-code
- Enhancement--Finding a project and enhancement
- ABAP--Field Symbol 的Example(来自SAP的样例)
- ABAP--关于Data Reference的使用
- ABAP--如何在join查询中使用动态表名(其实这样是没有必要的)
- 简单的iBatisNet示例
- ABAP--ABAP变量的可见范围
- BW--BW访问接口列表(摘自sap library)
- BW--Create Data Warehousing: Step by Step(摘自SAP Library)