Hola Carlanga,
Bienvenida a nuestra comunidad sap
. Te adjunto un programa muy útil que busca las exits de una determinada transacción que introduces en los parámetros de selección
report z_find_user_exit no standard page heading.
tables: tstc, tadir, modsapt, modact,
trdir, tfdir, enlfdir, tstct.
data : jtab like tadir occurs 0 with header line.
data : hotspot(30).
parameters : p_tcode like tstc-tcode obligatory.
at line-selection.
get cursor field hotspot.
check hotspot(4) eq
'JTAB'.
set parameter id
'MON' field sy-lisel+1(10).
call transaction
'SMOD' and skip first screen.
start-of-selection.
perform get_data.
perform write_list.
*---------------------------------------------------------------------*
* FORM get_data *
*---------------------------------------------------------------------*
form get_data.
select single * from tstc
where tcode eq p_tcode.
check sy-subrc eq 0.
select single * from tadir
where pgmid =
'R3TR'
and object =
'PROG'
and obj_name = tstc-pgmna.
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.
endif.
endif.
select * from tadir into table jtab
where pgmid =
'R3TR'
and object =
'SMOD'
and devclass = tadir-devclass.
select single * from tstct
where sprsl eq sy-langu
and tcode eq p_tcode.
endform.
*---------------------------------------------------------------------*
* FORM write_list *
*---------------------------------------------------------------------*
form write_list.
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.
endform.
Espero te sea útil.
Un saludo
.