实现效果:
A程序 调用B程序,B程序得出结果后传入A程序
实现方法:
利用SUBMIT 'XXX' AND RETURN调用子程序并使用EXPORT MEMORY ID输出数据,然后IMPORT MEMORY ID 输入数据,达到效果。
A程序代码:
REPORT zcaogao5.
DATA:lv_a TYPE c LENGTH 10 ."传入的名称要和传出的名称一致
"调用程序ZCAOGAO4 然后返回到ZCAOGAO5
SUBMIT zcaogao4 AND RETURN.
IMPORT lv_a FROM MEMORY ID 'ZLV_A'.
FREE MEMORY ID 'ZLV_A'."记得用完释放掉
WRITE : 'lv_a:' , lv_a .
B程序代码:
report zcaogao4.
data: lv_a type c length 10 .
lv_a = 'testaaa'.
export lv_a to memory id 'ZLV_A' .
执行A程序得到B程序数据的效果:
注意:
1.记得用完释放掉memory id .(FREE MEMORY ID 'XXX'.)
2.传入的名称要和传出的名称一致(不一致实测获取不到).
3.如果要传参过去,就用:
SUBMIT 'XXX'
WITH P_XXX = 'XXX'
S_XXX IN L_XXX
...
AND RETURN.