Перенос содержимого таблицы из песочницы

Manticore

Коллеги! Подскажите, каким образом можно перенести содержимое таблицы из манданта-песочницы в другой мандант той же системы? В свойствах манданта указано "Изменения без автоматической записи".

T

В запрос на перенос можно включить объект
R3TR TABU <таблица> + указать маску ключа. В данном случае
номер манданта песочницы*

Manticore

Таким способом переносится не содержимое, а сама таблица. Содержимое должно идти с кодом TDAT, а не TABU.

Пробовал включить в запрос таким образом. Система не дает включать объекты в запрос настройки. Кстати, способ RFC-синхронизации через SM30 тоже не помог - диалог ведения для таблицы не полон или не определен.

vvk

T написал:

В запрос на перенос можно включить объект
R3TR TABU <таблица> + указать маску ключа. В данном случае
номер манданта песочницы*

насколько я понял речь шла о переносе в рамках одной системы из манданта в мандант

можете воспользоваться сравнением, если создан диалог ведения (sm30->утилиты->сравнение) или включить содержимое таблицы в запрос и воспользоваться транзакцией копирования scc1

T

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

Таким способом переносится не содержимое, а сама таблица. Содержимое должно идти с кодом TDAT, а не TABU.

TABU - содержимое таблицы.

PS Ну и соответственно понадобится SCC1
PS2 Содержимое нужно будет включать в запрос в песочнице
PS2 Объекты включать не в задачу, а в корень запроса.

Manticore

Создал аналогичный запрос в другой системе. Все таки TDAT, а не TABU!

Делаю так: в исходном манданте SE10 -> создал запрос на настройку -> включить объекты в запрос (не в задачу). Выбираю "Объекты свободного выбора". Система выдает ошибку о том, что данный запрос не того типа.

T

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

Все таки TDAT, а не TABU!

Если тебе известен объект настройки и все нужные таблицы - наверное, можно и TDAT - не вопрос (честно сказать, не знаю, как это проделать вручную). Дело в том, что TABU по сути как подмножество для TDAT.

В запрос я включаю обычно через Shift-F11

РМщик

Программа для экспорта/импорта
любых таблиц из любой системы в любую

Code:

REPORT  ZTEST29                                 .
DATA:       VR TYPE REF TO DATA.
PARAMETERS: D_EXPORT RADIOBUTTON GROUP R1,
            D_IMPORT RADIOBUTTON GROUP R1.
PARAMETERS: TABNAM(16) MATCHCODE OBJECT DD_DBTB_16.
PARAMETERS: FILENAME LIKE  RLGRAP-FILENAME DEFAULT 'C:\TABLE.TXT'.
FIELD-SYMBOLS: <WA>, <P> TYPE STANDARD TABLE.

TABLES: DD02L.

START-OF-SELECTION.

  AUTHORITY-CHECK     OBJECT    'S_TABU_DIS'
                        ID        'DICBERCLS'   FIELD 'XXXX'
                        ID        'ACTVT'       FIELD '02'.
  IF SY-SUBRC <> 0.
    LEAVE PROGRAM.
  ENDIF.

*S_TABU_CLI, CLIIDMAINT ='X'

  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>.
    IF D_EXPORT = 'X'.
      PERFORM EXPORT.
    ELSE.
      PERFORM IMPORT.
    ENDIF.
  ELSE.
    WRITE:/ 'Неправильное имя таблицы'.
  ENDIF.

*&--------------------------------------------------------------------*
*&      Form  EXPORT
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM EXPORT.
  CLEAR <P>. REFRESH <P>.
  SELECT * FROM (TABNAM) APPENDING TABLE <P>.
  CALL FUNCTION 'WS_DOWNLOAD'
    EXPORTING
      FILENAME = FILENAME
      FILETYPE = 'DAT'
    TABLES
      DATA_TAB = <P>
    EXCEPTIONS
      OTHERS   = 1.
  IF SY-SUBRC = 0.
    WRITE:/ 'Выгрузка прошла успешно в файл ',FILENAME.
  ELSE.
    WRITE:/ 'Ошибка выгрузки'.
  ENDIF.
ENDFORM.                    "EXPORT

*&--------------------------------------------------------------------*
*&      Form  IMPORT
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM IMPORT.
  CLEAR <P>. REFRESH <P>.
  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      FILENAME = FILENAME
      FILETYPE = 'DAT'
    TABLES
      DATA_TAB = <P>
    EXCEPTIONS
      OTHERS   = 1.
  IF SY-SUBRC = 0.
    DELETE FROM (TABNAM).
    LOOP AT <P> ASSIGNING <WA>.
      INSERT (TABNAM) FROM <WA>.
    ENDLOOP.
    COMMIT WORK AND WAIT.
    WRITE:/ 'Загрузка из локального файла прошла успешно'.
  ELSE.
    WRITE:/ 'Ошибка загрузки'.
  ENDIF.
ENDFORM.                    "IMPORT

РМщик

если у вас дамп, то можно попробовать немного другой вариант

Code:

REPORT  ZTEST29                                 .
DATA:       VR TYPE REF TO DATA.
PARAMETERS: D_EXPORT RADIOBUTTON GROUP R1,
            D_IMPORT RADIOBUTTON GROUP R1.
