很好的出口程式

2021-06-09 21:27:30 字數 4220 閱讀 7420

report  z_find_exit_badi no standard page heading.

tables:tstc,tadir,modsapt,modact,trdir,tfdir,enlfdir,sxs_attrt,tstct.

data : jtab like tadir occurs 0 with header line.

data : field1(30).

data : v_devclass like tadir-devclass.

parameters : p_tcode like tstc-tcode,

p_pgmna like tstc-pgmna .

data wa_tadir type tadir.

start-of-selection.

if not p_tcode is initial.

select single * from tstc where tcode eq p_tcode.

elseif not p_pgmna is initial.

tstc-pgmna = p_pgmna.

endif.

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 eq enlfdir-area.

move : tadir-devclass to v_devclass.

endif.

endif.

select * from tadir into table jtab where pgmid = 'r3tr' and

object in ('smod', 'sxsd') 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:/(19) 'transaction code - ',

20(20) p_tcode,

45(50) tstct-ttext.

skip.

if not jtab is initial.

write:/(105) sy-uline.

format color col_heading intensified on.

sort jtab by object.

data : wf_txt(60) type c,

wf_smod type i ,

wf_badi type i ,

wf_object2(30) type c.

clear : wf_smod, wf_badi , wf_object2.

loop at jtab into wa_tadir.

at first.

format color col_heading intensified on.

write:/1 sy-vline,

2 'enhancement/ business add-in',

41 sy-vline ,

42 'description',

105 sy-vline.

write:/(105) sy-uline.

endat.

clear wf_txt.

at new object.

if wa_tadir-object = 'smod'.

wf_object2 = 'enhancement' .

elseif wa_tadir-object = 'sxsd'.

wf_object2 = ' business add-in'.

endif.

format color col_group intensified on.

write:/1 sy-vline,

2 wf_object2,

105 sy-vline.

endat.

case wa_tadir-object.

when 'smod'.

wf_smod = wf_smod + 1.

select single modtext into wf_txt

from modsapt

where sprsl = sy-langu

and name = wa_tadir-obj_name.

format color col_normal intensified off.

when 'sxsd'.

* for badis

wf_badi = wf_badi + 1 .

select single text into wf_txt

from sxs_attrt

where sprsl = sy-langu

and exit_name = wa_tadir-obj_name.

format color col_normal intensified on.

endcase.

write:/1 sy-vline,

2 wa_tadir-obj_name hotspot on,

41 sy-vline ,

42 wf_txt,

105 sy-vline.

at end of object.

write : /(105) sy-uline.

endat.

endloop.

write:/(105) sy-uline.

skip.

format color col_total intensified on.

write:/ 'no.of exits:' , wf_smod.

write:/ 'no.of badis:' , wf_badi.

else.

format color col_negative intensified on.

write:/(105) 'no userexits or badis exist'.

endif.

else.

format color col_negative intensified on.

write:/(105) 'transaction does not exist'.

endif.

at line-selection.

data : wf_object type tadir-object.

clear wf_object.

get cursor field field1.

check field1(8) eq 'wa_tadir'.

read table jtab with key obj_name = sy-lisel+1(20).

move jtab-object to wf_object.

case wf_object.

when 'smod'.

set parameter id 'mon' field sy-lisel+1(10).

call transaction 'smod' and skip first screen.

when 'sxsd'.

set parameter id 'exn' field sy-lisel+1(20).

call transaction 'se18' and skip first screen.

endcase.

ABAP查詢使用者出口程式

此程式原創出自哪已經忘了,不過不重要了,重要的是這個程式還挺好用,便於程式設計師查詢使用者的出口和增強,可以直接ctrl c ctrl v拿來用。report z test 001.tables tstc,tadir,modsapt,modact,trdir,tfdir,enlfdir,sxs at...

《程式設計師生存定律》 01 程式人生的出口

很多人非常想知道自己的未來是什麼樣子的,迫切到一定程度甚至會找算命先生。如果並不是想得到乙個精確結果,這事兒其實並沒有想的那麼難。程式設計師的人生看起來五花八門,可以是windows系,可以是android系,可以是iphone系等等,但如果為之做點抽象,那就會發現人生出口的類別其實不多,接下來我們...

sap 的使用者出口

使用者出口,根據我個人的理解,所謂出口就是執行sap標準程式 對應事務碼 其中的某些操作過程必需經過的地方 sap給空出來,但可以給使用者新增 或者實現 使用者也就是所謂的客戶了 合起來,就是客戶可以在其中某些sap預留下來的出口進行個性化的裝飾了 光這一點,我覺得sap做得非常的人性 化,把大眾化...