Цикл по столбцам

Bit

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

Виктор(Минск)

Думаю, что DESCRIBE FIELD f INTO td поможет.

Hint.

Code:

***
TYPE-POOLS: SYDES.
DATA TD TYPE SYDES_DESC.
DESCRIBE FIELD f INTO td.

Правда, RTFM говорит, что в будущем может все поменятся (без предупреждений).

Виктор(Минск)

Дополнение:

Для организации цикла по столбцам можно использовать:

DESCRIBE FIELD <f> TYPE <t> COMPONENTS <n>.
ASSIGN COMPONENT <comp> OF STRUCTURE <s> TO <FS>.

Но тут скорее получить доступ к данным, которые хранятся в столбцах (полях структуры).

Bit

Вот именно, только данные, а как узнать имя столбца....вопрос пока открыт. Интересно, неужели ни у кого не возникало подобной проблемы?

EGF

Если Вы работаете в системе 4.6 и выше, то вам помогут классы cl_abap_tabledescr и cl_abap_structdescr:

Code:

METHOD get_output_components .
  DATA:
    lcl_table_descr TYPE REF TO cl_abap_tabledescr,
    lcl_struc_descr TYPE REF TO cl_abap_structdescr
  .
  FIELD-SYMBOLS:
    <lt_output> TYPE STANDARD TABLE
  .
  ASSIGN me->output_tab->* TO <lt_output>.
  lcl_table_descr ?= cl_abap_typedescr=>describe_by_data( <lt_output> ).
  lcl_struc_descr ?= lcl_table_descr->get_table_line_type( ).
  it_components = lcl_struc_descr->components.
ENDMETHOD.

flipper

ну а если 4.0 то можно попробовать как и предлагал Виктро(Минск)
через DESCRIBE FIELD f INTO td

например:
для таблицы

Code:

DATA :  BEGIN OF GT_TEST OCCURS 0,
          BANFN LIKE EBAN-BANFN,
          BNFPO LIKE EBAN-BNFPO,
          SUM   TYPE P DECIMALS 2,
          LOOOOOOOONG_FIELD_NAME(10),
        END OF GS_TEST.

после

Code:

...
TYPE-POOLS: SYDES.
DATA TD TYPE SYDES_DESC.
DESCRIBE FIELD GT_TEST INTO TD. 
...

в таблице TD-TYPES будет(оставлены основные столбцы):

Code:

# Idx_Name   Idx_Help_Id  Length  Output_Length   Decimals  Type

1        0 |           0 |    33 |    33         |       0 |u   
2        5 |           2 |    10 |    10         |       0 |C   
3        6 |           4 |     5 |     5         |       0 |N   
4        7 |           0 |     8 |    17         |       2 |P   
5        8 |           0 |    10 |    10         |       0 |C   

а в таблице TD-NAMES

Code:

#   Continue Name                   
                                
1           |ZYS_S006               
2           |EBAN-BANFN             
3           |==ALPHA                
4           |EBAN-BNFPO             
5           |BANFN                  
6           |BNFPO                  
7           |SUM                    
8  *        |LOOOOOOOONG_FIE        
9           |LD_NAME                

удаляем первую запись из TD-TYPES(поле type=u)
дальше просматривая TD-TYPES находим то что нам надо

поле Idx_Name указывает на номер записи в NAMES т.е имя столбца;
поле Idx_Help_Id тоже номер записи в NAMES указывает на ссылку в DDIC

в табл. NAMES поле CONTINUE равное '*' указывает что следом идет продолжение названия столбца

вроде все :wink:

Bit

Благодарен всем за поступающие предложения.

Parazit

Я делал так:

Code:

FORM GetStruc
  using Struc
        FieldNames type tt_Struc.

  TYPE-POOLS SYDES.

  DATA: TD TYPE SYDES_DESC,
        W_TYPES TYPE SYDES_TYPEINFO,
        W_NAMES TYPE SYDES_NAMEINFO,
        w_FieldNames like line of FieldNames.

  DESCRIBE FIELD Struc INTO TD.
  Clear: w_FieldNames.

  LOOP AT TD-TYPES INTO W_TYPES WHERE BACK <> 0.
    w_FieldNames-type = W_TYPES-type.
    Loop at TD-Names into w_Names from W_TYPES-IDX_NAME.
      Concatenate w_FieldNames-Field_Name W_NAMES-NAME
        into w_FieldNames-Field_Name.

      If W_NAMES-Continue <> '*'.
        w_FieldNames-Find_Text = w_FieldNames-Field_Name.
        w_FieldNames-Field_Header = w_FieldNames-Field_Name.
        Append w_FieldNames to FieldNames.
        Clear: w_FieldNames.
        Exit.
      EndIf.
    EndLoop.
  ENDLOOP.

ENDFORM.                    " GetStruc

Bit

To Parazit -> прикольно, я тоже начал такую же форму писать, а тут уже готовое решение есть! :lol:

какой только тип у tt_Struc?

Parazit

Bit написал:

To Parazit -> прикольно, я тоже начал такую же форму писать, а тут уже готовое решение есть! :lol:

какой только тип у tt_Struc?

Да можно упростить до типа CHAR(30), если нужны только имена. Это взято из исходника отсюда.

nicky555

На мой взгляд, есть способ проще - объявить внутреннюю таблицу со ссылкой на структуру словаря данных. Тогда, используя что-нибудь вроде DDIF_NAMETAB_GET, получим список имен полей. Ну а дальше, как и предложено, через ASSIGN... :roll:

OlegDm

nicky555 написал:

На мой взгляд, есть способ проще - объявить внутреннюю таблицу со ссылкой на структуру словаря данных. Тогда, используя что-нибудь вроде DDIF_NAMETAB_GET, получим список имен полей. Ну а дальше, как и предложено, через ASSIGN... :roll:

Кстати можно и без словаря обойтись:

ФМ GET_COMPONENT_LIST вернет список полей структуры, вн.таблицы

nicky555

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

ФМ GET_COMPONENT_LIST вернет список полей структуры, вн.таблицы

Тоже неплохо - респект :wink:

flipper

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

Кстати можно и без словаря обойтись:

ФМ GET_COMPONENT_LIST вернет список полей структуры, вн.таблицы

и правда самый простой способ, респект

Geolog

Не спортивно

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

Цикл по столбцам

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