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 ）
