SAP系统用户出口程序代码查询工具

*&---------------------------------------------------------------------*
*& Report  ZFINDEXIT                                                   *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  zfindexit                               .

TABLES: tstc,tadir,modsapt,modattr,modact,trdir,tfdir,enlfdir,sxs_attrt,tstct.

DATA: jtab LIKE tadir OCCURS 0 WITH HEADER LINE,
      field1(30),
      v_devclass LIKE tadir-devclass,
      wa_tadir TYPE tadir.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (28) cmt1.
PARAMETERS p_tcode LIKE tstc-tcode. " transaction code
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (28) cmt2.
PARAMETERS p_pgmna LIKE tstc-pgmna ." program name
SELECTION-SCREEN END OF LINE.

INITIALIZATION.
  cmt1 = 'TCODE:'.
  cmt2 = 'PROGRAMME:'.

START-OF-SELECTION.

  IF NOT p_tcode IS INITIAL.
    SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.
  ELSEIF NOT p_pgmna IS INITIAL.
    tstc-pgmna = p_pgmna.
  ENDIF.

  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'