*&---------------------------------------------------------------------*
*& Report ZTABLESIZE
*&---------------------------------------------------------------------*
REPORT ZTABLESIZE.
*&---------------------------------------------------------------------*
* get time stamp information for future comparison *
*&---------------------------------------------------------------------*
DATA:
time like sy-uzeit,
date like sy-datum.
time = sy-uzeit.
date = sy-datum.
write 😕 date, time.
write 😕 .
*&-----------------------------------------------------------------------*
* get list of tables with number of entries based on search parameter *
* and minimum number of table entries *
*&-----------------------------------------------------------------------*
tables: dd02l.
SELECT-OPTIONS filter for dd02l-tabname.
Parameters:
min_size type i.
Types:
BEGIN OF ty_tabname,
tabname TYPE TABNAME,
tabrows type i,
end of ty_tabname.
data: tabname type STANDARD TABLE OF ty_tabname.
FIELD-SYMBOLS:
<wa> Type ty_tabname.
select
tabname
from dd02l into CORRESPONDING FIELDS OF table tabname
where tabname in filter
group by
tabname.
sort tabname by tabname.
CALL FUNCTION 'EM_GET_NUMBER_OF_ENTRIES'
tables
it_tables = tabname.
loop at tabname ASSIGNING <wa>.
if <wa>-tabrows >= min_size.
write:/ <wa>-tabname, <wa>-tabrows.
endif.
endloop.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
5 | |
3 | |
2 | |
2 | |
2 | |
2 | |
1 | |
1 | |
1 | |
1 |