现在的位置: 首页 > 综合 > 正文

import 和 export 应用

2013年04月08日 ⁄ 综合 ⁄ 共 917字 ⁄ 字号 评论关闭

1.简单例子

导出
REPORT  ZAAA                                    .
data:text(20) value 'zaaa'.
EXPORT text
  TO MEMORY ID 'aaa'.
submit ZBBB .

 

导入
REPORT  ZBBB                                    .
DATA:TEXT(20).
IMPORT TEXT FROM MEMORY ID 'aaa'.
WRITE: / TEXT.
****************************************************

2复杂的导入表的例子综合:

PROGRAM SAPMZTS1.

DATA TEXT1(10) VALUE 'Exporting'.

DATA ITAB LIKE SBOOK OCCURS 10 WITH HEADER LINE.

DO 5 TIMES.
  ITAB-BOOKID = 100 + SY-INDEX.
  APPEND ITAB.
ENDDO.

EXPORT TEXT1
       TEXT2 FROM 'Literal'
  TO MEMORY ID 'text'.

EXPORT ITAB
  TO MEMORY ID 'table'.

SUBMIT SAPMZTS2 AND RETURN.

SUBMIT SAPMZTS3.

********************************
PROGRAM SAPMZTS2.

DATA: TEXT1(10),
      TEXT3 LIKE TEXT1 VALUE 'Initial'.

IMPORT TEXT3 FROM MEMORY ID 'text'.
WRITE: / SY-SUBRC, TEXT3.

IMPORT TEXT2 TO TEXT1 FROM MEMORY ID 'text'.
WRITE: / SY-SUBRC, TEXT1.

********************************
PROGRAM SAPMZTS3.

DATA JTAB LIKE SBOOK OCCURS 10 WITH HEADER LINE.

IMPORT ITAB TO JTAB FROM MEMORY ID 'table'.

LOOP AT JTAB.
  WRITE / JTAB-BOOKID.
ENDLOOP.

抱歉!评论已关闭.