PARAMETERS: TABNAM(16) MATCHCODE OBJECT DD_DBTB_16.
PARAMETERS: FILENAME LIKE  RLGRAP-FILENAME DEFAULT 'C:\TABLE.TXT'.

DATA: FILEN TYPE STRING.

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

TABLES: DD02L.

START-OF-SELECTION.

  AUTHORITY-CHECK     OBJECT    'S_TABU_DIS'
                        ID        'DICBERCLS'   FIELD 'XXXX'
                        ID        'ACTVT'       FIELD '02'.
  IF SY-SUBRC <> 0.
    LEAVE PROGRAM.
  ENDIF.

*S_TABU_CLI, CLIIDMAINT ='X'

  CLEAR DD02L.
  SELECT SINGLE * FROM DD02L WHERE TABNAME = TABNAM.
FILEN = FILENAME.
  IF  NOT DD02L-TABNAME IS INITIAL.
    CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).
    ASSIGN VR->* TO <P>.
    IF D_EXPORT = 'X'.
      PERFORM EXPORT.
    ELSE.
      PERFORM IMPORT.
    ENDIF.
  ELSE.
    WRITE:/ 'Неправильное имя таблицы'.
  ENDIF.

*&--------------------------------------------------------------------*
*&      Form  EXPORT
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM EXPORT.
  CLEAR <P>. REFRESH <P>.
  SELECT * FROM (TABNAM) APPENDING TABLE <P>.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME = FILEN
      FILETYPE = 'BIN'
    TABLES
      DATA_TAB = <P>
    EXCEPTIONS
      OTHERS   = 1.
  IF SY-SUBRC = 0.
    WRITE:/ 'Выгрузка прошла успешно в файл ',FILENAME.
  ELSE.
    WRITE:/ 'Ошибка выгрузки'.
  ENDIF.
ENDFORM.                    "EXPORT

*&--------------------------------------------------------------------*
*&      Form  IMPORT
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM IMPORT.
  CLEAR <P>. REFRESH <P>.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME = FILEN
      FILETYPE = 'BIN'
    TABLES
      DATA_TAB = <P>
    EXCEPTIONS
      OTHERS   = 1.
  IF SY-SUBRC = 0.
    DELETE FROM (TABNAM).
    LOOP AT <P> ASSIGNING <WA>.
      INSERT (TABNAM) FROM <WA>.
    ENDLOOP.
    COMMIT WORK AND WAIT.
    WRITE:/ 'Загрузка из локального файла прошла успешно'.
  ELSE.
    WRITE:/ 'Ошибка загрузки'.
  ENDIF.
ENDFORM.                    "IMPORT

Manticore

Спасибо! Сработало.

Только вот не очень это красивый способ, на мой сугубо личный взгляд. Хотя на безрыбье...

РМщик

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

Спасибо! Сработало.

Только вот не очень это красивый способ, на мой сугубо личный взгляд. Хотя на безрыбье...

Непросто "некрасивый", но еще и опасный

Юзерам нельзя давать этот инструмент,
а вот консультантам, осознающим свои действия - это облегчает жизнь

Egal

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

Создал аналогичный запрос в другой системе. Все таки TDAT, а не TABU!

Делаю так: в исходном манданте SE10 -> создал запрос на настройку -> включить объекты в запрос (не в задачу). Выбираю "Объекты свободного выбора". Система выдает ошибку о том, что данный запрос не того типа.

Можно же F4 надавить в типе, t*

TABL Таблица
TABU Содержимое таблицы
TDAT Настройка: содержимое таблицы
TERM Перенос терминологических таблиц
TEXT SAPscript-текст
TFRM Формулы и условия: записи таблиц
TOBJ Определение объекта ведения и переноса
TRAN Транзакция
TTPL Образцы транзакций для групп операций
TTYP Тип таблицы
TWBH Каталог тестов
TX01 Управление текстами: виды текстов и схема текстов
TX02 Управление текстами: последовательности доступа
TX03 Управление текстами: сген. таблица последовательностей дост.
TX04 Управление текстами: разрешённые текстовые объекты
TX05 Управление текстом: присвоения схемы текстов
TYPE Группа типов

Например, если надо перетащить записи VBAK
SE09 -> инструментальный запрос (или как он там, не на настройку)
"корректуру" можно убить. Потом кнопец содержимое запроса.
ну и туда действительно RSTR + TABU + имя таблицы + индекс, какие записи выбрать.

T

В качестве имени для TDAT указывается объект настройки, а уже внутри него должны быть перечислены таблицы (сколько угодно) и ключи. Но я, например, не знаю, как вручную там указать список таблиц.
Для TABU указывается таблица. Одна. И ключи в ней.

Egal

T написал:

В качестве имени для TDAT указывается объект настройки, а уже внутри него должны быть перечислены таблицы (сколько угодно) и ключи. Но я, например, не знаю, как вручную там указать список таблиц.
Для TABU указывается таблица. Одна. И ключи в ней.

Ну да, все верно :-)

knif

о программном переносе....
что select ....client specified отменили и никаких загрузок/выгрузок промежуточных не нужно

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

Перенос содержимого таблицы из песочницы

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