•Internal table•

rodendron

Подскажите, как можно в программе узнать количество столбцев во внутренней таблице?

ВН

НЕуниверсальное решение, но всё же.

DATA: BEGIN OF ZAP OCCURS 0,
ST1,
ST2,
ST3,
ST4,
ST5,
END OF ZAP.

DATA: I(3), FN(10).

FIELD-SYMBOLS: <F>.

I = 1.
DO.
CONDENSE: I.
CONCATENATE 'ZAP-ST' I INTO FN.
CONDENSE: FN.
ASSIGN (FN) TO <F>.
IF SY-SUBRC NE 0.
I = I - 1.
EXIT.
ELSE.
UNASSIGN <F>.
ADD 1 TO I.
ENDIF.
ENDDO.

WRITE:/ 'Количество столбцов :', I.

nicky555

Почему же не универсальное? Надо просто использовать ASSIGN немного по-другому:

DATA: BEGIN OF itab OCCURS 1,
field01,
field02,
field03,
END OF itab.

DATA: wa LIKE LINE OF itab,
i TYPE i.

FIELD-SYMBOLS: <fs>.

DO.
ASSIGN COMPONENT sy-index OF STRUCTURE wa TO <fs>.
IF sy-subrc <> 0.
i = sy-index.
EXIT.
ENDIF.
ENDDO.
UNASSIGN <fs>.
i = i - 1.

rodendron

То, что доктор прописал.
Спасибо огромное.

T

Так можно с обращением напрямую к таблице и без циклов:

Code:

TYPE-POOLS: SYDES.
data: TD TYPE SYDES_DESC.
data: lines type i.

describe field itab[] into TD.
delete td-types where back <> 2.
describe table td-types lines lines.

Если для структуры, то delete td-types where back <> 1.

Bully

Есть стандартные классы для получения RTTI, например:

Code:

DATA: ref TYPE REF TO data.
DATA descr TYPE REF TO cl_abap_tabledescr.
FIELD-SYMBOLS: <key_comp_wa> TYPE abap_keydescr.

GET REFERENCE OF my_table INTO ref.
descr ?= cl_abap_typedescr=>describe_by_data_ref( ref ).

После этого в descr - полное описание таблицы.
Смотри документацию по cl_abap_typedescr - там хорошо все описано и показано.

nicky555

Нам с BH должно стать стыдно - слишком простое решение предложили... :lol:

T

Ну если уж RTTI ,то можно и:

Code:

DATA descr TYPE REF TO cl_abap_tabledescr.
descr ?= cl_abap_typedescr=>describe_by_data( itab[] ).

Нафига с ссылками возиться..

ВН

nicky555 написал:

Нам с BH должно стать стыдно - слишком простое решение предложили... :lol:

T

Кстати, для того, чтобы найти полное число компонент, придётся использовать CL_ABAP_STRUCTDESCR

CoMan

Bully написал(а):

Есть стандартные классы для получения RTTI, например:

Code:

DATA: ref TYPE REF TO data.
DATA descr TYPE REF TO cl_abap_tabledescr.
FIELD-SYMBOLS: <key_comp_wa> TYPE abap_keydescr.

GET REFERENCE OF my_table INTO ref.
descr ?= cl_abap_typedescr=>describe_by_data_ref( ref ).

После этого в descr - полное описание таблицы.
Смотри документацию по cl_abap_typedescr - там хорошо все описано и показано.

Смотрел я, смотрел на класс cl_abap_tabledescr, но так и не додумался как из него достать такую характеристику таблицы как количество строк. :oops:

Может кто подскажет?

OlegDm

ну так с количеством строк совсем просто:

describe table tab lines i. (в i - количество строк таблицы tab)

nicky555

Не катит - примитивно и просто :lol:

Предлагаю так:

Code:

DATA: j TYPE i.
CLEAR j.
SYSTEM-CALL ITAB_INFO TABLE itab OPCODE 'IT_FILL' VALUE j.
WRITE: / 'Число строк: ', j.

EGF

Что-то Вы страшное предлагаете.

Цитата:

SYSTEM-CALL

Note
*---------------------------------------------------------*
This statement is only for

!!! Internal use in SAP Basis development !!!

Even within SAP Basis, it may only be used in programs within the ABAP+GUI development group.

Its use is subject to various restrictions, not all of which may be listed in the documentation. This documentation is intended for internal SAP use within the Basis development group ABAP+GUI.

Changes and further development, which may be incompatible, may occur at any time, without warning or notice!
*---------------------------------------------------------*

sy-uname

OlegDm написал(а):

ну так с количеством строк совсем просто:

describe table tab lines i. (в i - количество строк таблицы tab)

Хм. сложновато это как то. Можно и проще

i = lines( tab ). "v 4.7 как минимум

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

•Internal table•

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