Использование таблицы другой программы

Manticore

Уважаемые!

Напомните, плз, как можно использовать таблицу другой программы. Ну то есть например в ФМ внутреннюю таблицу вызывающей программы. Помню, что был такой механизм с FIELD-SYMBOLS, но в точности не вспомнить!

abaper

Механизм этот называется динамический assign.

If the name of the field you want to assign has the form "(Program name)Field name", the system looks for the field "Field name" in the global data of the program called "Program name". The system can only find it if the program has already been loaded.
Warning: This variant should only be used internally at SAP by experts. Incompatible changes or developments may occur at any time without warning.

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

Господа почетные гуру - плиз внесите ясность........

sy-uname

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

Уважаемые!

Напомните, плз, как можно использовать таблицу другой программы. Ну то есть например в ФМ внутреннюю таблицу вызывающей программы. Помню, что был такой механизм с FIELD-SYMBOLS, но в точности не вспомнить!

В круглых скобках имя программы. Только не помню справа или слева дописыватся к имени переменной

Uukrul

sy-uname написал(а):

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

Уважаемые!

Напомните, плз, как можно использовать таблицу другой программы. Ну то есть например в ФМ внутреннюю таблицу вызывающей программы. Помню, что был такой механизм с FIELD-SYMBOLS, но в точности не вспомнить!

В круглых скобках имя программы. Только не помню справа или слева дописыватся к имени переменной

Доступ то есть, только у меня вроде как значения в переменых пустые :roll:

после такого обращения...

vvk

Только осторожнее с данными конструкциями :wink:

TYPE-POOLS: mrm.

DATA dref TYPE REF TO data.
FIELD-SYMBOLS: <rbkpv> TYPE mrm_rbkpv.

CREATE DATA dref TYPE mrm_rbkpv.
ASSIGN dref->* TO <rbkpv>.
ASSIGN ('(SAPLMR1M)rbkpv') TO <rbkpv>.

...
UNASSIGN <rbkpv>.

Manticore

Не претендуя на звание почетного гуру, вношу ясность.
:lol:

Code:

PROGRAM zprogram.
...
data counter(3).
....

CALL FUNCTION 'ZFUNCT'

Code:

FUNCTION zfunct.
...
data str(60).
FIELD-SYMBOLS dat.
str = '(ZPROGRAM)counter'.
ASSIGN (str) to dat.
...

После этого в <dat> содержится значение counter из вызывающей программы.

ВН

а можно - гораздо проще

Пример
две программы:

REPORT ZTEST53 .
data: tt like t001 occurs 0 with header line.
clear: tt. refresh tt.
select * from t001 appending table tt.
export tt to memory id 'Z_TT'.
submit ztest54 and return.

REPORT ZTEST54 .
data: tt like t001 occurs 0 with header line.
import tt from memory id 'Z_TT'.
loop at tt.
write:/ tt-bukrs, tt-butxt.
endloop.

запустить ZTEST53, там заполнится таблица
и вывести ее можно уже в ZTEST54

abaper

может вы и правы в конкретном случае, но вот только реально когда нужно (в экзитах например всяких) - фиг чего видно :cry:

Manticore

2 BH:
Ваша конструкция хороша, когда есть возможность вставить в программу-отправитель EXPORT. А если ее нет, этой возможности? ПОэтому без динамичесого assign не обойтись!

Stepan

Вот где-то попалось, но сам не проверял

доступ к переменным за областью видимости:

Code:

field-symbols: <x1_kop> type any. 
assign ('(SAPMV45A)kopieren') to <x1_kop>. 
if sy-subrc eq 0. 
... 
endif. 
 

и для таблицы

Code:

types: begin of ls_pot . 
        include structure bekpo. 
types: end of ls_pot, 
       lt_pot type table of ls_pot. 
field-symbols: <lt_pot> type lt_pot. 
    assign ('(SAPMM06E)pot[]') to <lt_pot>. 
    if sy-subrc eq 0. 
      loop at <lt_pot> into l_pot 
        where ebelp eq ekpo-ebelp. 
        l_pot-updkz = 'U'. 
        modify <lt_pot> from l_pot. 
      endloop. 
    endif. 

