Code: Alles auswählen.
DATA tabnamefield(30) TYPE c.
PARAMETERS: num_res TYPE i DEFAULT 50.
SELECT-OPTIONS tabnsel FOR nameintv.
DATA entries TYPE i.
SELECT tabname BYPASSING BUFFER
FROM dd02l
INTO tabnamefield
UP TO num_res ROWS
WHERE tabname IN tabnsel.
Code: Alles auswählen.
SELECT COUNT(*)
FROM (tabnamefield)
INTO entries.
Code: Alles auswählen.
IF colorchc = 'X'.
colorchc = ' '. WRITE: / tabnamefield, entries.
ELSE.
colorchc = 'X'. WRITE: / tabnamefield COLOR
COL_HEADING, entries COLOR COL_HEADING.
ENDIF.
Code: Alles auswählen.
DATA: tabname TYPE tabname,
count TYPE i.
START-OF-SELECTION.
WRITE: / 'SPFLI', / 'SFLIGHT', / 'SBOOK'.
AT LINE-SELECTION.
READ CURRENT LINE line value INTO tabname.
SELECT COUNT(*) FROM (tabname) INTO count.
WRITE: / 'The table', tabname(7), 'contains',
count, 'entries'.
Code: Alles auswählen.
SELECT tabname
FROM dd02l
INTO tabname
UP TO num_res ROWS
WHERE tabname IN tabnsel.
SELECT COUNT(*)
FROM (tabname)
INTO entries.
Code: Alles auswählen.
SELECT tabname
FROM dd02l
INTO tabname
UP TO num_res ROWS
WHERE tabname IN tabnsel
AND dd02l~tabclass = 'TRANSP'.
SELECT COUNT(*)
FROM (tabname)
INTO entries.
[/quote]In DD02l sind verschiedene Tabellenklassen abgelegt, vielleicht liegts ja daran.
Wenn der Select sich aus DD02l eine Struktur holt, dann macht das select count nicht allzuviel Sinn.