Programm zur Bearbeitung verschiedener Tabellen

Code: Alles auswählen.

DATA: lv_lines TYPE i.
DESCRIBE TABLE X LINES lv_lines.          " X steht für zu bearbeitende Tabelle

Code: Alles auswählen.

*&---------------------------------------------------------------------*
*& Report  YBC_RECORD_COUNT                                            *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ybc_record_count.

* Ausgabe Struktur
TYPES: BEGIN OF t_table_record,
       tabname TYPE dd02l-tabname,
       END OF t_table_record.

* Interne Tabelle mit Tabellennamen
DATA lt_tables TYPE TABLE OF t_table_record.
DATA ls_tables TYPE t_table_record.

* Zähler
DATA entry_count TYPE i.

* für Select options
DATA so_tables TYPE dd02l.

* Auswahl der Tabellen
SELECT-OPTIONS s_tab FOR so_tables-tabname.

* Lese alle gewünschten Tabellennamen in die interne Tabelle
* Nur die Tabellen, nicht die Strukturen
SELECT tabname FROM dd02l INTO TABLE lt_tables WHERE
tabclass = 'TRANSP' AND
tabname IN s_tab.

* Zähle die Einträge der Tabellen und gib sie aus.
LOOP AT lt_tables INTO ls_tables.
  SELECT COUNT(*) FROM (ls_tables-tabname) INTO entry_count.
  WRITE :/ ls_tables-tabname, entry_count.
ENDLOOP.