@dump

создать копию объекта не всегда хорошо... а иногда очень плохо... может случиться что CONSTRUCTOR создаёт или уничтожает или пытается... реальные объекты из таблиц....

я думал что может есть чтото типа

ASSIGN FIELD ..... OF <FS> TO .... <XX>

только для классов.....

Юрий

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

@SY-UNAME
да все работает - никаких дампов - даже в группе функций не надо объявлять класс AUTO

@Juri
Не совсем понял что там может что затереть - никогда не сталкивался - динамическое создание классов используется в системе сплошь и рядом - ничего не затирается - создавать копию конечно не совсем изящно - но и задача извините не совсем стандартая

Полный пример приведите

*&---------------------------------------------------------------------*
*& Report ZYX
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zyx.


*----------------------------------------------------------------------*
* CLASS auto DEFINITION
*----------------------------------------------------------------------*
CLASS auto DEFINITION.
PUBLIC SECTION.
METHODS: get_color EXPORTING ecolor TYPE char10.
METHODS: set_color IMPORTING icolor TYPE char10.
PRIVATE SECTION.
DATA: color TYPE char10.
ENDCLASS. "auto DEFINITION

*----------------------------------------------------------------------*
* CLASS auto IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS auto IMPLEMENTATION.
METHOD get_color.
ecolor = color.
ENDMETHOD. "get_color
METHOD set_color.
color = icolor.
ENDMETHOD. "set_color
ENDCLASS. "auto IMPLEMENTATION

*****************************************************
*****************************************************
*****************************************************

DATA: a TYPE REF TO auto.
DATA: c TYPE char10.

START-OF-SELECTION.

CREATE OBJECT a.
CALL METHOD a->set_color('red').
CLEAR: c.
CALL METHOD a->get_color
IMPORTING
ecolor = c.
WRITE:/ c.
* output will be 'red' and it's OK

*****************************************************
*****************************************************
*****************************************************
CALL FUNCTION 'ZOOPSTACKKLASSE1'.



FUNCTION zoopstackklasse1.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"----------------------------------------------------------------------

FIELD-SYMBOLS: <fs> TYPE ANY.
DATA: lr_auto TYPE REF TO object,
type_ref TYPE REF TO cl_abap_typedescr.
DATA: fsname(30).
fsname = '(ZYX)A'.
ASSIGN (fsname) TO <fs>.

BREAK-POINT.
CALL METHOD cl_abap_typedescr=>describe_by_object_ref
EXPORTING
p_object_ref = <fs>
RECEIVING
p_descr_ref = type_ref.

CREATE OBJECT lr_auto TYPE (type_ref->absolute_name).

DATA: c TYPE char10,
name TYPE char20 VALUE 'GET_COLOR'.

CALL METHOD lr_auto->(name) "get_color "ERROR
IMPORTING "ERROR
ecolor = c. "ERROR


ENDFUNCTION.

@dump

может случиться что есть например класс ORDER в SD и когда Вы создаёте копию то будет использован следущий номер для SD-ORDER... даже если не произойдёт ничего плохого при создании копии то номер будет потерян.... и в VBAK будут стоять скажем только нечётные номера.... что не вызовет большого оптимизма в организации....)))))

Юрий

@sy-uname

Полный пример из BW.... немного долго описывать... динамический поиск PFAD для INFOSPOKE....
я сделал по другому... всё работает....
но вопрос встал.... ))))

Юрий

Понятно Как обычно, читаю через строчку

quote]

[/quote]
Хммм, насколько я понимаю создается локальный класс, с динамически определенным типом. не получится ни считать данные из исходной программы, ни изменить их.

Что бы читать данные исходной программы нужно ещё выполнить

как-то вы все усложняете, у меня вот так работает: