Find the package of a tcd / program, and then find enhancements

Question

how to find package for a tcode
like for me21n is ME
i want find the package for the program of any tcode and so that i can find the enhancement with the help of the package in smod
Edited by: Julius Bussche on Feb 10, 2009 4:26 PM
Please use meaningfull subject titles

Answer 1

Hi Rahul,
This code might be helpfull:
report zedgar_user_exits line-size 254.                     "100.
tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir,tstct.
data : jtab like tadir occurs 0 with header line.
data : field1(30).
data : v_devclass like tadir-devclass.
data: l_prog like rs38l-include.
parameters: p_tcode like tstc-tcode. " OBLIGATORY.
parameters: p_actv as checkbox default 'X',
            p_sum as checkbox.
start-of-selection.
  select single * from tstc where tcode eq p_tcode.
  if sy-subrc eq 0 or p_tcode is initial.
    if not p_tcode is initial.
      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.
    else.
*      SELECT * FROM TADIR INTO TABLE JTAB
**                      WHERE pgmid = 'R3TR'
*                       WHERE OBJECT = 'SMOD'.
**                      AND devclass = v_devclass.
      select * from modsapt
              where sprsl = sy-langu.
        jtab-obj_name = modsapt-name.
        append jtab.
      endselect.
    endif.
    select single * from tstct where sprsl eq sy-langu and
                               tcode eq p_tcode.
    format color col_positive intensified off.
    if p_sum is initial.
      write:  /(19) 'Transaction Code - ', 20(20) p_tcode,
             45(50) tstct-ttext.
      skip.
    endif.
    if not jtab[] is initial.
      if p_sum 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.
      endif.
      loop at jtab.
        select single * from modsapt
                where sprsl = sy-langu and
                name = jtab-obj_name.
        format color col_normal intensified off.
        if p_actv is initial.
          write:/1 sy-vline, 2 jtab-obj_name hotspot on,
                      21 sy-vline , 22 modsapt-modtext, 95 sy-vline.
        endif.
        tables: modsap.
        data: l_1.
        clear l_1.
        select * from modsap where name = jtab-obj_name
                               and typ = 'E'.
          if p_actv is initial.
            select single * from tfdir where funcname = modsap-member.
          else.
            select single * from tfdir where funcname = modsap-member
                                         and mand = 'C'.
          endif.
          if sy-subrc eq 0.
            if l_1 is initial.
              l_1 = 'X'.
              if p_sum is initial.
                if not p_actv is initial.
                  write: /1 sy-vline, 2 jtab-obj_name hotspot on,
                         21 sy-vline , 22 modsapt-modtext, 95 sy-vline.
                  clear l_prog.
                  hide l_prog.
                endif.
              endif.
            endif.
            data: l_foi like modsap-member.
            l_prog = tfdir-pname+4.
            concatenate 'L' l_prog 'U' tfdir-include into l_prog.
            data: tab_prog type table of d022s with header line.
            clear tab_prog[].
            data: tab_prog2 type table of d022s with header line.
            clear tab_prog2[].
            call function 'RFC_READ_REPORT'
                 exporting
                      program = l_prog
                 tables
                      qtab    = tab_prog
                 exceptions
                      others  = 1.
            clear l_prog.
            loop at tab_prog.
              if tab_prog-line cp '*INCLUDE*'.
                replace 'INCLUDE' with '' into tab_prog-line.
                replace '.' with '' into tab_prog-line.
                shift tab_prog-line left deleting leading space.
                write tab_prog-line to l_prog.
                call function 'RFC_READ_REPORT'
                     exporting
                          program = l_prog
                     tables
                          qtab    = tab_prog2
                     exceptions
                          others  = 1.
                loop at tab_prog2.
                  if tab_prog2-line eq space
                     or tab_prog2-line cp '#**'.
                    delete tab_prog2.
                  endif.
                endloop.
                if not tab_prog2[] is initial.
                  write: /  sy-vline,
                         21 sy-vline,
                            modsap-member,
                         50 l_prog hotspot on intensified,
                         95 sy-vline.
                  hide l_prog.
                  tables: tftit.
                  clear tftit.
                  select single * from tftit where spras = sy-langu
                                        and funcname = modsap-member.
                  if sy-subrc ne 0.
                    select single * from tftit where spras = 'EN'
                                         and funcname = modsap-member.
                    if sy-subrc ne 0.
                      select single * from tftit where spras = 'DE'
                                       and funcname = modsap-member.
                    endif.
                  endif.
                  write: tftit-stext.
                  l_foi = modsap-member.
                endif.
                exit.
              endif.
            endloop.
            if l_foi ne modsap-member and p_actv is initial.
              l_foi = modsap-member.
              write: /  sy-vline,
                     21 sy-vline,
                        modsap-member color col_negative,
                     50 l_prog hotspot on intensified,
                     95 sy-vline.
              hide l_prog.
              clear tftit.
              select single * from tftit where spras = sy-langu
                                    and funcname = modsap-member.
              if sy-subrc ne 0.
                select single * from tftit where spras = 'EN'
                                     and funcname = modsap-member.
                if sy-subrc ne 0.
                  select single * from tftit where spras = 'DE'
                                   and funcname = modsap-member.
                endif.
              endif.
              write: tftit-stext color col_negative.
            endif.
          endif.
        endselect.
      endloop.
      if p_sum is initial.
        write:/(95) sy-uline.
        describe table jtab.
        skip.
*        FORMAT COLOR COL_TOTAL INTENSIFIED ON.
*        WRITE:/ 'No of Exits:' , SY-TFILL.
      endif.
    else.
*      IF P_SUM IS INITIAL.
*        FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
*        WRITE:/(95) 'No User Exit exists'.
*      ENDIF.
    endif.
*  ELSE.
*  ENDSELECT.
*    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
*    WRITE:/(95) 'Transaction Code Does Not Exist'.
  endif.
at line-selection.
  get cursor field field1.
  if field1(4) eq 'JTAB' and p_sum is initial.
    set parameter id 'MON' field sy-lisel+1(10).
    call transaction 'SMOD' and skip first screen.
  else.
    if not l_prog is initial.
      set parameter id 'RID' field l_prog.
      data begin of bdcdata occurs 100.
              include structure bdcdata.
      data end of bdcdata.
      data begin of itab occurs 10.
              include structure bdcmsgcoll.
      data end of itab.
      clear: bdcdata[], bdcdata.
      clear: bdcdata.
      bdcdata-program  = 'SAPMS38E'.
      bdcdata-dynpro   = '0100'.
      bdcdata-dynbegin = 'X'.
      append bdcdata.
      clear: bdcdata.
      bdcdata-fnam     = 'RS38M-PROGRAMM'.
      bdcdata-fval     = l_prog.
      append bdcdata.
      clear: bdcdata.
      bdcdata-fnam     = 'BDC_OKCODE'.
      bdcdata-fval     = '=SHOP'.
      append bdcdata.
      call transaction 'SE38'  using bdcdata  mode 'E'
                               messages into itab.
    endif.
  endif.
regards,
Edgar