Динамическое объявление внутренней таблицы

EHOT

Товарищи ... вот такая проблема ... на селекционном экране ползователь указывает имя таблицы БД ... и вот надо чтоб в проге создалась внутренняя таблица такой же структуры как и выбранная таблица БД ... как и чего делать ?

заранее благодарен ...

ВН

DATA: VR TYPE REF TO DATA.
PARAMETERS: TABNAM(16) MATCHCODE OBJECT DD_DBTB_16.

FIELD-SYMBOLS: <WA>, <P> TYPE STANDARD TABLE.

TABLES: DD02L.

START-OF-SELECTION.

CLEAR DD02L.
SELECT SINGLE * FROM DD02L WHERE TABNAME = TABNAM.

IF NOT DD02L-TABNAME IS INITIAL.
CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).
ASSIGN VR->* TO <P>.
LOOP AT <P> ASSIGNING <WA>.
* в <WA> - данные
ENDLOOP.
ELSE.
WRITE:/ 'Неправильное имя таблицы'.
ENDIF.

111

http://www.sapboard.ru/forum/viewtopic ... 4663#14663

EHOT

ага, всем сенк ...

EHOT

эээ, поторопился ... пардон, но не работает ... приведенный пример видимо работает в 4.6, а у нас 4.0 ...
ругается на:

ВН написал(а):

CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).

грит: мол надо CREATE OBJECT ... ставим OBJECT перед DATA , ругается мол после TYPE предполагается "."

111

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

эээ, поторопился ... пардон, но не работает ... приведенный пример видимо работает в 4.6, а у нас 4.0 ...

Да, в 4.0 это не работает. Сразу предупреждать надо о версии :-)

.
Тада никак :-(

.

Serge69

В 4.6С тоже не работает

ВН

в 4.7 - работает, абсолютно точно :wink:

Skif

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

эээ, поторопился ... пардон, но не работает ... приведенный пример видимо работает в 4.6, а у нас 4.0 ...
ругается на:

ВН написал(а):

CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).

грит: мол надо CREATE OBJECT ... ставим OBJECT перед DATA , ругается мол после TYPE предполагается "."

да ...потрахался я с этим..в 40
кажись через дыню делал

111

Serge69 написал:

В 4.6С тоже не работает

В 4.6С хотя бы есть какой-то класс (что-то с ALV связано), который создает динамические внутренние таблицы. Через задницу, но хоть как-то работает.
Сам не работал, потому не знаю.

Sten

так делал. в 4.6С работат. )

Code:

data: begin of fieldtab occurs 0.
        include structure dfies.
data: end  of fieldtab.
fieldcat type lvc_t_fcat with header line,
lr_table type ref to data,
data text_f .
field-symbols: <tab>   type table,
               <fipos> type any.

call function 'GET_FIELDTAB'
         exporting
              tabname  = tabname
              withtext = 'X'
         tables
              fieldtab = fieldtab.
loop at fieldtab.
  move-corresponding fieldtab to fieldcat.
    append fieldcat.
endloop.
call method cl_alv_table_create=>create_dynamic_table
                exporting it_fieldcatalog = fieldcat[]
                importing ep_table = lr_table.

assign  lr_table->* to <tab>.
assign text_f to <fipos>.

Sergey

В 4.0 в хелпе АБАПа есть пример динамического создания таблицы.
Сначала создается таблица описания полей, а потом по ней таблица БД.

111

Sergey написал:

В 4.0 в хелпе АБАПа есть пример динамического создания таблицы.
Сначала создается таблица описания полей, а потом по ней таблица БД.

Таблица БД - понятно. А как создать внутреннюю? В 4.0...

EHOT

Skif написал:

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

эээ, поторопился ... пардон, но не работает ... приведенный пример видимо работает в 4.6, а у нас 4.0 ...
ругается на:

ВН написал(а):

CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).

грит: мол надо CREATE OBJECT ... ставим OBJECT перед DATA , ругается мол после TYPE предполагается "."

да ...потрахался я с этим..в 40
кажись через дыню делал

плз поподробнее с этого места ...

nicky555

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

Sergey написал:

В 4.0 в хелпе АБАПа есть пример динамического создания таблицы.
Сначала создается таблица описания полей, а потом по ней таблица БД.

Таблица БД - понятно. А как создать внутреннюю? В 4.0...

Наверное, имеет смысл по старинке - динамической прогой...

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

Динамическое объявление внутренней таблицы

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