Programa que busca los Exits de una transaccion
ej: YBUSCA_EXIT
TABLES : tstc, tadir, modsapt,
TABLES : tstct.
DATA : jtab LIKE tadir OCCURS
DATA : field1(30).
CONSTANTS: c_r3tr(4) TYPE c VA
DATA : v_devclass LIKE tadir-d
PARAMETERS : p_tcode LIKE tstc
SELECT SINGLE * FROM tstc WHER
IF sy-subrc EQ 0.
SELECT SINGLE * FROM tadir W
AND object
AND obj_
MOVE : tadir-devclass TO v_
IF sy-subrc NE 0.
SELECT SINGLE * FROM trdir
IF trdir-subc EQ 'F'.
SELECT SINGLE * FROM tfd
SELECT SINGLE * FROM enl
tfdir-funcname.
SELECT SINGLE * FROM tad
AND o
AND o
MOVE : tadir-devclass TO
ENDIF.
ENDIF.
SELECT * FROM tadir INTO TAB
WHERE pgmid =
AND object =
AND devclass
SELECT SINGLE * FROM tstct W
FORMAT COLOR COL_POSITIVE IN
WRITE:/(19) 'Transaction
20(20) p_tcode,
45(50) tstct-ttext.
SKIP.
IF NOT jtab[] IS INITIAL.
WRITE:/(95) sy-uline.
FORMAT COLOR COL_HEADING I
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 mod
WHERE sprsl = sy-
name = jta
FORMAT COLOR COL_NORMAL
WRITE:/1 sy-vline,
2 jtab-obj_name H
21 sy-vline ,
22 modsapt-modtext
95 sy-vline.
ENDLOOP.
WRITE:/(95) sy-uline.
DESCRIBE TABLE jtab.
SKIP.
FORMAT COLOR COL_TOTAL INT
WRITE:/ 'No of Exits:' , s
ELSE.
FORMAT COLOR COL_NEGATIVE
WRITE:/(95) 'No User Exit
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE IN
WRITE:/(95) 'Transaction
ENDIF.
AT LINE-SELECTION.
GET CURSOR FIELD field1.
CHECK field1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD
CALL TRANSACTION 'SMOD' AND
Comentarios
Publicar un comentario