Im Table Control einzelne Zellen eingabebereit machen

Code: Alles auswählen.

*Programm
....
types : begin of ty_line,
          mark        type flag,
          input_flag  type flag,
          input_field type char20.
types : end of ty_line.

data it_lines           type table of ty_line.
data wa_line            type  ty_line.
field-symbols <fs_line> type  ty_line.
...

MODULE TC_LINES_GET_LINES OUTPUT. "<<<<<<<<<<<
  G_TC_LINES_LINES = SY-LOOPC.
  loop at screen.
      if screen-name = 'WA_LINE-INPUT_FIELD'.
         if wa_line-input_flag = 'X'.
            screen-input = '1'.
         else.
            screen-input = '0'.
         endif.
         modify screen.
      endif.
  endloop.
ENDMODULE.

Code: Alles auswählen.

PROCESS BEFORE OUTPUT.
  MODULE TC_LINES_CHANGE_TC_ATTR.
  LOOP AT   IT_LINES
       INTO WA_LINE
       WITH CONTROL TC_LINES
       CURSOR TC_LINES-CURRENT_LINE.
    MODULE TC_LINES_GET_LINES.  "<<<<<< hier der loop über screen !
  ENDLOOP.