Hi Harshil,
You can use this ABAP Code Directly to Change ROOSFIELD table.
*&---------------------------------------------------------------------*
*& Report ZROOSFIELD_CHANGE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
report zroosfield_change.
data:l_msg type string value 'Are you sure you want to change Roosfield Table',
l_answer type c.
selection-screen begin of block b1 with frame title text-001.
parameters: poltpsou type roosfield-oltpsource obligatory,
pfield type roosfield-field obligatory,
pselect type roosfield-selection default 'X'.
selection-screen end of block b1.
concatenate l_msg 'for Datasource:' poltpsou ',Field:' pfield 'and Value:' pselect into l_msg separated by space.
call function 'POPUP_TO_CONFIRM'
exporting
* TITLEBAR = ' '
* DIAGNOSE_OBJECT = ' '
text_question = l_msg
* TEXT_BUTTON_1 = 'Ja'(001)
* ICON_BUTTON_1 = ' '
* TEXT_BUTTON_2 = 'Nein'(002)
* ICON_BUTTON_2 = ' '
* DEFAULT_BUTTON = '1'
* DISPLAY_CANCEL_BUTTON = 'X'
* USERDEFINED_F1_HELP = ' '
* START_COLUMN = 25
* START_ROW = 6
* POPUP_TYPE =
* IV_QUICKINFO_BUTTON_1 = ' '
* IV_QUICKINFO_BUTTON_2 = ' '
importing
answer = l_answer
* TABLES
* PARAMETER =
* EXCEPTIONS
* TEXT_NOT_FOUND = 1
* OTHERS = 2
.
if l_answer = '1'.
update roosfield set selection = pselect where oltpsource = poltpsou"'0FI_GL_14'
and objvers = 'A'
and field = pfield."'HKONT'.
if sy-subrc = 0.
message 'Changes done Successfully' type 'S'.
endif.
elseif l_answer = '2'.
message 'No changes made' type 'S' display like 'E'.
elseif l_answer = 'A'.
message 'No changes made' type 'S' display like 'E'.
endif.
Or if you have authorizationyou can change it using se16n
1. go to se16n write table name
2. enter /h in transaction command field
3. press f8
4. change values of following fields in run time
gd-edit = 'X'
gd-sapedit = 'X'
5.table will display in edit mode now you can change it and save.
Regards,
Mayur somaiya
