ABAP程序互调用：SUBMIT、CALL TRANSACTION、LEAVE TO TRANSACTION-白红宇

ABAP程序互调用：SUBMIT、CALL TRANSACTION、LEAVE TO TRANSACTION

阅读量：5732 次

发布时间：2019-06-18

本文共 9773 字，大约阅读时间需要 32 分钟。

Calling Programs

下面ABAP语句允许你调用一个可执行程序或者事务码，调用后你可以直接退出主调程序，或者返回到调用被调程序的地方继续后继代码的执行：

可执行Program Transaction

Call (without returning) SUBMIT LEAVE TO TRANSACTION

Call and return SUBMIT AND RETURN CALL TRANSACTION

Calling Executable Programs（SUBMIT）

SUBMIT<rep>|(<field>) [AND RETURN] [<options>].

如果省略AND RETURN选项，主调程序的所有数据与所有级别的List都会从 internal session 中删除。在被调程序执行完后，会返回到主调程序启动的地方。

如果带AND RETURN选项，系统将会保持主调程序的所有数，并在被调程序执行完后返回到主调程序调用处（SUBMIT…AND RETURN语句调用处），然后系统会继续执行主调程序SUBMIT…AND RETURN后面的语句。

<options>用来将数据传递给被调程序，有以下方式：

设置选择屏幕参数值（SUBMIT...WITH）

当正常执行一个报表程序时，标准的选择屏幕会显示，这些屏幕选择条件可以是程序自己本身的，也可以是绑定的LDB的屏幕字段。当使用SUBMIT调用时，可以通过各种参数选项来给这些屏幕选择条件填充值：

SUBMIT... [VIA SELECTION-SCREEN]

[USING SELECTION-SET <var>]

[WITH <sel><criterion>]

[WITH FREE SELECTIONS <freesel>]

[WITH SELECTION-TABLE <rspar>].

VIA SELECTION-SCREEN

被调报表程序的选择屏幕会显示。如果此选择打开，并且还使用了其他参数选项来传输值时，这些值也会显示在屏幕中相应的输入框中，并且用户可以进一步修改这些值。在默认的情况下，通过SUBMIT调用时是不会显示可执行程序的选择屏幕的。

USING SELECTION-SET <var>

使用变式<var>。This option tells the system to start the called program with the variant <var>.

WITH <sel><criterion>

使用此选择可以对选择屏幕的某个选择条件<sel>进行单独的赋值，并通过<criterion>部分来具体来决定是SELECT-OPTIONS还是PARAMETERS，<criterion>部分可以为以下三种情况：

l <op><f> [SIGN <s>], 用来传输屏幕选择条件的单个值

如果<sel>为SELECT-OPTIONS类型的屏幕选择条件，则使用<op>去填充选择内表<sel>的OPTION字段，<f>去填充选择内表<sel>的LOW字段，<s>去填充选择内表<sel>的SIGN字段（注：如果屏幕条件取值为某个范围，则这里<op>不用BT与NB，则使用下面的[NOT] BETWEEN来单独传递）

如果<sel>为PARAMETERS类型的屏幕字段，<op>的值只能是“=”，并将<f>的值赋值给相应屏幕字段<sel>

l [NOT] BETWEEN <f1> AND <f2> [SIGN <s>], 用来传递范围取值

<f1>会传递给LOW字段，<f2>会传递给HIGH字段，<s>会传递给选择内表<sel>的SIGN字段。如果省略了NOT选项，系统会将OPTION字段设置为BT，如果使用了NOT选项，系统会将OPTION设置为NB。

l IN <seltab>, 通过条件选择内表（行结构类型与SELECT-OPTION选择条内表行结构相同）传递屏幕参数

该选项会将主调程序中的条件内表<seltab>赋值给被调用程序的条件选择内表<sel>。<seltab>必须是一个条件内表，可以使用RANGES语句来创建。

WITH FREE SELECTION <freesel>, user dialog for dynamic selections动态选择的用户对话

To use this option, both calling and called programs must be connected to a logical

database that supports dynamic selections. In the calling program, use the function

modules FREE_SELECTIONS_INIT and FREE_SELECTIONS_DIALOG. They allow the

user to enter dynamic selections on a selection screen. One export parameter of these

function modules has structure RSDS_TEXPR from the RSDS type group. Transfer the

