学步园

导读：
　　report z_find_userexit no standard page heading.
　　tables : tstc, "SAP Transaction Codes
　　tadir, "Directory of Repository Objects
　　modsapt, "SAP Enhancements - Short Texts
　　modact, "Modifications
　　trdir, "System table TRDIR
　　tfdir, "Function Module
　　enlfdir, "Additional Attributes for Function Modules
　　tstct. "Transaction Code Texts
　　*&---------------------------------------------------------------------*
　　*& Variables
　　*&---------------------------------------------------------------------*
　　data : jtab like tadir occurs 0 with header line.
　　data : field1(30).
　　data : v_devclass like tadir-devclass.
　　*&---------------------------------------------------------------------*
　　*& Selection Screen Parameters
　　*&---------------------------------------------------------------------*
　　selection-screen begin of block a01 with frame title text-001.
　　selection-screen skip.
　　parameters : p_tcode like tstc-tcode obligatory.
　　selection-screen skip.
　　selection-screen end of block a01.
　　*&---------------------------------------------------------------------*
　　*& Start of main program
　　*&---------------------------------------------------------------------*
　　start-of-selection.
　　* Validate Transaction Code
　　select single * from tstc
　　where tcode eq p_tcode.
　　* Find Repository Objects for transaction code
　　if sy-subrc eq 0.
　　select single * from tadir
　　where pgmid = 'R3TR'
　　and object = 'PROG'
　　and obj_name = tstc-pgmna.
　　move : tadir-devclass to v_devclass.
　　if sy-subrc ne 0.
　　select single * from trdir
　　where name = tstc-pgmna.
　　if trdir-subc eq 'F'.
　　select single * from tfdir
　　where pname = tstc-pgmna.
　　select single * from enlfdir
　　where funcname = tfdir-funcname.
　　select single * from tadir
　　where pgmid = 'R3TR'
　　and object = 'FUGR'
　　and obj_name = enlfdir-area.
　　move : tadir-devclass to v_devclass.
　　endif.
　　endif.
　　* Find SAP Modifactions
　　select * from tadir
　　into table jtab
　　where pgmid = 'R3TR'
　　and object = 'SMOD'
　　and devclass = v_devclass.
　　select single * from tstct
　　where sprsl eq sy-langu
　　and tcode eq p_tcode.
　　format color col_positive intensified off.
　　write:/(19) 'Transaction Code - ',
　　20(20) p_tcode,
　　45(50) tstct-ttext.
　　skip.
　　if not jtab[] is initial.
　　write:/(95) sy-uline.
　　format color col_heading intensified on.
　　write:/1 sy-vline,
　　2 'Exit Name',
　　21 sy-vline ,
　　22 'Description',
　　95 sy-vline.
　　write:/(95) sy-uline.
　　loop at jtab.
　　select single * from modsapt
　　where sprsl = sy-langu and
　　name = jtab-obj_name.
　　format color col_normal intensified off.
　　write:/1 sy-vline,
　　2 jtab-obj_name hotspot on,
　　21 sy-vline ,
　　22 modsapt-modtext,
　　95 sy-vline.
　　endloop.
　　write:/(95) sy-uline.
　　describe table jtab.
　　skip.
　　format color col_total intensified on.
　　write:/ 'No of Exits:' , sy-tfill.
　　else.
　　format color col_negative intensified on.
　　write:/(95) 'No User Exit exists'.
　　endif.
　　else.
　　format color col_negative intensified on.
　　write:/(95) 'Transaction Code Does Not Exist'.
　　endif.
　　* Take the user to SMOD for the Exit that was selected.
　　at line-selection.
　　get cursor field field1.
　　check field1(4) eq 'JTAB'.
　　set parameter id 'MON' field sy-lisel+1(10).
　　call transaction 'SMOD' and skip first screen.

本文转自
http://blog.chinaunix.net/u/28793/showart_224497.html

查看用户出口的方法:

1. Go to Tcode: se81.
2. Expand to the area you are looking at, functionally speaking.
3. Select and press F9.
4. Now click on "Repository Infosys" button.
5. Now you will see a tree form where you can see all the objects (not only exits) under that area. To only see the exits that come under this application;
6. Expand Environment->customer Enhancement->customer enhancement.
7. Double click on Customer enhancement.
8. Execute the selection screen. You will see all the cust.exits that come under your application
9. Double click on the required exit; you can see all the exits that come under that enhancement.