Переместить содержимое памяти одной переменной в память друг

Dima

Подскажите <я не знать русский языка>! - можноли переместить содержимое памяти одной переменной в память другой переменной без ПРОВЕРОК и ПЕРОБРАЗВАНИЙ

Всё что мне удалось придумать это:

DATA: BEGIN OF objwax,
wa(1000) TYPE x,
END OF objwax.

FORM move_mem USING sourse dest.
EXPORT var FROM sourse TO MEMORY ID 'ZVAR'.
IMPORT var TO objwax FROM MEMORY ID 'ZVAR'.
EXPORT var FROM objwax TO MEMORY ID 'ZVAR'.
IMPORT var TO dest FROM MEMORY ID 'ZVAR'.
ENDFORM.

EGF

Как Вы, наверное, догадываетесь, типизированные ссылки на объекты без проверок и без преобразований присвоить друг другу невозможно. Можно проделать такую процедуру со ссылками типа data.

Code:

TYPES:
  t_c TYPE c LENGTH 3
.
DATA:
  g_ref_i TYPE REF TO data,
  g_ref_c TYPE REF TO data
.
DATA:
  g_int TYPE i,
  g_chr TYPE t_c VALUE 'SAP'
.
FIELD-SYMBOLS:
  <g_chr> TYPE t_c
.
GET REFERENCE OF g_int INTO g_ref_i.
GET REFERENCE OF g_chr INTO g_ref_c.

g_ref_i = g_ref_c.

ASSIGN g_ref_i->* TO <g_chr>.

WRITE <g_chr>.

Гость

FORM MOVE_MEM USING SOURSE DEST.
FIELD-SYMBOLS: <S>, <D>.
ASSIGN SOURSE TO <S> TYPE 'X'.
ASSIGN DEST TO <D> TYPE 'X'.
<D> = <S>.
ENDFORM.

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

Переместить содержимое памяти одной переменной в память друг

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