在不同系统间传输任意类型的表格的函数

We just want to transfer some tables until runtime from other system.but the system doesn't support common types, such as 'DATA','ANY' .

how shall we do that ?

we can't consider it in another way. we know that the key words "export to database" can store any type data. so we use this kind of structure to transfer the data which type is known at runtime.therefore,

1. create a system index table
2. create a RFC-function 'ZTRANSFER_ANY_TABLE' , the code like bellow

        FUNCTION ZTRANSFER_ANY_TABLE.

*"----------------------------------------------------------------------

*"*"Local Interface:

*"  IMPORTING

*"     VALUE(TABLE_NAME) TYPE  CHAR30

*"  EXPORTING

*"     VALUE(DATA) TYPE  ZDATATRANSFER

*"----------------------------------------------------------------------

  DATA: O_DATA TYPE REF TO DATA.

  CREATE DATA O_DATA TYPE TABLE OF (TABLE_NAME).

  FIELD-SYMBOLS: TYPE ANY TABLE.

  ASSIGN O_DATA->* TO

.

  SELECT * FROM (TABLE_NAME) INTO TABLE

..

  DELETE FROM ZDATATRANSFER.

  COMMIT WORK.

  EXPORT p1 =

TO DATABASE ZDATATRANSFER(XY) ID 'DATA'.

  SELECT SINGLE * FROM ZDATATRANSFER INTO DATA.

ENDFUNCTION.

3. create normal function 'ZTRANSFER_TABLE'

FUNCTION ZTRANSFER_TABLE.

*"----------------------------------------------------------------------

*"*"Local Interface:

*"  IMPORTING

*"     REFERENCE(TABLE_NAME) TYPE  CHAR30

*"     REFERENCE(DEST) TYPE  CHAR30

*"  EXPORTING

*"     REFERENCE(DATA) TYPE  DATA

*"----------------------------------------------------------------------

  DELETE FROM ZDATATRANSFER.

  COMMIT WORK.

  DATA: TAB TYPE ZDATATRANSFER.

  CALL FUNCTION 'ZTRANSFER_ANY_TABLE' DESTINATION DEST

    EXPORTING

      TABLE_NAME = TABLE_NAME

    IMPORTING

      DATA       = TAB.

  MODIFY ZDATATRANSFER FROM TAB.

  COMMIT WORK.

  DATA: O_DATA TYPE REF TO DATA.

  CREATE DATA O_DATA TYPE TABLE OF (TABLE_NAME).

  FIELD-SYMBOLS:

TYPE ANY TABLE.

  ASSIGN O_DATA->* TO

.

  IMPORT p1 to

FROM DATABASE ZDATATRANSFER(XY) ID 'DATA'.

  DATA = O_DATA.

ENDFUNCTION.

 

ok . the test example bellow

REPORT  z_victor_test_transferdata               .

DATA: DATA TYPE REF TO DATA.

CALL FUNCTION 'ZTRANSFER_TABLE'

  EXPORTING

    TABLE_NAME       = 'ZADVICE_DAILY'

    DEST             = '223'

 IMPORTING

   DATA             = DATA

          .

阅读(847) | 评论(0) | 转发(0) |

0

上一篇：有人对SAP开源项目感兴趣吗？

下一篇：大家都很累，给你们加道餐 －－－ 生活有滋有味系列！ 第一道菜： 辣椒炒牛肉

给主人留下些什么吧！~~

评论热议

请登录后评论。

登录 注册

关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6