SAP ABAP子程序SUBMIT调用的方法

￡神魔★判官ぃ 2022-09-29 13:58 799阅读 0赞

编写两个程序 ZTEST06 和 ZTEST07 ， 在ZTEST06 里调用ZTEST07 程序。

ZTEST06 作用是收集并整理数据，并存放到内存

ZTEST07 从内存取到数据，并列印出来

**ZTEST06程序代码如下：**

\*&---------------------------------------------------------------------\*  
\*& Report ZTEST06  
\*&  
\*&---------------------------------------------------------------------\*  
\*&  
\*&  
\*&---------------------------------------------------------------------\*  
  
REPORT ZTEST06.  
  
\*----------------------------------------------------------------------\*  
\* define internal tables  
\* 定义内表  
\*  
\*----------------------------------------------------------------------\*  
DATA : BEGIN OF W\_DATA,  
FID1 TYPE STRING,  
NUM1 TYPE I ,  
NUM2 TYPE I ,  
END OF W\_DATA.  
DATA : T\_OUT LIKE W\_DATA OCCURS 0 WITH HEADER LINE .  
  
  
\*----------------------------------------------------------------------\*  
\* assign value to internal tables  
\* 给内表赋值  
\*  
\*----------------------------------------------------------------------\*  
DO 10 TIMES .  
IF SY\-INDEX < 4 .  
T\_OUT\-FID1 = 'A' .  
T\_OUT\-NUM1 = SY\-INDEX .  
T\_OUT\-NUM2 = SY\-INDEX \+ 1 .  
ELSEIF SY\-INDEX < 7 .  
T\_OUT\-FID1 = 'B' .  
T\_OUT\-NUM1 = SY\-INDEX \+ 1 .  
T\_OUT\-NUM2 = SY\-INDEX \+ 2 .  
ELSE .  
T\_OUT\-FID1 = 'C' .  
T\_OUT\-NUM1 = SY\-INDEX .  
T\_OUT\-NUM2 = SY\-INDEX \- 1 .  
ENDIF .  
  
APPEND T\_OUT.  
ENDDO .  
  
\*-----------------------------------------------------------------------\*  
\* call extenral program  
\* 调用外部程序  
\*  
\*-----------------------------------------------------------------------\*  
\*\*\* 使用ABAP内存进行数据传递  
EXPORT T\_OUT TO MEMORY ID 'T\_OUT' .  
  
\*\*\* 以下两种情况是调用程序被结束，被调用程序开始执行  
\* SUBMIT ZWRITE\_DATA.  
  
\*\*\* 如果使用这种情况程序之间的数据访问就不能ABAP内存访问了  
\* LEAVE TO TRANSACTION 'ZGET\_DATA'.  
  
\*\*\* 以下两种情况是调用程序被打断，当被调用程序执行完毕之后，调用程序继续执行  
SUBMIT ZTEST07 AND RETURN .  
  
\*\*\* 调用事物代码(和SUBMIT <PROGRAM> AND RETURN的效果一样) 将程序 ZTEST07 设一个 事务码 ZGET\_DATA  
\* CALL TRANSACTION 'ZGET\_DATA'.

**ZTEST07程序代码如下：**

\*&---------------------------------------------------------------------\*  
\*& Report ZTEST07  
\*&  
\*&---------------------------------------------------------------------\*  
\*&  
\*&  
\*&---------------------------------------------------------------------\*  
  
report ztest07.  
  
\*----------------------------------------------------------------------\*  
\* define internal tables  
\* 定义内表  
\*  
\*----------------------------------------------------------------------\*  
data : begin of w\_data, "这里定义一个跟调用程序一样的内表结构  
fid1 type string,  
num1 type i ,  
num2 type i ,  
end of w\_data.  
data : t\_out like w\_data occurs 0 with header line .  
  
\*----------------------------------------------------------------------\*  
\* get data from sap memory and write out  
\* 从SAP内存读取数据然后打印输出  
\*  
\*----------------------------------------------------------------------\*  
  
import t\_out from memory id 'T\_OUT' .  
  
free memory id 'T\_OUT' .  
  
write : sy\-uline .  
  
write : '从调用程序取到的数据如下:' .  
loop at t\_out.  
write : / ' ' ,t\_out\-fid1, t\_out\-num1, t\_out\-num2.  
endloop .  
write : sy\-uline .  
  
\*\*\* 退出程序  
\* leave program.

当然上面的功能完全可以放在一个程序里又简单又简洁，

只是举这么个简单例子说明 SUBMIT 是怎么用的。至于什么样的情况要这样使用，那么就是具体问题具体解决了。

作者： SAP道长