Создание копии таблицы

Maksimus

Прошу помощи.

Пишу отчет. Объявил структуру следующим образом:

Code:

DATA: BEGIN OF tab OCCURS 0,
  p_nom   like HRT1045-TABSEQNR,
  p_rank  like HRT1045-RANK,
  p_slevl like HRT1045-SLEVL,
  p_otype like HRT1045-APP_OTYPE,
  p_objid like HRT1045-APP_OBJID,
  p_text  like HRT1045-APP_STEXT,
  p_rating like HRT1045-RATING,
  p_rtext like HRT1045-RTEXT,
  p_parent like HRT1045-PARENT,
END OF tab.

Дальше структуру наполняю с помощью селекта по таблице HRT1045. Создается таблица с нескольким десятком записей. Хочу дальше эту таблицу разбить на несколько подтаблиц, но у каждой структура аналогична вышеописанной tab.

Описывать новую структуру заново не хочется, пытался объявить так:

Code:

DATA: tab1 like tab.

Но толку от этого нет. Позволяет сохранить только одну строчку, а хочется именно таблицу с которой потом можно будет работать.

Как правильно объявить вторую таблицу, чтобы потом можно было ее наполнить при обработке таблицы tab?
П.С. я не абапер, потому прошу сильно не пинать

Werwolf

Попробуйте так

Code:

TYPES: BEGIN OF tab ,
  p_nom   like HRT1045-TABSEQNR,
  p_rank  like HRT1045-RANK,
  p_slevl like HRT1045-SLEVL,
  p_otype like HRT1045-APP_OTYPE,
  p_objid like HRT1045-APP_OBJID,
  p_text  like HRT1045-APP_STEXT,
  p_rating like HRT1045-RATING,
  p_rtext like HRT1045-RTEXT,
  p_parent like HRT1045-PARENT,
END OF tab.
data: tab1 type standart table of tab.
data: tab2 type standart table of tab.

Примерно так.

Art386

Цитата:

Как правильно объявить вторую таблицу

А так:

Code:

DATA: tab1 like tab OCCURS 0

или еще лучше:

Code:

TYPES:
BEGIN OF ST,
p_nom   like HRT1045-TABSEQNR,
  p_rank  like HRT1045-RANK,
  p_slevl like HRT1045-SLEVL,
  p_otype like HRT1045-APP_OTYPE,
  p_objid like HRT1045-APP_OBJID,
  p_text  like HRT1045-APP_STEXT,
  p_rating like HRT1045-RATING,
  p_rtext like HRT1045-RTEXT,
  p_parent like HRT1045-PARENT,
END OF ST,

T_DATA_TABLE TYPE STANDARD TABLE OF ST.

DATA:
TAB  TYPE T_DATA_TABLE,
TAB1 TYPE T_DATA_TABLE.

Maksimus

Art386 написал:

А так:

Code:

DATA: tab1 like tab OCCURS 0

или еще лучше:

Code:

TYPES:
BEGIN OF ST,
p_nom   like HRT1045-TABSEQNR,
  p_rank  like HRT1045-RANK,
  p_slevl like HRT1045-SLEVL,
  p_otype like HRT1045-APP_OTYPE,
  p_objid like HRT1045-APP_OBJID,
  p_text  like HRT1045-APP_STEXT,
  p_rating like HRT1045-RATING,
  p_rtext like HRT1045-RTEXT,
  p_parent like HRT1045-PARENT,
END OF ST,

T_DATA_TABLE TYPE STANDARD TABLE OF ST.

DATA:
TAB  TYPE T_DATA_TABLE,
TAB1 TYPE T_DATA_TABLE.

Первый способ пробовал - не вышло. Завтра попробую второй.

Art386

Цитата:

Первый способ пробовал - не вышло. Завтра попробую второй.

что именно не вышло?

hoar

Maksimus написал:

Прошу помощи.

Пишу отчет. Объявил структуру следующим образом:

Code:

DATA: BEGIN OF tab OCCURS 0,
......
Описывать новую структуру заново не хочется, пытался объявить так:
[code]DATA: tab1 like tab.

Но толку от этого нет. Позволяет сохранить только одну строчку, а хочется именно таблицу с которой потом можно будет работать.

А так пробовали ?
tab1[] = tab[].

Jelena

Поскольку не ABAPер, то я бы просто написала вот так:

Code:

data: tab1 like standard table of tab with header line.

Т.о. вы объявляете внутреннюю таблицу (internal table) полностью аналогичную tab. Кошернее было бы использовать TYPES, да и таблицы с header line (OCCURS 0) вообще считаются устаревшими (хотя мне лично они очень даже нравятся), но полагаю в данном случае можно этими условностями пренебречь.

Maksimus

Jelena написала:

Поскольку не ABAPер, то я бы просто написала вот так:

Code:

data: tab1 like standard table of tab with header line.

Т.о. вы объявляете внутреннюю таблицу (internal table) полностью аналогичную tab. Кошернее было бы использовать TYPES, да и таблицы с header line (OCCURS 0) вообще считаются устаревшими (хотя мне лично они очень даже нравятся), но полагаю в данном случае можно этими условностями пренебречь.

Спасибо. Все получилось!
Просто и понятно

Serge69

А так проще, писанины меньше.
data tab1 like tab2[].

Maksimus

Serge69 написал:

А так проще, писанины меньше.
data tab1 like tab2[].

Ваш вариант не подходит.
Ругается...

Цитата:

... is a table without a header line

Besa

Maksimus, в Вашем случае
data tab1 like tab[].
Нельзя же просто копипастить, будьте чуть внимательнее

Serge69

Цитата:

Ваш вариант не подходит.
Ругается...

ну так надо добавить with header line

Art386

Serge69 написал:

Цитата:

Ваш вариант не подходит.
Ругается...

ну так надо добавить with header line

Кажется, я понял, почему у автора "не работали" эти варианты:

Code:

data tab1 like tab2[].
DATA: tab1 like tab OCCURS 0.

Таблички объявляются без хедера в таком случае.

Скорее всего, у него в коде где-нибудь написано

Code:

append tab1.

На что, естественно, ругается компилятор...

Цитата:

The internal table "TAB1" has no header line - instead of "APPEND
TAB1", only "APPEND wa TO TAB1" is possible.

Ну и решение в итоге из 3 вариантов:

Code:

data tab1 like tab2[] with header line.
DATA: tab1 like tab OCCURS 0 with header line.
data: tab1 like standard table of tab with header line.

Maksimus

Besa написал:

Maksimus, в Вашем случае
data tab1 like tab[].
Нельзя же просто копипастить, будьте чуть внимательнее

Besa, ну я не настолько глуп чтобы просто копипастить. Не надо воспринимать вещи буквально.
Art386, в своем последнем посте абсолютно прав.

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

Создание копии таблицы

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