0
点赞
收藏
分享

微信扫一扫

根据tcode查找增强的程序_SAP刘梦

 


report zlm_test_yx.


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).


欢迎关注订阅号:SAP学习记录 (SAPlearning )

PO <wbr><wbr><wbr>text <wbr><wbr><wbr>copy <wbr><wbr><wbr>rules <wbr><wbr><wbr>:copy <wbr><wbr><wbr>PR <wbr><wbr><wbr>item <wbr><wbr><wbr>text <wbr><wbr><wbr>to <wbr><wbr><wbr>PO



举报

相关推荐

0 条评论