SAP ABAP子程序SUBMIT调用的方法

关注

转载最新推荐文章于 2026-07-29 13:53:59 发布 1.3k 阅读 AI 写同款· GEO 优化 ›

SAP SUBMIT 用一个程序调用其他程序并返回参数假如我需要用A程序将参数传入B程序，运行B程序后再将结构返回至A程序，这时我就可以使用关键字submit来实现。SUBMIT [被调用的程序B] {WITH 参数关系} {AND RETURN}.传入语句：IMPORT wa FROM MEMORY ID 'wa' . 写在A程序里面。返回语句：EXPORT wa TO MEMORY ID 'wa' . 写在B程序里面。传入的参数可以用memory来存储。注意该表在A和B程序内都需要定义。在寻找资料时，找到了一些参考文章。wa为任意自己创建参数的内表。阅读详情

编写两个程序 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.