Enhancement--How to Find a Screen Exit for T-code
2007-06-15 23:19
399 查看
REPORT YSMOD2 . 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
Source URL:http://erpgenie.com/abaptips/content/view/356/40/
相关文章推荐
- 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
- 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
- ABAP code to find all the User Exits and BADIs for any transaction
- Report to Find User-Exit for Transaction Code
- How to change the generated method stub code for C#
- How to find MATLAB Source Code And Tools
- How to do code coverage test for windows service
- How to find the relation between role and user, t-code, profile
- How To Find Where The Memory Is Growing For A Process (Doc ID 822527.1)
- How to stop looking for someone perfect and find someone to love
- How To Scan QRCode For UWP (1)
- How to Find Bapi for Particular Transaction in SAP
- How to hide credential providers from Login Screen for Windows 7
- How to find code and file
- ld: 18 duplicate symbols for architecture i386 .linker command failed with exit code 1 (use -v to see invocation)_
- How to get Mokee Android N source code for Oneplus One Bacon device?