FIELD-SYMBOLS. Динамическое описание данных.

Damager

Здравствуйте!

Помогите, плз! Никак не получается вникнуть в эти FIELD-SYMBOLS.

Привожу пример моей программы.

Code:

DATA: BEGIN OF my_tab OCCURS 0,
      id TYPE i,
      name(50),
      END OF my_tab.


PERFORM myform CHANGING my_tab[].

FORM myform CHANGING rows TYPE table.

  FIELD-SYMBOLS: <fn>.
  data fname(60).

  fname = 'rows-id'.
  CONDENSE fname.
  ASSIGN (fname) TO <fn>.
  <fn> = '1'.

  fname = 'rows-name'.
  CONDENSE fname.
  ASSIGN (fname) TO <fn>.
  <fn> = 'qwerty'.

  append rows.
ENDFORM.

Надо, чтобы в форме myform заполнялась переданная ей туда табличка. В этом примере для уменьшения кода я использовал статическое присвоение полей (fname = 'rows-id'). В оригинальной программе алгоритм другой (использую sydes).

Ошибка возникает при проверке кода. Он пишет, что нельзя применить append к табличке rows у которой нет header line.
Как объявить wa нужной мне структуры и использовать его для заполнения таблицы?

sibrin

Ошибок много.
Во-первых, так таблицу в подпрограмму не передают.
Во-вторых, имена переменных должны быть заглавными буквами.
В-третьих, масло-масляное, т.е. данный assign ничем не отличается от прямого обращения к полям (rows-id) и запрещён, т.к. таблица не типизирована. Т.е. нужно использовать assign component.

Вам нужно передавать именно не типизированные таблицы?
Может лучше так:

Code:

TYPES: BEGIN OF t_my_tab, 
      id TYPE i, 
      name(50), 
      END OF t_my_tab,
      tt_my_tab type table of t_my_tab
.
data: my_tab type tt_my_tab.

PERFORM myform CHANGING my_tab[]. 

FORM myform CHANGING rows TYPE tt_my_tab.

Damager

Form будет в include и передаваться будут таблицы заранее неизвестных типов ...

sibrin

Полтора года назад Вам уже всё объяснили:
http://sapboard.ru/forum/viewtopic.php?t=17508

Damager

Тут описано как прочесть данные из передаваемой таблицы ...
А как ее заполнить?!

sibrin

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

А как ее заполнить?!

Когда используется конструкция loop ... assiging <fs>, то <fs> ссылается непосредственно на строку таблицы, а не на её копию, как в случае с header line. Поэтому можно прямо в филд-символ присваивать.

sy-uname

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

Тут описано как прочесть данные из передаваемой таблицы ...
А как ее заполнить?!

Внимательно изучите последнее сообщение по указанной ранее ссылке - там есть всё что нужно.

Damager

Но таблица у меня пустая. Т.е. до loop надо еще строки пустые вставить ...
Например так ... insert initial line into table rows.

далее

Code:

loop at rows into <fs>.
  assign component 1 OF STRUCTURE <fs> TO <data>.
  <data> = 1.
  assign component 2 OF STRUCTURE <fs> TO <data>.
  <data> = 'name'.
endloop.

Так не срабатывает ... Через отладку видно, что заполняется и <data> и <fs>, но таблица не меняется ...

Damager

Вместо into поставил assigning. Вроде как заработало ...
Спасибо за помощь! Буду дальше копаться ...

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

FIELD-SYMBOLS. Динамическое описание данных.

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