Hola, puedes usar este informe para listar todas las salidas de usuario relacionadas con la transacción de entrada...
&----
*& Informe ZUSEREXIT
*&
&----
*&
*&
&----
report zuserexit no estándar sin encabezado de página.
tablas: tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
tablas: tstct.
datos: jtab como tadir ocurre 0 con línea de encabezado.
datos: field1(30).
datos: v_devclass como tadir-devclass.
parámetros: p_tcode como tstc-tcode obligatorio.
seleccionar único * de tstc donde tcode eq p_tcode.
si sy-subrc eq 0.
seleccionar único * de tadir donde pgmid = 'R3TR'
y objeto = 'PROG'
y obj_name = tstc-pgmna.
mover: tadir-devclass a v_devclass.
si sy-subrc ne 0.
seleccionar único * de trdir donde name = tstc-pgmna.
si trdir-subc eq 'F'.
seleccionar único * de tfdir donde pname = tstc-pgmna.
seleccionar único * de enlfdir donde funcname = tfdir-funcname.
seleccionar único * de tadir donde pgmid = 'R3TR'
y objeto = 'FUGR'
y obj_name eq enlfdir-area.
mover: tadir-devclass a v_devclass.
fin si.
fin si.
seleccionar * de tadir en tabla jtab donde pgmid = 'R3TR'
y objeto = 'SMOD'
y devclass = v_devclass.
seleccionar único * de tstct donde sprsl eq sy-langu y
tcode eq p_tcode.
formato color col_positive intensificado apagado.
escribir:/(19) 'Código de Transacción - ',
20(20) p_tcode,
45(50) tstct-ttext.
salto de línea.
si no jtab[] es inicial.
escribir:/(95) sy-uline.
formato color col_heading intensificado encendido.
escribir:/1 sy-vline,
2 'Nombre de Salida',
21 sy-vline ,
22 'Descripción',
95 sy-vline.
escribir:/(95) sy-uline.
loop en jtab.
seleccionar único * de modsapt donde sprsl = sy-langu y
name = jtab-obj_name.
formato color col_normal intensificado apagado.
escribir:/1 sy-vline,
2 jtab-obj_name hotspot on,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
endloop.
escribir:/(95) sy-uline.
describir tabla jtab.
salto de línea.
formato color col_total intensificado encendido.
escribir:/ 'Número de Salidas:' , sy-tfill.
fin.
formato color col_negative intensificado encendido.
escribir:/(95) 'No existe ninguna salida de usuario'.
fin.
else.
formato color col_negative intensificado encendido.
escribir:/(95) 'La transacción no existe'.
fin.
en selección de línea.
obtener campo de cursor field1.
comprobar field1(4) eq 'JTAB'.
establecer identificador de parámetro 'MON' campo sy-lisel+1(10).
llamar transacción 'SMOD' y saltar primera pantalla.
