Подскажите, как перебирать внутренние таблицы в цикле?

banah

Может как-то иначе можно решить проблему?
Я хочу сохранить через WS_DOWNLOAD несколько таблиц из базы данных. Для этого создал несколько внутренних таблиц и хочу в лупе делать им селект отправлять в файл.

\\\\\\\\

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

Может как-то иначе можно решить проблему?
Я хочу сохранить через WS_DOWNLOAD несколько таблиц из базы данных. Для этого создал несколько внутренних таблиц и хочу в лупе делать им селект отправлять в файл.

можно попробовать использовать FIELD-SYMBOLS

Code:

DATA: <FS> TYPE ANY TABLE.
ASSIGN (IT_NAME) TO <FS> TYPE (T_IT_NAME).
SELECT * FROM  (DB_NAME) INTO TABLE <FS>.

В IT_NAME - имя внутренней таблицы
В T_IT_NAME - имя типа таблицы IT_NAME (предпологается что он определен через TYPE STANDARD TABLE OF db_name)
В DB_NAME - имя таблицы базы данных.

\\\\\\\\

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

Code:

DATA: <FS> TYPE ANY TABLE.
...

Конечно же

Code:

FIELD-SYMBOLS: <FS> TYPE ANY TABLE.
...

banah

Code:

ASSIGN (IT_NAME) TO <FS> TYPE (T_IT_NAME).

ТУт получаю "Field (T_IT_NAME) is unknown."

Дай кусочек рабочего кода, плз... К сожалению курс по основам я прослушал, но на вопрос "Расскажите про FIELD_SYMBOLS." мне было отвечено "Да я вообще-то не в курсе что это и зачем, никогда не применял". Самому разобраться по хелпу не удается... полдня уже вожусь...

\\\\\\\\

Code:

ASSIGN (IT_NAME) TO <FS> TYPE T_IT_NAME.

Рабочий код привести <я не знать русский языка> из-за отсутствия в данный момент системы, иначе сразу-бы и привёл работающий вариант.

FIELD-SYMBOLS - это что-то вроде указатея на переменную.

http://help.sap.com/saphelp_46c/helpdat ... ameset.htm

EGF

А вот Вам и кусочек кода.

FORM check_and_convert_data
USING pt_file_d TYPE tt_file_d pt_file_i TYPE tt_file_i.
FIELD-SYMBOLS:
<lt_file> TYPE table,
<ls_file> TYPE ANY,
<l_id> TYPE t_id
.
CASE g_type.
WHEN gc_defl.
ASSIGN pt_file_d TO <lt_file>.
WHEN gc_incc.
ASSIGN pt_file_i TO <lt_file>.
ENDCASE.

LOOP AT <lt_file> ASSIGNING <ls_file>.
ASSIGN COMPONENT 'ID' OF STRUCTURE <ls_file> TO <l_id>.
CHECK sy-subrc = 0.
...
ENDLOOP.
ENDFORM.

Здесь, конечно, не весь код. Но главное присутствует.

А можно ещё и вот так.

FUNCTION znlcef_join_tables.
...
*" TABLES
*" PARENT TYPE STANDARD TABLE
...
*" IMPORTING
*" REFERENCE(KEY_FIELD0) TYPE FIELDNAME
...

DATA:
lt_parent TYPE REF TO data,
ls_parent TYPE REF TO data
.

FIELD-SYMBOLS:
<lt_parent> TYPE STANDARD TABLE,
<ls_parent> TYPE ANY,
<p_key0> TYPE ANY
.

GET REFERENCE OF parent[] INTO lt_parent.
ASSIGN lt_parent->* TO <lt_parent>.
CREATE DATA ls_parent LIKE LINE OF <lt_parent>.
ASSIGN ls_parent->* TO <ls_parent>.

LOOP AT <lt_parent> INTO <ls_parent>.
...
ASSIGN COMPONENT key_field0 OF STRUCTURE <ls_parent>
TO <p_key0>.
IF sy-subrc <> 0. EXIT. ENDIF.
...
ENDLOOP.
ENDFUNCTION.

А вообще очень советую разобраться с field-symbols. Полезная штука.

banah

штука и впрямь полезная

Проблема решилась. Надо симболс объявлять чуть иначе и не указывать тип при ассайне:

Code:

FIELD-SYMBOLS: <FS> TYPE STANDARD TABLE. 
ASSIGN (IT_NAME) TO <FS>. 
SELECT * FROM  (DB_NAME) INTO TABLE <FS>. 

banah

Гулять - так гулять...

Вообщем хочу сделать процедуру, которая сохраняет таблицу в файл. Причем не всю, а выбирая записи по ключу из другой таблицы, передаваемой по параметру...

Code:

FORM DOWNLOADCORE
     USING
          FIELD TYPE CHAR10
          DBTAB TYPE CHAR10
          MAINTAB TYPE CHAR10
          RESTAB TYPE CHAR10.

  DATA:  where_tab(80) occurs 1 with header line,
             WHERE(80) TYPE C,
             LONG_FIELD(80).

  REFRESH WHERE_TAB.
  CONCATENATE MAINTAB '-' FIELD INTO LONG_FIELD.
  CONCATENATE FIELD ' =' LONG_FIELD INTO WHERE SEPARATED BY SPACE.
  APPEND WHERE TO WHERE_TAB.

Это, кстати, еще один вопрос. Как собрать строку типа
MANDT = TAB-FIELD через CONCATENATE? Он обрезает заканчивающие пробелы... в итоге из
CONCATENATE 'MANDT = ' TABNAME '-' FIELDNAME INTO WHERE
получаем = приклееное к имени таблицы. Не нашел лучшего способа чем этот...

Code:

  FIELD-SYMBOLS: <PRI> TYPE STANDARD TABLE,
                            <RES> TYPE STANDARD TABLE.

  ASSIGN: (MAINTAB) TO <MAIN>,
                (RESTAB) TO <RES>.

  SELECT *  FROM (DBTAB) CLIENT SPECIFIED APPENDING TABLE <RES>
    FOR ALL ENTRIES IN <MAIN>
    WHERE  (WHERE_TAB).

На это мне было отвечено, как я понял, что динамически можно вписыватть условия типа поле=значение, но не поле=переменная.
Как по другому это сделать - не придумывается...

Pchelka

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

Code:

CONCATENATE MAINTAB '-' FIELD INTO LONG_FIELD.
  CONCATENATE FIELD ' =' LONG_FIELD INTO WHERE SEPARATED BY SPACE.

Не нашел лучшего способа чем этот...

Вот тебе еще один способ, чуть более универсальный:

Code:

CONCATENATE FIELD '!=!' MAINTAB '-' FIELD INTO WHERE.
TRANSLATE WHERE USING '! '.  

banah

Так по основному вопросу - решения нет? Нельзя настолько динамичестки строить запрос?

Vadim

Я думаю, что пока не существует адекватного способа решения этой задачи, но если так уж хочется, попробуй динамическое программирование или же составляй условие из всех значений MAINTAB

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

Подскажите, как перебирать внутренние таблицы в цикле?

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