Цикл суммирования!

Zhasulan

В таблице COSP есть столбцы WTG001,...,WTG012.
Нужно сделать цикл который бы суммировал их меняя только две последние цифры??
Т.е. в зависимости за какую дату у меня формируется отчет.
Например с 01.03.2008 до 31.07.2008 тогда нужно просуммировать itab-PLAN = COSP-WTG003 + ... + COSP-WTG007???
Заранее благодарю!!

John Doe

Делайте через:

Code:

FIELD-SYMBOLS: <FIELD>.

DO.
  MOVE NUM TO FIELDNAME.
  CONCATENATE 'WTG' FIELDNAME INTO FIELDNAME.
  ASSIGN COMPONENT FIELDNAME OF STRUCTURE COSP TO <FIELD>.
  CHECK <FIELD> IS ASSIGNED.
  
  SUMMARY = SUMMARY + <FIELD>.
  
  IF ...
    EXIT.
  ENDIF.
ENDDO.

Zhasulan

FIELDNAME - какой тип???

ghost

используйте справку F1

Code:

The evaluation depends on the data type of comp: 

If the field comp has a text-type type (c or string), or a flat structure, its content is interpreted as the name of the component. 

If the field comp has a non-text, elementary type, the content is converted to the type i and interpreted as a position of the component in the structure. 

if the value for comp is 0, the storage area of the entire structure is assigned to the field symbol.

в вашем случае это строковый тип

Zhasulan

Сделал так

Code:

  num = 1.
DO i times.
  MOVE num TO FIELDNAME.
  CONCATENATE 'WTG0' FIELDNAME INTO FIELDNAME.
  ASSIGN COMPONENT FIELDNAME OF STRUCTURE COSP TO <FIELD>.
  CHECK <FIELD> IS ASSIGNED.
  itab-PLAN = itab-PLAN + <FIELD>.
  num = num + 1.
enddo.

Но как добавить нули перед num?
Т.е. у меня получается так WTG01, ... , WTG09, WTG010... WTG012??
WTG01 ... WTG09 - неправильно??

Besa

Цитата:

Но как добавить нули перед num?

data num(2) type n.

Сергей Королев

Zhasulan написал:

Но как добавить нули перед num?
Т.е. у меня получается так WTG01, ... , WTG09, WTG010... WTG012??
WTG01 ... WTG09 - неправильно??

опишите num так:

Code:

DATA: num(2) TYPE n.

Zhasulan

Спасибо!!!все работает!!! :lol:

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

Цикл суммирования!

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