Table maintainance

Former Member — Mon, 14 May 2007 18:20:03 GMT

Hi All

i have created a report which is with a selection screen for Contract Account. Then i am passing this Contract account value to the Function Module 'VIEW_MAINTENANCE_CALL' and calling SM30 of a Z table. in short i have made a selection screen for table and then called a SM30 for that table.

Now my q is that i donn want to show the some of the fields as editable. Now as my prog is calling the SM30 code i have to made editions in the Table maintainace code generated for that particular table. Can somebody pleas guide me how to do that.

thanks in advance...

jai...

Re: Table maintainance

Former Member — Mon, 14 May 2007 18:26:35 GMT

Hi,

Go to the transaction SE51..And give the program name and screen number..

Press change..

Choose the layout..Then make it as output field in the field attributes..

Thanks,

Naren

Re: Table maintainance

Former Member — Mon, 14 May 2007 18:32:39 GMT

See the below example code :

Table diclaration

tables: tvdir.

Add values to list box

at selection-screen output.

type-pools: vrm.

data: name type vrm_id,

list type vrm_values,

value like line of list.

name = 'P_TABNM'.

refresh list.

value-key = 'V_024'.

value-text = text-002. "'V_024-Purchasing Groups'.

append value to list.

value-key = 'V_T024D'.

value-text = text-003. "'V_T024D-MRP Controllers'.

append value to list.

value-key = 'ZT604'.

value-text = text-004. "'T604-Commodity Codes'.

append value to list.

value-key = 'T179'.

value-text = text-005. "'T179-Product Hierarchies'.

append value to list.

value-key = 'TVM1T'.

value-text = text-006. "'TVM1T-Business Manager'.

append value to list.

value-key = 'TVM2T'.

value-text = text-007. "'TVM2T-Division manager'.

append value to list.

value-key = 'TVM3T'.

value-text = text-008. "'TVM3T-Director'.

append value to list.

value-key = 'V_TVV2'.

value-text = text-009. "'V_TVV2-Customer Group 2'.

append value to list.

call function 'VRM_SET_VALUES'

exporting

id = name

values = list.

start-of-selection.

Selection screento table View

selection-screen skip 2.

parameter p_tabnm(30) as listbox visible length 30 obligatory.

selection-screen skip 1.

selection-screen begin of block s1 with frame title text-001.

parameter: p_radio1 radiobutton group g1,

p_radio radiobutton group g1.

selection-screen end of block s1.

Get flag of corresponding table view

select single tabname flag from tvdir into tvdir

where tabname = p_tabnm.

Set flag of corresponding table view

if p_radio1 eq 'X'.

if tvdir-flag ne 'X'.

update tvdir set: flag = 'X'

where tabname = p_tabnm.

endif.

if p_radio eq 'X'.

if tvdir-flag eq 'X'.

update tvdir set: flag = ''

where tabname = p_tabnm.

endif.

Execute View/Table

call function 'VIEW_MAINTENANCE_CALL'

exporting

action = 'U'

view_name = p_tabnm

exceptions

client_reference = 1

foreign_lock = 2

invalid_action = 3

no_clientindependent_auth = 4

no_database_function = 5

no_editor_function = 6

no_show_auth = 7

no_tvdir_entry = 8

no_upd_auth = 9

only_show_allowed = 10

system_failure = 11

unknown_field_in_dba_sellist = 12

view_not_found = 13

others = 14.

if sy-subrc <> 0.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

Reset flag of corresponding table view

update tvdir set: flag = tvdir-flag

where tabname = p_tabnm.

topic Table maintainance in Application Development and Automation Discussions

Table maintainance

Re: Table maintainance

Re: Table maintainance