Можно ли создать таблицу в ABAP-словаре программно?

Yuriy_O

Можно ли создать таблицу в ABAP-словаре с помощью своей программы, или нельзя? Я не знаю, может быть и пакетным вводом можно сделать, но не хотелось бы с помощью него. :twisted:

ArmAnn

Ты уверен что без этого никак?
Если уверен - то вот например ФМ DB_CREATE_TABLE, ну или execsql.
Но я бы на твоем месте еще раз подумал, надо ли оно

Lamer

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

Можно ли создать таблицу в ABAP-словаре с помощью своей программы, или нельзя? Я не знаю, может быть и пакетным вводом можно сделать, но не хотелось бы с помощью него. :twisted:

А чем Вас не устраивают стандартные средства для этих целей? :shock:

slash

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

Можно ли создать таблицу в ABAP-словаре с помощью своей программы, или нельзя? Я не знаю, может быть и пакетным вводом можно сделать, но не хотелось бы с помощью него. :twisted:

abap-словарь это тоже таблица, точнее набор,
но я бы не стал

Yuriy_O

Спасибо за подсказку. Но вопрос был о ABAP-словаре. С помощью функции db_create_table я создал таблицу в базе данных, но просмотреть её через SE11 не могу, select сделать тоже не могу. Наверное можно с ней работать с помощью exec sql, но я хотел бы создать таблицу, которая была бы определена в ABAP-словаре.

nicky555

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

Sergo

Добрый день!

Не подумал бы, что данный вопрос станет затруднительным.

ФМ DDIF_TABL_PUT - однозначно то, что Вам нужно.

Yuriy_O

Да! ФМ DDIF_TABL_PUT - то, что мне нужно!. Спасибо всем за участие, db_create table или create table в exec sql тоже выход из ситуации, но DDIF_TABL_PUT - то, что я искал.

CoMan

Не, а всё-таки интересно для каких целей необходимо динамическое создание таблицы в ABAP-словаре? :roll:

Виктор(Минск)

На мой мутный взгляд возможны два случая:
1. Некий генератор, который на входе имеет файл-модель, на основании которого генерится нека программная система с БД. Или свой аналог SE11.
2. В программе заложена инопланетная логика. Программа, согласно этой логике, плодит таблицы в БД с именем zy_table_######, где ###### - дата, номер отдела и еще что.

Если первое, на мой взгляд, имеет право на жизнь, то второе "убивать надо, пока они маленькие"(с)
:roll:

Yuriy_O

Ваш мутный взгляд оказался верным по пункту 1 первое предложение.
для переносимости программы.

abaper

помнится я как-то в молодости написал набор программ (что-то сам написал, что-то уже было) для переноса ну всего - от самой программы с инклудами, экранами, текстами, статусами - вплоть до таблиц/структур/элементов данных/доменов, ну и всего чего там надо....
выгрузка/загрузка через текстовые файлы.
правда разрозненное все - поленился дальше развивать.
но правда есть в придачу программка, которая выгружает список наименований нужных объектов системы в отдельный файл - для передачи в вышеупомянутые программки.
даже когда-то в форуме предлагал всем желающим.....

но вообще-то проще все это хранить в транспортах...

либо не всегда есть доступ к ентим самым транспортам (

), либо не умеем их выгружать/загружать.....

abaper

помнится я как-то в молодости написал набор программ (что-то сам написал, что-то уже было) для переноса ну всего - от самой программы с инклудами, экранами, текстами, статусами - вплоть до таблиц/структур/элементов данных/доменов, ну и всего чего там надо....
выгрузка/загрузка через текстовые файлы.
правда разрозненное все - поленился дальше развивать.
но правда есть в придачу программка, которая выгружает список наименований нужных объектов системы в отдельный файл - для передачи в вышеупомянутые программки.
даже когда-то в форуме предлагал всем желающим.....

но вообще-то проще все это хранить в транспортах...

либо не всегда есть доступ к ентим самым транспортам (

), либо не умеем их выгружать/загружать.....

diatchkov

Тема уже старая, но так на всякий случай кто будет спрашивать ...

Делается примерно так ... Можно также через RPY_TABLE_INSERT но импортируемые набор данных там все таки не полный (нельзя передать ключи и индексы таблицы к примеру).

Цитата:

