由TCODE找到相应的增强

来源：互联网发布：如何让增加淘宝流量编辑：程序博客网时间：2024/04/28 00:54
REPORT  ZTEST_ADVANCE.TABLES : tstc,     "SAP Transaction Codes(SAP 事务代码)         tadir,    "Directory of Repository Objects(资源库对象的目录)         modsapt,  "SAP Enhancements - Short Texts(SAP增强-短文件)         modact,   "Modifications(修正)         trdir,    "System table TRDIR(系统表 TRDIR)         tfdir,    "Function Module(功能模块)         enlfdir,  "Additional Attributes for"FunctionModules(功能模块的附加属性)         tstct.    "Transaction Code Texts(事务代码文本)DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.DATA : field1(30).DATA : v_devclass LIKE tadir-devclass.SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.SELECTION-SCREEN SKIP.PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.SELECTION-SCREEN SKIP.SELECTION-SCREEN END OF BLOCK a01.START-OF-SELECTION.  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 = 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 COL_POSITIVE INTENSIFIED OFF.    WRITE:/(12) '事务代码 - ',    13(20) p_tcode,    34(10) '功能 - ' ,    45(50) tstct-ttext.    SKIP.    IF NOT jtab[] IS INITIAL.      WRITE:/(95) sy-uline.      FORMAT COLOR COL_HEADING INTENSIFIED ON.      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 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:/ '用户出口数量:' , sy-tfill.    ELSE.      FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.      WRITE:/(95) '此TCode没有用户出口！'.    ENDIF.  ELSE.    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.    WRITE:/(95) '事务代码不存在！'.  ENDIF.AT LINE-SELECTION.  GET CURSOR FIELD field1.  CHECK field1(4) EQ 'JTAB'.  SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
——资料收集来自于互联网——
0 0