abap submit用法(一)调用外部程序（abap内存获取数据)

在sap中一个程序如何调用外部程序，主要有以下有两种方式：(调用的原理与过程
）

一、call transaction <tcode>

二、submit <program> and return

下面主要写一下如何通过submit在一个程序调用外部程序的，这里面涉及到两个程序，其中一个是调用程序，主要处理数据，整合数据供被调用数据获取并打印；另一个是被调用程序，从调用程序存储在ABAP内存的数据取到并打印输出。

1、调用程序

*&---------------------------------------------------------------------*

*& Report ZTEST_CALL_PROG

*&

*&---------------------------------------------------------------------*

*& Create by : 冯飞剑

*& Create date : 2010-1-2

*& Descriptions : 测试调用外部程序(调用程序)

*&---------------------------------------------------------------------*

REPORT
ZTEST_CALL_PROG.

*----------------------------------------------------------------------*

* 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'.

*** 以下两种情况是调用程序被打断，当被调用程序执行完毕之后，调用程序继续执行

* 插入一个新的INTERNAL SESSION，被调用程序运行完删除SESSION，继续执行调用程序

SUBMIT
Zwrite_data AND
RETURN
.

*** 调用事物代码(和SUBMIT <PROGRAM> AND RETURN的效果一样)

* CALL TRANSACTION 'ZGET_DATA'.

2、被调用程序

*&---------------------------------------------------------------------*

*& Report ZWRITE_DATA

*&

*&---------------------------------------------------------------------*

*& Create by : 冯飞剑

*& Create date: 2010-1-2

*& Descriptions: 测试调用外部程序(被调用程序)

*&---------------------------------------------------------------------*

REPORT
ZWRITE_DATA.

*----------------------------------------------------------------------*

* 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.