[程序收藏]查看标准TCODE的UserExit列表

  方便开发系统增强时查找所需要的userexit。

*&---------------------------------------------------------------------*
*&  Report  Y_FIND_USEREXIT                        *
*&  获取SAP系统用户出口列表程序        *
*&---------------------------------------------------------------------*
*&                                                                       *
*&                                                                       *
*&---------------------------------------------------------------------*

REPORT  Y_FIND_USEREXIT                         .
tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
         tables : tstct.
data : jtab like tadir occurs  0  with header line.
data : field1( 30 ).
data : v_devclass like tadir - devclass.
parameters : p_tcode like tstc - tcode obligatory.

select single  *  from tstc  where  tcode eq p_tcode.
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 eq enlfdir - area.

            move : tadir - devclass to v_devclass.
          endif.
       endif.
       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.

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.