Olá, você pode usar este relatório para listar todas as saídas de usuário relacionadas com a transação de entrada...
&----
*& Relatório ZUSEREXIT
*&
&----
*&
*&
&----
report zuserexit não padrão sem cabeçalho de página.
tabelas: tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
tabelas: tstct.
dados: jtab como tadir ocorre 0 com linha de cabeçalho.
dados: field1(30).
dados: v_devclass como tadir-devclass.
parâmetros: p_tcode como tstc-tcode obrigatório.
selecionar único * de tstc onde tcode eq p_tcode.
se sy-subrc eq 0.
selecionar único * de tadir onde pgmid = 'R3TR'
e objeto = 'PROG'
e obj_name = tstc-pgmna.
mover: tadir-devclass a v_devclass.
se sy-subrc ne 0.
selecionar único * de trdir onde name = tstc-pgmna.
se trdir-subc eq 'F'.
selecionar único * de tfdir onde pname = tstc-pgmna.
selecionar único * de enlfdir onde funcname = tfdir-funcname.
selecionar único * de tadir onde pgmid = 'R3TR'
e objeto = 'FUGR'
e obj_name eq enlfdir-area.
mover: tadir-devclass a v_devclass.
fin se.
fin se.
selecionar * de tadir em tabela jtab onde pgmid = 'R3TR'
e objeto = 'SMOD'
e devclass = v_devclass.
selecionar único * de tstct onde sprsl eq sy-langu e
tcode eq p_tcode.
formato cor col_positive intensificado apagado.
escrever:/(19) 'Código de Transação - ',
20(20) p_tcode,
45(50) tstct-ttext.
salto de linha.
se não jtab[] é inicial.
escrever:/(95) sy-uline.
formato cor col_heading intensificado ligado.
escrever:/1 sy-vline,
2 'Nome de Saída',
21 sy-vline ,
22 'Descrição',
95 sy-vline.
escrever:/(95) sy-uline.
loop em jtab.
selecionar único * de modsapt onde sprsl = sy-langu e
name = jtab-obj_name.
formato cor col_normal intensificado apagado.
escrever:/1 sy-vline,
2 jtab-obj_name hotspot on,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
endloop.
escrever:/(95) sy-uline.
descrever tabela jtab.
salto de linha.
formato cor col_total intensificado ligado.
escrever:/ 'Número de Saídas:' , sy-tfill.
fin.
formato cor col_negative intensificado ligado.
escrever:/(95) 'Não existe nenhuma saída de usuário'.
fin.
else.
formato cor col_negative intensificado ligado.
escrever:/(95) 'A transação não existe'.
fin.
em seleção de linha.
obter campo de cursor field1.
verificar field1(4) eq 'JTAB'.
estabelecer identificador de parâmetro 'MON' campo sy-lisel+1(10).
chamar transação 'SMOD' e pular primeira tela.