values of this export parameter by means of the internal table <freesel> of the same

structure to the called report.

要使用此选项，必须将调用报表和被调用报表都连接到支持动态选择的逻辑数据库。在调用报表中，使用功能模块 FREE-SELECTIONS_INIT 和 FREE_SELECTIONS_DIALOG，它们允许用户在选择屏幕上输入动态选择。这些功能块的一个输出参数有 RSDS 类型组中的 RSDS_TEXPR 结构。通过相同结构的内部表<freesel>将此输出参数的值传送到被调用报表。

WITH SELECTION-TABLE <rspar>, dynamic transfer of values

<rspar>内表必须是行结构必须是RSPARAMS结构类型的类型，该结构包含以下字段：

SELNAME：SELECT-OPTION 或者 PARAMETER屏幕字段名称

KIND：如果是SELECT-OPTION时，取值为S，如果PARAMETER时，取值为P。

其他字段与SELECT-OPTION选择条内表行结构相同。

除了WITH SELECTION-TABLE以外，WITH <sel>选项你可以多次使用。在实际应用中，你可以对某个SELECT-OPTION选择条件<sel>使用WITH <sel>选项多次，在被调用程序中，系统会将这些行append到selection tables<sel>中，但如果对某个PARAMETER条件使用多次，则会使用最后一次的值。

实例一：参数传递

REPORT zjzj_rep2 NO STANDARD PAGE HEADING.

DATA: int TYPE i,

rspar LIKE rsparams OCCURS 10 WITH HEADER LINE.

RANGES seltab FOR int.

WRITE: 'Select a Selection!',

/ '--------------------'.

SKIP.

FORMAT HOTSPOT COLOR 5 INVERSE ON.

WRITE: 'Selection 1',

/ 'Selection 2'.

AT LINE-SELECTION.

CASE sy-lilli."选中的行号

WHEN 4.

seltab-sign = 'I'.

seltab-option = 'BT'.

seltab-low = 1.

seltab-high = 5.

APPEND seltab.

SUBMIT zjzj_rep1 VIA SELECTION-SCREEN

WITH paramet EQ 'Selection 1'

WITH selecto IN seltab

WITH selecto NE 3

AND RETURN.

WHEN 5.

rspar-selname = 'SELECTO'.

rspar-kind = 'S'.

rspar-sign = 'E'.

rspar-option = 'BT'.

rspar-low = 14.

rspar-high = 17.

APPEND rspar.

rspar-selname = 'PARAMET'.

rspar-kind = 'P'.

rspar-low = 'Selection 2'.

APPEND rspar.

rspar-selname = 'SELECTO'.

rspar-kind = 'S'.

rspar-sign = 'I'.

rspar-option = 'GT'.

rspar-low = 10.

APPEND rspar.

SUBMIT zjzj_rep1 VIA SELECTION-SCREEN

WITH SELECTION-TABLE rspar

AND RETURN.

ENDCASE.

REPORT ZJZJ_REP1.

DATA number TYPE i.

PARAMETERS paramet(14).

SELECT-OPTIONS selecto FOR number.

实例二：参数传递及返回值接收

REPORT yjzj_call_prog_9_6_2.

TABLES: mard.

DATA: BEGIN OF gx_mard OCCURS 0,

matnr LIKE mard-matnr,

werks LIKE mard-werks,

lgort LIKE mard-lgort,

labst LIKE mard-labst,

insme LIKE mard-insme,

END OF gx_mard,

gt_mard LIKE TABLE OF gx_mard.

CONSTANTS: g_memory(30) VALUE 'JACKYTEST'.

PARAMETERS: p_werks LIKE mard-werks OBLIGATORY.

SELECT-OPTIONS: s_matnr FOR mard-matnr.

PARAMETERS: p_qty AS CHECKBOX.

PARAMETERS: p_type NO-DISPLAY DEFAULT '1'.

START-OF-SELECTION.

DATA: gt_tabsel LIKE rsparams OCCURS 10 WITH HEADER LINE.

IF NOT s_matnr[] IS INITIAL.

LOOP AT s_matnr.

"selection类型参数需要封装到rsparams类型的内表中才能传递

MOVE-CORRESPONDING s_matnr TO gt_tabsel.

"被调用程序中的selection-option参数

gt_tabsel-selname = 'S_MATNR'.

