hai .........

Former Member — Sat, 23 Jun 2007 11:25:41 GMT

hai gurus...

can u send me some material on the following topics

1.table control and step loop

2.smod and cmod transaction

3.development class

4.what is the difference between start and close form...i mean which one we will use only once and which one we can use more than once in the program

with regards

pavan

Re: hai .........

kiran_k8 — Sat, 23 Jun 2007 11:42:43 GMT

2.You can see all the enhancements available for all the tcodes in MODSAP table.

3.Developement class is nothing but a package to which we attach all the objects so that they can be transported from Development to Quality and Production.Objects that are stored as $TMP as termed as local objects and can't be transported.You can create a transport request if and only if a object is assigned to a package.You can see all the packages available in TADIR table.

4.If we are calling only one script in the driver program then we will use

OPEN FORM

WRITE FORM

CLOSE FORM.

If we are calling multiple scripts in the driver program then we will use

START FORM

OPEN FORM

WRITE FORM

CLOSE FORM

END FORM.

You can see all the standard scripts and smartforms in TNAPR table.

If you want to know the enhancements available for a paritcular t-code then run this program.

REPORT Z9 .

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

tables : 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 obligatory.

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

move : tadir-devclass to v_devclass.

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:/(19) 'Transaction Code - ', "#EC NOTEXT

20(20) p_tcode,

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', "#EC NOTEXT

21 sy-vline ,

22 'Description', "#EC NOTEXT

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:/ 'No of Exits:' , sy-tfill. "#EC NOTEXT

else.

format color col_negative intensified on.

write:/(95) 'No User Exit exists'. "#EC NOTEXT

endif.

else.

format color col_negative intensified on.

write:/(95) 'Transaction Code Does Not Exist'. "#EC NOTEXT

endif.

at line-selection.

get cursor field field1.

check field1(4) eq 'JTAB'.

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

call transaction 'SMOD' and skip first screen.

Reward points if found helpful.

K.Kiran.

topic hai ......... in Application Development and Automation Discussions

hai .........

Re: hai .........