Возможно ли динамическое опбращение к полям таблицы?

Esoteric

Ситуация такая: надо последовательно обработать все поля таблицы TABL. Причем для каждого поля код один и тотже но достаточно громоздкий. Есть ли какая нибудь возможность в конструкции
TABL-FIELD = X (где FIELD - имя поля, а X - присваемое значение), FIELD менять динамически, используя данные из таблицы TABLFIELD куда предварительно записать как данные имена всех полей таблицы TABL, воспользовавшись функцией GET_COMPONENT_LIST.

holocron

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

Ситуация такая: надо последовательно обработать все поля таблицы TABL. Причем для каждого поля код один и тотже но достаточно громоздкий. Есть ли какая нибудь возможность в конструкции
TABL-FIELD = X (где FIELD - имя поля, а X - присваемое значение), FIELD менять динамически, используя данные из таблицы TABLFIELD куда предварительно записать как данные имена всех полей таблицы TABL, воспользовавшись функцией GET_COMPONENT_LIST.

F1 на команде assign

РМщик

Code:

REPORT Z1 .

DATA: BEGIN OF ZAP,
       VAL1(15),
       VAL2(15),
       VAL3(15),
       VAL4(15),
       VAL5(15),
       VAL6(15),
       VAL7(15),
      END OF ZAP,
      VAL(20),
      STEP TYPE I,
COMP LIKE  RSTRUCINFO OCCURS 0 WITH HEADER LINE.
FIELD-SYMBOLS: <F>.

CALL 'AB_STRUC_INFO'
  ID 'PROGRAM'   FIELD SY-REPID
  ID 'STRUCNAME' FIELD 'ZAP'
  ID 'STRUCINFO' FIELD COMP-*SYS*.

STEP = 1.

LOOP AT COMP.
  CONCATENATE 'ZAP-' COMP-COMPNAME INTO VAL.
  ASSIGN (VAL) TO <F>.
  CHECK SY-SUBRC = 0.
  PERFORM OBRAB USING <F>.
  WRITE:/ VAL, <F>.
  ADD 1 TO STEP.
ENDLOOP.

FORM OBRAB USING TVAL TYPE CHAR15.
  CASE STEP.
    WHEN 1.  TVAL = 'Понедельник'.
    WHEN 2.  TVAL = 'Вторник'.
    WHEN 3.  TVAL = 'Среда'.
    WHEN 4.  TVAL = 'Четверг'.
    WHEN 5.  TVAL = 'Пятница'.
    WHEN 6.  TVAL = 'Суббота'.
    WHEN 7. TVAL =  'Воскресенье'.
  ENDCASE.

ENDFORM.                  

Bully

РМщик написал(а):

CALL 'AB_STRUC_INFO'
ID 'PROGRAM' FIELD SY-REPID
ID 'STRUCNAME' FIELD 'ZAP'
ID 'STRUCINFO' FIELD COMP-*SYS*.

А может сразу на ассемблере?

Ich Will

Может не в тему маленько а что это за прикол с COMP-*SYS*. ?

РМщик

ну лень мне было писать call function GET_COMPONENT_LIST.....

тем более, что внутрии ее такой коротенький код

ПРИДИРЫ!

Mike1

Программы с прямым вызовом с- функций ядра могут не пережить upgrade, сап рекомендует использовать в данном случае Runtime Type Identification (см класс CL_ABAP_TYPEDESCR).

flipper

ну или же использовать DO..VARYING... :roll:

например:

Code:

DATA: BEGIN OF ZAP,
       VAL1(15),
       VAL2(15),
       VAL3(15),
       VAL4(15),
       VAL5(15),
       VAL6(15),
       VAL7(15),
      END OF ZAP,
      val(15).

do 7 times varying val from zap-val1 next zap-val2.
  val = sy-index.
enddo.
write : / zap.

РМщик

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

а вообще - смысл примера показать assign. а не способ получения списка полей!

flipper

РМщик написал(а):

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

если не ошибаюсь, для DO..VARYING не важны имена полей в структуре, а важен лишь их тип, т.е расстояние между ними в памяти...
ну а если речь только про assign, то <я не знать русский языка> :wink:

Mike1

Ну а если про GET_COMPONENT_LIST , то он работает только для глобальных данных программы.

Удав

Для получения компонентов можно использовать класс cl_abap_typedescr, например
cl_abap_typedescr=>describe_by_data

SAP-мучитель

смотри assign component

Zidan

Как мне сделать динамическое присвоение поля таблицы?

select kstar sum( kstarwtg ) into (my-mystar, my-wtg) from............

kstarwtg будет браться с экрана.

С использованием assign не получается, потому что в нём:
ASSIGN TABLE FIELD (NAME) TO <F>.
надо указывать поле таблицы (в данном примере NAME), а оно то у меня и будет изменяться.

holocron

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

Как мне сделать динамическое присвоение поля таблицы?

select kstar sum( kstarwtg ) into (my-mystar, my-wtg) from............

kstarwtg будет браться с экрана.

С использованием assign не получается, потому что в нём:
ASSIGN TABLE FIELD (NAME) TO <F>.
надо указывать поле таблицы (в данном примере NAME), а оно то у меня и будет изменяться.

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

select (fields) from... надо только fields заполнить

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

Возможно ли динамическое опбращение к полям таблицы?

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