gt_tabsel-kind = 'S'.

APPEND gt_tabsel.

CLEAR gt_tabsel.

ENDLOOP.

ENDIF.

SUBMIT yjzj_call_prog_9_6 WITH p_werks = p_werks

WITH p_qty = p_qty

WITH p_type = 'X'

"传递selection类型的参数到被调用程序中

WITH SELECTION-TABLE gt_tabsel

AND RETURN.

"从被调用程序中导入结果

IMPORT gt_mard TO gt_mard FROM MEMORY ID g_memory.

FREE MEMORY ID g_memory.

LOOP AT gt_mard INTO gx_mard.

WRITE:/02 gx_mard-matnr,

gx_mard-werks,

gx_mard-lgort,

gx_mard-labst,

gx_mard-insme.

ENDLOOP.

REPORT yjzj_call_prog_9_6.

TABLES: mard.

DATA: BEGIN OF gx_mard OCCURS 0,

matnr LIKE mard-matnr,

werks LIKE mard-werks,

lgort LIKE mard-lgort,

labst LIKE mard-labst,

insme LIKE mard-insme,

END OF gx_mard,

gt_mard LIKE TABLE OF gx_mard.

CONSTANTS: g_memory(30) VALUE 'JACKYTEST'.

PARAMETERS: p_werks LIKE mard-werks OBLIGATORY.

SELECT-OPTIONS: s_matnr FOR mard-matnr.

PARAMETERS: p_qty AS CHECKBOX.

PARAMETERS: p_type NO-DISPLAY.

START-OF-SELECTION.

SELECT matnr werks lgort labst insme

INTO CORRESPONDING FIELDS OF TABLE gt_mard FROM mard WHERE

matnr IN s_matnr AND

werks EQ p_werks.

DATA: g_tabix TYPE i.

IF p_qty NE space.

LOOP AT gt_mard INTO gx_mard.

g_tabix = sy-tabix.

gx_mard-labst = gx_mard-labst + gx_mard-insme.

IF gx_mard-labst <= 0.

DELETE gt_mard INDEX g_tabix.

CONTINUE.

ENDIF.

ENDLOOP.

ENDIF.

IF p_type NE space.

FREE MEMORY ID g_memory.

"将结果导出到主调用程序

EXPORT gt_mard FROM gt_mard TO MEMORY ID g_memory.

ELSE.

LOOP AT gt_mard INTO gx_mard.

WRITE:/02 gx_mard-matnr,

gx_mard-werks,

gx_mard-lgort,

gx_mard-labst,

gx_mard-insme.

ENDLOOP.

ENDIF.

控制Called Programs中LISTS输出

当你使用SUBMIT提交一个ABAP program时，你可以控制这个被调程序的输出列表：修改输出行列长度格式、输出到spool file来代替输出到屏幕、或者是将输出列表存储到ABAP memory中。

修改输出LISTS行列数

SUBMIT... [LINE-SIZE<width>] [LINE-COUNT<length>].

如果被调程序的REPORT语句后面没有这LINE-SIZE与LINE-COUNT两个选项，系统将会使用SUBMIT语句后面的这两个选项来格式化输出列表。

REPORT zjzj_rep2 NO STANDARD PAGE HEADING.

DATA: NAME(9) VALUE 'ZJZJ_REP1',

WID TYPE I VALUE 80,

LEN TYPE I VALUE 0.

SET PF-STATUS 'SELECT'.

WRITE: 'Select a report and its list format:',

/ '-------------------------------------'.

SKIP.

WRITE: 'Report ', NAME INPUT ON,

/ 'Line size ', WID INPUT ON,

/ 'Page length', LEN INPUT ON.

AT USER-COMMAND.

CASE SY-UCOMM.

WHEN 'SELE'.

READ LINE: 4 FIELD VALUE NAME,

5 FIELD VALUE WID,

6 FIELD VALUE LEN.

SUBMIT (NAME) LINE-SIZE WID LINE-COUNT LEN AND RETURN.

ENDCASE.

将被调程序的输出列表打印到spool system

SUBMIT... TO SAP-SPOOL<print-parameters>.

可以将被调程序的输出列表直接输出到spool system，而不是显示在屏幕上。

将输出列表保存到ABAP memory

