Report zexit_help no standard page heading.
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 Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Code - ', 20 (20) P_TCODE, 45 (50) TSTCT-TTEXT. SKIP. IF NOTE JTAB [] IS INITIAL. WRITE: / (95) SY-Uline. Format Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color Color, 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-TFIL l. else. format color color color color color color color color color color. Write: / (95) 'NO User Exit EXISTS'. endif.else. format color color color color color color color color color: / (95) 'Transaction code does not exist'.ndif.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.
