Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

ABAP Programmin

Former Member
0 Likes
663

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

5 REPLIES 5
Read only

Former Member
0 Likes
633

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

Read only

0 Likes
633

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*'.

Read only

Former Member
0 Likes
633

go to se93

and write zpr* and click on f4 you will get all tcode start from zpr

Read only

Former Member
0 Likes
633

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.

Read only

Former Member
0 Likes
633

Thnx for the answers