To Transfer data from internal table to a table control

Question

Hi All,
I have selected some data to be displayed on a screen into an internal table ...............my problem is how to transfer the data from the internal table to this table control so that when screen is displayed the data is also displayed.
Regards,
Shweta

Answer 1

Hi Shweta,
<b>Please see if the below demo program is helpful...
DEMO_DYNPRO_TABCONT_LOOP</b>
==============================
controls flights type tableview using screen 100.
select * from spfli into corresponding fields of table itab.
call screen 100.
module status_0100 output.
  set pf-status 'SCREEN_100'.
  describe table itab lines fill.
  flights-lines = fill.
endmodule.
module fill_table_control output.
  read table itab into demo_conn index flights-current_line.
endmodule.
module cancel input.
  leave program.
endmodule.
module read_table_control input.
  lines = sy-loopc.
  modify itab from demo_conn index flights-current_line.
endmodule.
module user_command_0100 input.
  save_ok = ok_code.
  clear ok_code.
  case save_ok.
    when 'NEXT_LINE'.
      flights-top_line = flights-top_line + 1.
      limit = fill - lines + 1.
      if flights-top_line > limit.
        flights-top_line = limit.
      endif.
    when 'PREV_LINE'.
      flights-top_line = flights-top_line - 1.
      if flights-top_line < 0.
        flights-top_line = 0.
      endif.
    when 'NEXT_PAGE'.
      flights-top_line = flights-top_line + lines.
      limit = fill - lines + 1.
      if flights-top_line > limit.
        flights-top_line = limit.
      endif.
    when 'PREV_PAGE'.
      flights-top_line = flights-top_line - lines.
      if flights-top_line < 0.
        flights-top_line = 0.
      endif.
    when 'LAST_PAGE'.
      flights-top_line =  fill - lines + 1.
    when 'FIRST_PAGE'.
      flights-top_line = 0.
  endcase.
endmodule.
Thanks, ABY