码迷,mamicode.com
首页 > 其他好文 > 详细

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

时间:2015-02-15 10:44:30      阅读:312      评论:0      收藏:0      [点我收藏+]

标签:

Calling Programs

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

可执行Program                     Transaction

Call (without returning)  SUBMIT                              LEAVE TO TRANSACTION

Call and return             SUBMIT AND RETURN         CALL TRANSACTION

Calling Executable ProgramsSUBMIT

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>不用BTNB,则使用下面的[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结构类型的类型,该结构包含以下字段:

技术分享

SELNAMESELECT-OPTION 或者 PARAMETER屏幕字段名称

KIND:如果是SELECT-OPTION时,取值为S,如果PARAMETER时,取值为P

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

除了WITH SELECTION-TABLE以外,WITH <sel>选项你可以多次使用。在实际应用中,你可以对某个SELECT-OPTION选择条件<sel>使用WITH <sel>选项多次,在被调用程序中,系统会将这些行appendselection 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 ProgramsLISTS输出

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

修改输出LISTS行列数

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

如果被调程序的REPORT语句后面没有这LINE-SIZELINE-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中将ListsLoadrow 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语句退出被调程序

在通常情况下,我们在被调程序的基础输出列表(Level0List屏幕)按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 TRANSACTIONLEAVE 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.

 

2、 如果调用后还要返回到主调程序,则使用下面这种方式:

CALL TRANSACTION <tcod>|(<tcod>)  [AND SKIP FIRST SCREEN] [USING <bdc_tab >].

系统会重新开启一个internal session,当被调程序结束后,被调Tcode所在的这个internal session会被delete掉,然后返回到主调程序调用处,继续运行主调程序后面的语句

<bdc_tab>用在BDC调用输入参数传递,具体请参考ABAP Practical Example App.docx文档

退出程序 Leave Program

LEAVE PROGRAM.

退出整个程序,并删除所在内部会话、包括加载的程序、实例、数据。

Passing Data Between Programs

请参考以下文档:

数据共享与传递.docx

ABAP BC Programming.docx》的程序间数据共享与传递章节

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

标签:

原文地址:http://www.cnblogs.com/jiangzhengjun/p/4292545.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!