关于import/export的小例子

来源：互联网发布：如何查询淘宝贷款额度编辑：程序博客网时间：2024/06/10 00:50

还有就是，如果在A程序里面只有import，那肯定就是在A程序里面有调用别的程序，在别的程序里面写了export.这样的做法，

就是在A程序调用B程序的时候，将B程序的内存数据传回给A程序的内存数据。

data: a type i value 90.
data: b type i value 80.

write : 'a:', a ,'b:' , b , /."a = 90 b = 80

export handle1 = a to memory id 'A1'.
a = b.
import handle1 = b from memory id 'A1'.

write : 'a:', a ,'b:' , b , /.  "a = 80 b = 90

*-----------------------------------------------

DATA: BEGIN OF itab1 OCCURS 0 ,
      ff(10) ,
      END OF itab1.

DATA: itab2 LIKE itab1 OCCURS 0 WITH HEADER LINE .

DATA: str1 TYPE string ,
      str2 TYPE string .

APPEND '111111111' TO itab1.
APPEND '222222222' TO itab1.

str1 = 'sssssssssss'.

***如果是同名的对象，可以这么写：

EXPORT itab1 TO MEMORY ID 'M1'."将itab1的表内容全部传到内存‘m1’,
FREE itab1.   "清空表itab1，itab1的表没有数据，为空

IMPORT itab1 FROM MEMORY ID 'M1'."将‘m1’的数据全部传给itab1.

LOOP AT itab1.
  WRITE / itab1-ff."11111111
ENDLOOP.
***如果不是同名的对象，需要加上一个对象名

EXPORT a = itab1 b = str1 TO MEMORY ID 'M2'."export ----->
IMPORT a = itab2 b = str2 FROM MEMORY ID 'M2'."import<-----

LOOP AT itab2.
  WRITE / itab2-ff."22222222
ENDLOOP.
WRITE / str2.

0 0