topic Re: ABAP Programmin in Application Development and Automation Discussions

ABAP Programmin

Former Member — Wed, 30 Apr 2008 08:59:14 GMT

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

Re: ABAP Programmin

Former Member — Wed, 30 Apr 2008 09:02:12 GMT

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

Re: ABAP Programmin

Sm1tje — Wed, 30 Apr 2008 09:10:09 GMT

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

Re: ABAP Programmin

Former Member — Wed, 30 Apr 2008 10:23:00 GMT

go to se93

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

Re: ABAP Programmin

Former Member — Fri, 02 May 2008 00:35:01 GMT

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.

Re: ABAP Programmin

Former Member — Wed, 05 Jan 2011 07:43:52 GMT

Thnx for the answers