Anzeige des TableControl <-> aber ohne Inhalt?!

Code: Alles auswählen.

*&---------------------------------------------------------------------*
*& Modulpool         ZZ3AKDVK0602_GEBR                                 *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

PROGRAM  ZZ3AKDVK0602_GEBR.

TYPES: BEGIN OF TC_ZEILE,
         Ausw(1) TYPE C,
         F_FAHRZEUGID LIKE ZZ3AKDVK0602_DBT-F_FAHRZEUGID,
         F_MARKE LIKE ZZ3AKDVK0602_DBT-F_MARKE,
         F_TYPE LIKE ZZ3AKDVK0602_DBT-F_TYPE,
         F_KRAFTSTOFF LIKE ZZ3AKDVK0602_DBT-F_KRAFTSTOFF,
         F_KILOMETER LIKE ZZ3AKDVK0602_DBT-F_KILOMETER,
         F_BAUJAHR LIKE ZZ3AKDVK0602_DBT-F_BAUJAHR,
         F_GETRIEBE LIKE ZZ3AKDVK0602_DBT-F_GETRIEBE,
         F_BAUART LIKE ZZ3AKDVK0602_DBT-F_BAUART,
         F_PICKERL LIKE ZZ3AKDVK0602_DBT-F_PICKERL,
         F_PREIS LIKE ZZ3AKDVK0602_DBT-F_PREIS,
         F_PS LIKE ZZ3AKDVK0602_DBT-F_PS,
         F_FARBE LIKE ZZ3AKDVK0602_DBT-F_FARBE,
         F_KONTAKT LIKE ZZ3AKDVK0602_DBT-F_KONTAKT,
       END OF TC_Zeile.

DATA:
  k_gebr TYPE TC_ZEILE,
  i_gebr TYPE STANDARD TABLE OF TC_ZEILE.

CONTROLS:
  TC TYPE TABLEVIEW USING SCREEN 0001.

*&---------------------------------------------------------------------*
*&      Module  STATUS_0001  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0001 OUTPUT.
  SET PF-STATUS '0001'.
*  SET TITLEBAR 'GebrauchtwagenBörse'.

ENDMODULE.                 " STATUS_0001  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0001  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0001 INPUT.

ENDMODULE.                 " USER_COMMAND_0001  INPUT
*&---------------------------------------------------------------------*
*&      Module  itab2TC  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE itab2TC OUTPUT.

  READ TABLE i_gebr INTO k_gebr INDEX TC-Current_Line.

ENDMODULE.                 " itab2TC  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  lesen  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE lesen OUTPUT.

*  SELECT F_FAHRZEUGID F_MARKE F_TYPE F_KRAFTSTOFF F_KILOMETER F_BAUJAHR
*F_GETRIEBE F_BAUART F_PICKERL F_PREIS F_PS F_FARBE F_KONTAKT
  SELECT *
  FROM ZZ3AKDVK0602_DBT
  INTO CORRESPONDING FIELDS OF TABLE i_gebr.
  DESCRIBE TABLE i_gebr LINES TC-Lines.

ENDMODULE.                 " lesen  OUTPUT

Code: Alles auswählen.

PROCESS BEFORE OUTPUT.

* MODULE STATUS_0001.

  MODULE lesen.

  LOOP WITH CONTROL TC_ZEILE.
    module itab2TC.
  ENDLOOP. " der itab auf den Steploop bringen

PROCESS AFTER INPUT.

* MODULE USER_COMMAND_0001.

  LOOP WITH CONTROL TC_ZEILE.
  ENDLOOP. " der itab auf den Steploop bringen