‎2008 Apr 30 9:59 AM
Hi,
Could you guys please give me some codin to fetch all the tcodes which begins with ZPR..?
and when you double click on each transaction code it should take you to the respective program or selection screen..
please please please...
‎2008 Apr 30 10:02 AM
Write program like this :
Data : IT_TSTC like table of TSTC,
WA_TSTC like line of IT_TSTC.
Select * from TSTC into table IT_TSTC where TCODE = ZPR%.
Write : / WA_TSTC-TCODE.
AT Line-Selection.
..........
Reward If found helpful
‎2008 Apr 30 10:10 AM
Select * from TSTC into table IT_TSTC where TCODE = ZPR%.
this won't work, you will have to use LIKE 'ZPR%'.
Alternative. On selection screen create select options and default to 'ZPR*'.
‎2008 Apr 30 11:23 AM
go to se93
and write zpr* and click on f4 you will get all tcode start from zpr
‎2008 May 02 1:35 AM
REPORT ZTEST NO STANDARD PAGE HEADING .
TABLES:TSTC,TSTCT.
DATA: BEGIN OF IT_TAB OCCURS 10.
INCLUDE STRUCTURE TSTCT.
DATA: END OF IT_TAB.
SELECT-OPTIONS : OP_TCODE FOR TSTC-TCODE OBLIGATORY.
START-OF-SELECTION.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_TAB FROM TSTCT
WHERE TCODE IN OP_TCODE AND SPRSL = SY-LANGU.
WRITE:/(109) SY-ULINE.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
DATA : WF_TXT(60) TYPE C,
WF_NUM TYPE I ,
CNO(3) TYPE C,
WF_CODE(30) TYPE C.
CLEAR : WF_TXT,WF_NUM,CNO,WF_CODE.
LOOP AT IT_TAB.
AT FIRST.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 SY-VLINE,
2 '',
5 SY-VLINE,
6 'Tcode',
45 SY-VLINE ,
46 'Description',
109 SY-VLINE.
WRITE:/(109) SY-ULINE.
ENDAT.
WF_NUM = WF_NUM + 1 .
FORMAT COLOR COL_NORMAL INTENSIFIED ON.
CNO = WF_NUM.
WRITE:/1 SY-VLINE,
2 CNO,
5 SY-VLINE,
6 IT_TAB-TCODE HOTSPOT ON,
45 SY-VLINE ,
46 IT_TAB-TTEXT,
109 SY-VLINE.
ENDLOOP.
WRITE:/(109) SY-ULINE.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No.of Tcodes:' , WF_NUM.
AT LINE-SELECTION.
DATA: FIELD TYPE CHAR30.
GET CURSOR FIELD FIELD.
CHECK FIELD(6) EQ 'IT_TAB'.
READ TABLE IT_TAB WITH KEY TCODE = SY-LISEL+5(20).
CALL TRANSACTION IT_TAB-TCODE.
‎2011 Jan 05 7:43 AM