How to Enable a Selected single record from Table control...

Question

Hi,
I have 5 records in my table control and in screen Painter in Made all the fields in Table control as Output field.
and  successfully all my Table control fields are disabled...
Now Now i want to enable the record which i selected n rest all the 4 records should be in Disable.
what i did is:
in PBO.
loop at itab into wa with contol TBC1 .
Module XYZ.
endloop.
Module XYZ.
loop at screen.
if screen-group = 'x'.
screen-input =  1.
modify screen.
endif.
End Module.
Please help me....
Thanks,

Answer 1

hi
in the layout of the screen u might have dragged and dropped the table control
double click on it u will get attributes screen in that u select MULTIPLE or SINGLE under Line-Selection
under attributes tab based on ur requirement.
table control declaration:
controls : control type tableview using screen 8000.
the internal table in table control must be like
data : begin of itab occurs 0,
empno type .......,
empname......,
empcity.....,
check(1), " for tab selection"
end of itab.
data : itab1 like itab occurs 0 with header line.
data : flag.
data : wk_init type i.
data : lines type i.
in the attributes screen of the table control
pass the value ITAB-CHECK to the field W/SELECTION
in SE51
PBO
Module_status_0800
loop with control table_control_name.
module_fill_tcontrol.
endloop.
PAI
Module_user_command_0800
loop with control table_control_name.
module_read_tcontrol.
endloop.
in se38
Module_status_0800.
describe table itab1 lines lines.
control-lines = lines.
endmodule.
Module_fill_tcontrol.
describe table itab1 lines wk_init.
  if wk_init is not initial.
    read table itab1 into itab index control-current_line.
  endif.
for enabling a row in the table control:
if sy-ucomm = 'EDIT'.
    loop at screen.
      if flag is initial.
        screen-input = 0.
      elseif ( flag eq 'Y' ).
        if  ( ( screen-name = 'ITAB-EMPNO' or
                screen-name = 'ITAB-EMPNAME' or
                screen-name = 'ITAB-EMPCITY' )   
          and control-line_selector eq itab-check
          and control-current_line le lines ).
          screen-input = 1.
        else.
        endif.
      endif.
      modify screen.
    endloop.
  endif.
endmodule.
Module_read_tcontrol.
READ TABLE itab1 INDEX control-current_line.
IF sy-subrc EQ 0.
MODIFY itab1 FROM itab INDEX control-current_line.
ELSE.
MOVE-CORRESPONDING itab TO itab1.
APPEND itab1.
CLEAR itab1.
ENDIF.
endmodule.
module_user_command.
case sy-ucomm.
when 'EDIT'. -
> Function Code assigned to the pushbutton to enable the field 
      flag = 'Y'.
endcase.
endmodule.
Regards
Murali.M