程序中的互相调用

隔壁老王滴滴滴

于 2018-04-04 09:32:57 发布

阅读量417

点赞数

本文链接：https://blog.youkuaiyun.com/wangxueyan1228/article/details/79812756

版权

调用程序，读取其中的内表

被调用程序：

REPORT ZTEST01.
TABLES:vbap.
DATA:gt_vbeln TYPE RANGE OF vbap-vbeln.

SELECT-OPTIONS:s_vbeln FOR vbap-vbeln,
               s_posnr FOR vbap-posnr.
START-OF-SELECTION.
gt_vbeln = s_vbeln[].
EXPORT  gt_vbeln TO  MEMORY ID 'ZTEST01'.

调用程序：

REPORT ZTEST02.
DATA:GT_VBELN TYPE RANGE OF VBAP-VBELN.
DATA:SELTAB TYPE TABLE OF RSPARAMS.
DATA: SELTAB_WA LIKE LINE OF SELTAB.

SELTAB_WA-SELNAME = 'S_VBELN'.
SELTAB_WA-SIGN    = 'I'.
SELTAB_WA-OPTION  = 'EQ'.
SELTAB_WA-LOW = '1111111'.
APPEND SELTAB_WA TO SELTAB.
SELTAB_WA-SELNAME = 'S_POSNR'.
SELTAB_WA-SIGN    = 'I'.
SELTAB_WA-OPTION  = 'EQ'.
SELTAB_WA-LOW = '22'.
APPEND SELTAB_WA TO SELTAB.

SUBMIT ZTEST01 WITH SELECTION-TABLE SELTAB AND RETURN.
IMPORT GT_VBELN FROM MEMORY ID 'ZTEST01'.