Выявление неиспользуемых полей таблицы

Jouri

Добрый день!

у меня вопрос:
как написать ABAP для выявления в общем виде
полей таблицы которые не заполнены.
Т.е. как входной параметр - имя таблицы
как выходной: список полей которые имеют всегда
в таблице только инициальное значение. т.е. фактически не
используются никаким приложением

заранее спасибо
Юрий

Пономарев Артем

И вам доброго.

То, что элементу во всех кортежах таблицы не присвоено значение в конкретный момент времени - не означает, что данное поле не используется.

Написать несложно.

Только не забудьте, что в САПе есть два разных "пусто". Space и Null.

Lars

Ну еще дата, для которой initial это '00000000'.
И поля, например типа numc, для которых проставлена галка инициирования.

PP

Я писал в свое время такой вариант:

Code:

WRITE / '***********BKPF**********'.

DATA: LS_BKPF TYPE BKPF.

  SELECT fieldname position
    INTO CORRESPONDING FIELDS OF TABLE lt_key
    FROM dd03l
    WHERE tabname = 'BKPF'
      AND as4local = 'A'
      ORDER BY position.

DELETE lt_key WHERE fieldname CP '.*'.

LOOP AT lt_key INTO ls_key.
  CLEAR: LS_CONDITION.

*  CONCATENATE ls_key-fieldname 'IS NOT NULL'
  CONCATENATE ls_key-fieldname '<> SPACE'
    INTO LS_CONDITION SEPARATED BY SPACE.

  SELECT SINGLE *
    FROM BKPF
    INTO LS_BKPF
    WHERE (LS_CONDITION).

  IF SY-SUBRC <> 0.
    WRITE / ls_key-fieldname.
  ENDIF.

ENDLOOP.

Думаю несложно будет адаптировать имя конкретной таблицы в параметр?

Правила форума

Выявление неиспользуемых полей таблицы

Кто сейчас на конференции