REPORT ZDIA_DTD.

DATA:
lc_tgttab TYPE ddobjname,

ls_object TYPE rsdeo,
lc_tabtext TYPE string,
ls_tabhead TYPE dd02v,
ltb_tabfld TYPE TABLE OF dd03p WITH HEADER LINE,
ls_techset TYPE dd09v,

lc_srctab TYPE dfies-tabname,
ltb_flddef TYPE TABLE OF dfies WITH HEADER LINE,
ltb_scrdat TYPE TABLE OF bdcdata WITH HEADER LINE.

START-OF-SELECTION.

lc_srctab = 'SFLIGHT'.
lc_tgttab = 'ZDIA_SFLIGHT'.

ls_object-objtype = 'TABL'.
ls_object-objname = lc_tgttab.
ls_tabhead-tabname = lc_tgttab.
ls_tabhead-tabclass = 'TRANSP'.
ls_tabhead-ddlanguage = sy-langu.
ls_tabhead-langdep = sy-langu.
ls_tabhead-ddtext = 'This is a test structure'.
ls_tabhead-as4user = sy-uname.
ls_tabhead-as4date = sy-datum.
ls_tabhead-as4time = sy-uzeit.
ls_tabhead-buffered = ' '.
ls_tabhead-contflag = 'A'.

ls_techset-tabname = lc_tgttab.
ls_techset-as4user = sy-uname.
ls_techset-as4date = sy-datum.
ls_techset-as4time = sy-uzeit.
ls_techset-tabart = 'APPL0'.
ls_techset-tabkat = '1'.
ls_techset-bufallow = 'N'.
ls_techset-as4local = 'N'.

CALL FUNCTION 'GET_FIELDTAB'
EXPORTING
TABNAME = lc_srctab
LANGU = sy-langu
TABLES
fieldtab = ltb_flddef
EXCEPTIONS
INTERNAL_ERROR = 1
NO_TEXTS_FOUND = 2
TABLE_HAS_NO_FIELDS = 3
TABLE_NOT_ACTIV = 4.

LOOP AT ltb_flddef.
MOVE-CORRESPONDING ltb_flddef TO ltb_tabfld.
ltb_tabfld-tabname = lc_tgttab.
APPEND ltb_tabfld.
ENDLOOP.

CALL FUNCTION 'RS_CORR_INSERT'
EXPORTING
DEVCLASS = '$TMP'
KORRNUM = ' '
OBJECT = ls_object
OBJECT_CLASS = 'DICT'
SUPPRESS_DIALOG = 'X'
EXCEPTIONS
CANCELLED = 1
PERMISSION_FAILURE = 2
UNKNOWN_OBJECTCLASS = 3.

CALL FUNCTION 'RS_TREE_OBJECT_PLACEMENT'
EXPORTING
OBJECT = lc_tgttab
DEVCLASS = '$TMP'
OPERATION = 'INSERT'
TYPE = 'TABL'
AUTHOR = sy-uname.

IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL FUNCTION 'DDIF_TABL_PUT'
EXPORTING
NAME = lc_tgttab
DD02V_WA = ls_tabhead
DD09L_WA = ls_techset
TABLES
DD03P_TAB = ltb_tabfld
EXCEPTIONS
TABL_NOT_FOUND = 1
NAME_INCONSISTENT = 2
TABL_INCONSISTENT = 3
PUT_FAILURE = 4
PUT_REFUSED = 5
OTHERS = 6.

IF SY-SUBRC <> 0.
WRITE 'FALSE'.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL FUNCTION 'DDIF_TABT_ACTIVATE'
EXPORTING
NAME = lc_tgttab
EXCEPTIONS
NOT_FOUND = 1
PUT_FAILURE = 2
OTHERS = 3.

IF SY-SUBRC <> 0.
WRITE 'FALSE'.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL FUNCTION 'DDIF_TABL_ACTIVATE'
EXPORTING
NAME = lc_tgttab
EXCEPTIONS
NOT_FOUND = 1
PUT_FAILURE = 2
OTHERS = 3.

IF SY-SUBRC <> 0.
WRITE 'FALSE'.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

[/quote]

trop

кстати о воронах,
нужен формат бинарника к запросу, может есть у кого

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

Можно ли создать таблицу в ABAP-словаре программно?

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