可以使用EXPORTING LIST TO MEMORY选项将被调程序输出列表保存到ABAP内存中（而不是直接显示在屏幕上），供被调程序执行完后，主调程序来使用输出列表：

SUBMIT... AND RETURN EXPORTING LIST TO MEMORY.

将被调程序的输出列表存储到ABAP内存中，可以在被调程序执行完后，主调程序还可以访问它。EXPORTING LIST TO MEMORY选项需要与AND RETURN选项一起使用。并且不能将EXPORTING LIST TO MEMORY选项与TO SAP-SPOOL选项一起使用。

输出列表存到内存里时，会以行类型为ABAPLIST的内表形式保存，可以使用下面这几个Function来访问ABAP内在中保存的输出列表（这些函数都是属于function group SLST）：

LIST_FROM_MEMORY：从ABAP Memory中将ListsLoad到row type ABAPLIST的内表中

WRITE_LIST：将行类型为ABAPLIST 的内表中的内容插入到当前输出列表中.

DISPLAY_LIST：将行类型为ABAPLIST 的内表中的内容显示在独立的list screen中

LIST_TO_ASCI：将行类型为ABAPLIST 的内表中的内容转换ASCII形式

DATA list_tab TYPE TABLE OF abaplist.

SUBMIT report EXPORTING LIST TO MEMORY

AND RETURN.

"从ABAP内存中加载缓存的LIST

CALL FUNCTION 'LIST_FROM_MEMORY'

TABLES

listobject = list_tab

EXCEPTIONS

not_found = 1

OTHERS = 2.

"在当前屏幕中显示上面加载的LIST

IF sy-subrc = 0.

CALL FUNCTION 'WRITE_LIST'

TABLES

listobject = list_tab.

ENDIF.

使用LEAVE语句退出被调程序

在通常情况下，我们在被调程序的基础输出列表（Level为0的List屏幕）按F3就会退出该程序。但是，在返回到主调程序之前，在被调程序里需要执行更多的语句，比如需要使用EXPORT语句将被调程序中的数据存储到ABAP memory中便于主调程序使用时，像这样，你可以为Back Function自定义Function Code（不要使用默认的BACK，即要自己重写默认的BACK Function Code），并且在AT USER-COMMAND事件块里对相应的Function Code进行处理，当你将数据存储起来之后，就可以使用LEAVE（因为重写了默认的BACK Function Code，所以需要使用LEAVE语句来以编程方式退出程序）语句来退出当前被调用的程序了：

REPORT ZJZJ1 NO STANDARD PAGE HEADING.

DATA: ITAB TYPE I OCCURS 10,

NUM TYPE I.

SUBMIT zjzj2 AND RETURN.

IMPORT ITAB FROM MEMORY ID 'HK'.

LOOP AT ITAB INTO NUM.

WRITE / NUM.

ENDLOOP.

TOP-OF-PAGE.

WRITE 'Report 1'.

ULINE.

注：不要将Function定义成默认的BACK了，否则不会被AT USER-COMMAND事件块捕获到，会使用默认的回退功能。

REPORT ZJZJ2 NO STANDARD PAGE HEADING.

DATA: NUMBER TYPE I,

ITAB TYPE I OCCURS 10.

SET PF-STATUS 'MYBACK'.

DO 5 TIMES.

NUMBER = SY-INDEX.

APPEND NUMBER TO ITAB.

WRITE / NUMBER.

ENDDO.

TOP-OF-PAGE.

WRITE 'Report 2'.

ULINE.

AT USER-COMMAND.

CASE SY-UCOMM.

WHEN 'MBCK'.

EXPORT ITAB TO MEMORY ID 'HK'."退出前执行一些语句

LEAVE."离开当前被调程序，返回到主调程序

ENDCASE.

CALL TRANSACTION、LEAVE TO TRANSACTION

二种方法调用Tcode：

1、如果调用后不需要返回到主调程序，则可以使用下面这种方式：

LEAVE TO TRANSACTION <tcod>|(<tcod>)[AND SKIP FIRST SCREEN].

该语句会结束当前主调程序去执行事务码<tcod>，并且会将主调程序从internal sessions中删除,而被调用Tcode将会在该external session中新开一个internal session再运行，并且被调程序执行后，并不会回到主调程序调用处继续往下执行，而是the system returns tothe area menu from which the original program in the call stack was started.