Гость

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

Только осторожнее с данными конструкциями :wink:

TYPE-POOLS: mrm.

DATA dref TYPE REF TO data.
FIELD-SYMBOLS: <rbkpv> TYPE mrm_rbkpv.

CREATE DATA dref TYPE mrm_rbkpv.
ASSIGN dref->* TO <rbkpv>.
ASSIGN ('(SAPLMR1M)rbkpv') TO <rbkpv>.

...
UNASSIGN <rbkpv>.

Для 4.7 - это, имхо, самый правильный вариант.
Только забыл про WA.
Филд-символс таблицы - это таблица без хидерлайна.

Надо вот так (проверено неоднократно - работает; рекомендую занести в FAQ).
Вариант 1: использовать констркцию ASSIGN LOCAL COPY OF... TO...
Так сделано в REUSE ALV.
Вариант 2:
=========================
FUNCTION-POOL /A111/DB_TOOLS. "MESSAGE-ID ..

DATA:
g_t_tabdata type ref to data,
g_wa_tabdata type ref to data .
field-symbols: <g_t_tabdata> type table,
<g_wa_tabdata> .
=========================
Где-нибудь потом:
========================

create: data g_t_tabdata type table of (P_NAME OF_TYPE_TABLE),
data g_wa_tabdata type (P_NAME OF_TYPE_TABLE) .

assign: g_t_tabdata->* to <g_t_tabdata>,
g_wa_tabdata->* to <g_wa_tabdata>.
.................
.................
loop at <g_t_tabdata> into <g_wa_tabdata>.
.....
endloop.

111

Тьфу - когда надо, Гостем не пускает.
Когда не надо - пускает.
Я это был.

111

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

create: data g_t_tabdata type table of (P_NAME OF_TYPE_TABLE),
data g_wa_tabdata type (P_NAME OF_TYPE_TABLE) .
endloop.

Сорри, описка.
"P_NAME OF_TYPE_TABLE" = "P_NAME_OF_TYPE_TABLE" .

Типа, параметр такой - имя типа.

Гость

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

Уважаемые!

Напомните, плз, как можно использовать таблицу другой программы. Ну то есть например в ФМ внутреннюю таблицу вызывающей программы. Помню, что был такой механизм с FIELD-SYMBOLS, но в точности не вспомнить!

Если речь идет конкретно про ФМ , то достаточно
1. в закладку "Таблицы" вставить имя , например T_INTERNAL.
2. вызов из программы
TABLES
T_INTERNAL = p_it ", где p_it ваша внутренняя таблица.
3. В теле ФМ:

*" TABLES
*" T_INTERNAL
.....................
DATA: c_index type I,
begin of t_names occurs 0,
fname type fieldname,
end of t_names.
DATA : FIELDTYPE(1).

FIELD-SYMBOLS: <fs_tab>.
................
if i_with_header eq 'X'.
read table t_names index c_index.
assign component t_names-fname of structure t_internal
to <fs_tab>.
else.
assign component c_index of structure t_internal to <fs_tab>.
endif.
check sy-subrc eq 0.
DESCRIBE FIELD <fs_tab> TYPE FIELDTYPE.
case FIELDTYPE.
..........................................

Гость

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

DATA: c_index type I,
begin of t_names occurs 0,
fname type fieldname,
end of t_names.
DATA : FIELDTYPE(1).

FIELD-SYMBOLS: <fs_tab>.
................
if i_with_header eq 'X'.
read table t_names index c_index.
assign component t_names-fname of structure t_internal
to <fs_tab>.
else.
assign component c_index of structure t_internal to <fs_tab>.
endif.
check sy-subrc eq 0.
DESCRIBE FIELD <fs_tab> TYPE FIELDTYPE.
case FIELDTYPE.
..........................................

Если уж так извращаться, то тогда уж лучше использовать
DESCRIBE FIELD STRUCT INTO ...

Code:

DATA: T_TD TYPE SYDES_DESC .

DESCRIBE FIELD t_table INTO T_TD.
loop at t_td.
.....
endloop.

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

Использование таблицы другой программы

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