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

Salmaner

Всем привет!

ну очень мне щас нужен перебор полей таблицы. или метод получения сумм полей таблицы не по колонке а по строке.
ибо у меня есть таблица с 20-ю полями одинакового типа (итоговые суммы) и всегда одна строка, и складывать перечисляя все поля
главныйИтог = поле1 + поле1 + ... + полеN ну очень не охота.

пробовал через симболс ... ругается мол нету такого поля в таблице.
тут строка lineFlax содержит поля с данными
itHash данная таблица содежит значения, которые означают имена полей предыдущей таблицы.
т.е. хотел сделать так перебор хэша с именрами полей и получая имя поля подставлять его в таблицу со значениями.

Code:

READ TABLE i_HSLSUM INDEX 1 into lineFlax.
  DO 16 TIMES.
    READ TABLE itHash  WITH KEY keyHash = sy-index into lnHash.
    assign lnHash-volAcct to <hsl>.
    SumBeging = SumBeging + lineFlax-<hsl>.
    write:  lineFlax-<hsl>.
  ENDDO.

вот собственно сабж ....

sibrin

Примерно так:

Code:

concatenate 'LINEFLAX-' lnHash-volAcct into FieldName.
assign (FieldName) to <hsl>. 
SumBeging = SumBeging + <hsl>. 
write:  <hsl>.

При этом имена полей в volAcct должны быть составлены прописными буквами.

Но проще так:

Code:

field-symbols <f> like LINEFLAX-FLD1.
data: incr type i.
clear SumBeging.
do 16 times.
   incr = sy-index - 1.
   assign LINEFLAX-FLD1 to <f> increment incr.
    SumBeging = SumBeging + <f>. 
    write: <f>.
endddo.

sy-uname

Salmaner написал:

Всем привет!

ну очень мне щас нужен перебор полей таблицы. или метод получения сумм полей таблицы не по колонке а по строке.
ибо у меня есть таблица с 20-ю полями одинакового типа (итоговые суммы) и всегда одна строка, и складывать перечисляя все поля
главныйИтог = поле1 + поле1 + ... + полеN ну очень не охота.

пробовал через симболс ... ругается мол нету такого поля в таблице.
тут строка lineFlax содержит поля с данными
itHash данная таблица содежит значения, которые означают имена полей предыдущей таблицы.
т.е. хотел сделать так перебор хэша с именрами полей и получая имя поля подставлять его в таблицу со значениями.

А справку по field-symbols прочитать сложно? Там ведь есть и примеры использования.

Salmaner написал:

Code:

READ TABLE i_HSLSUM INDEX 1 into lineFlax.
  DO 16 TIMES.
    READ TABLE itHash  WITH KEY keyHash = sy-index into lnHash.
    assign lnHash-volAcct to <hsl>.

если в lnHash-volAcct имя поля, то вначале
concatenate 'LINEFLAX-' lnHash-volAcct into fieldnamefull.
а потом
assign (fieldnamefull) to <hsl>.

Salmaner написал:

Code:

    SumBeging = SumBeging + lineFlax-<hsl>.
    write:  lineFlax-<hsl>.

SumBeging = SumBeging + <hsl>.
write: <hsl>.

Salmaner написал:

Code:

ENDDO.

вот собственно сабж ....

Salmaner

Цитата:

При этом имена полей в volAcct должны быть составлены прописными буквами.

Они как раз и прописные, а вот какого типа должен быть

Цитата:

FieldName

... можно символьным сделать?

sibrin

Salmaner написал:

... можно символьным сделать?

Нужно.

PS. Я выше дописал ещё один вариант, когда не хочется знать имена полей. Можно использовать и устаревший вариант do ... varying.

sy-uname

Salmaner написал:

Цитата:

При этом имена полей в volAcct должны быть составлены прописными буквами.

Они как раз и прописные, а вот какого типа должен быть

Цитата:

FieldName

... можно символьным сделать?

String или Char достаточной длины, что-бы влез итог concatenate 'LINEFLAX-' lnHash-volAcct

Salmaner

да да, сделал достаночной длины ... тока вот почему то
вернуло все по нулям ... :roll:

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

вау, огромное спасибо sy-uname и sibrin за помощь и бучку по поводу хелпа.
ну не знаю не понятный он какой то хелп.

sy-uname

Кстати, такая конструкция

Code:

concatenate 'LINEFLAX-' lnHash-volAcct into FieldName.
assign (FieldName) to <hsl>. 

сработает только если LINEFLAX объявлена глобпльно.
для локальнвх переменных лучше воспользоваться
assign component lnHash-volAcct of structure lineFlax to <hsl>.

Salmaner

sy-uname

ну на сколько я понимаю на данный момент, моя LINEFLAX и есть глобальная переменная т.е. она объявленна не в подпрограмме а в начале очтета в разделе всех DATA
хорошо что напомнили а то я уже задумываюсь все это дело (объявление хешных таблиц, структур) перенисти в подпрограммки или лучше в инклуды.

Art386

можно так примерно:

Code:

DATA: wa TYPE <тип строки таблицы>.
FIELD-SYMBOLS: <fs> TYPE ANY.

DO.
ASSIGN COMPONENT sy-index OF STRUCTURE wa TO <fs>.
IF sy-subrc = 0.
*здесь делаем то, что нам нужно
ELSE.
  EXIT.
ENDIF.
ENDDO.

такой вариант хорош тем, что не надо явно указывать число итераций цикла DO ... ENDDO. по нашей структуре

vga

А такой вариант не подойдет?

Code:

      SELECT umsav
             um01s um02s um03s um04s um05s um06s
             um07s um08s um09s um10s um11s um12s
             um13s um14s um15s um16s
       FROM knc1 INTO CORRESPONDING FIELDS OF TABLE it_knc1
       WHERE kunnr = pkunnr AND
             bukrs = pbukrs AND
             gjahr = pdate(4).

      READ TABLE it_knc1 INDEX 1.
      ADD it_knc1-umsav FROM 1 TO 16 GIVING balance.

Брат Мигель

мне кажется вам нужна данная обработка.
DO 31 TIMES
VARYING tpr FROM t552a-tpr01 NEXT t552a-tpr02
* VARYING ttp FROM t552a-ttp01 NEXT t552a-ttp02
VARYING ftk FROM t552a-ftk01 NEXT t552a-ftk02
VARYING var FROM t552a-var01 NEXT t552a-var02.
IF tpr IS INITIAL.
EXIT.
ENDIF.
ENDDO

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

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

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