ABAP:SUBMIT执行其他报表并返回的数据

https://blog.csdn.net/m0_37062693/article/details/75050216

有些情况我们需要取一些标准报表的数据，如果自己重写比较复杂，用SUBMIT … AND RETURN可以调用标准报表并获取获取返回值。

参考：ZEROTEST69

语法：SUBMIT [程序名] WITH [调用程序屏幕的参数名]IN/= 值 AND RETURN

加上 EXPORTING LIST TO MEMORY 将程序返回的alv输出到MEMORY可以用函数取出

网上也有很多类似的例子，这里自己以MB5B测试了一个例子

列子：

*&---------------------------------------------------------------------*
*& Report ZEROTEST69
*& 测试直接取MB5B 历史库存的数据
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zerotest69.
TABLES: t001w,mard,mkpf.
DATA:ls_data TYPE REF TO data.
FIELD-SYMBOLS: <lt_data> TYPE table,
<l_data> TYPE data.
DATA BEGIN OF itab_list OCCURS 0.
INCLUDE STRUCTURE abaplist.
DATA END OF itab_list.
DATA:BEGIN OF t_str OCCURS 0,
str(20) TYPE c,
END OF t_str.
DATA: BEGIN OF vlist OCCURS 0, "这个调用程序ALV输出的长度要根据实际长度来确认
filler1(100) TYPE c,
field1(50) TYPE c,
filler(50) TYPE c,
field2(50) TYPE c,
filler3(50) TYPE c,
END OF vlist.
DATA: str1(100) TYPE c,
str2(100) TYPE c.
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-bl1.
SELECT-OPTIONS:
s_werks FOR t001w-werks,
s_matnr FOR mard-matnr,
s_budat FOR mkpf-budat.
SELECTION-SCREEN END OF BLOCK bl1.
START-OF-SELECTION.
PERFORM get_mb5b_data.
*&---------------------------------------------------------------------*
*& Form get_mb5b_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM get_mb5b_data.
cl_salv_bs_runtime_info=>set(
display = abap_false
metadata = abap_false
data = abap_true ).
SUBMIT rm07mlbd WITH werks IN s_werks WITH matnr IN s_matnr WITH datum IN s_budat WITH lgbst = 'X' AND RETURN EXPORTING LIST TO MEMORY."TCODE:MB5B
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = itab_list
EXCEPTIONS
not_found = 4
OTHERS = 8.
CALL FUNCTION 'LIST_TO_ASCI'
EXPORTING
list_index = -1
TABLES
listasci = vlist
listobject = itab_list
EXCEPTIONS
empty_list = 1
list_index_invalid = 2
OTHERS = 3.
IF sy-subrc = 0.
READ TABLE vlist INDEX 5.
IF sy-subrc = 0 .
SPLIT vlist-filler1 AT '' INTO TABLE t_str . "根据空格拆分
ENDIF.
ENDIF.
DELETE t_str WHERE str = ''. "删除空行
READ TABLE t_str INDEX 3.
IF sy-subrc = 0.
WRITE: t_str-str.
ENDIF.
* TRY.
* cl_salv_bs_runtime_info=>get_data_ref(
* IMPORTING r_data = ls_data ).
*
* ASSIGN ls_data->* TO <lt_data>.
*
* CATCH cx_salv_bs_sc_runtime_info.
* MESSAGE '无法读取ALV数据' TYPE 'E'.
* ENDTRY.
*
* cl_salv_bs_runtime_info=>clear_all( ).
*
* IF <lt_data> IS ASSIGNED.
* LOOP AT <lt_data> ASSIGNING <l_data>.
** MOVE-CORRESPONDING <l_data> TO gt_tab.
** APPEND gt_tab.
* ENDLOOP.
* ENDIF.
ENDFORM. "

测试界面：

测试结果：

输出的库存和MB5B的结果是一样的

MB5B界面：

MB5B结果：

字符串处理一下可以得到总库存：

测试控制台：

参考：http://blog.csdn.net/zhongguomao/article/details/50924058

ABAP:SUBMIT执行其他报表并返回的数据相关推荐

关于在DataTable中执行DataTable.Select(条件)返回DataTable的解决方法
在实际编程工程中,常常遇到这样的情况:DataTable并不是数据库中的,或者DataTable尚未写到数据库,或者从数据库中读出的DataTable已经在本地被改动,又没有写回数据库(可能还要作其他 ...
java执行cmd命令，返回结果中文乱码问题解决
java执行cmd命令,返回结果中文乱码问题解决参考文章: (1)java执行cmd命令,返回结果中文乱码问题解决 (2)https://www.cnblogs.com/kwaitfort/p/90 ...
【Android 逆向】Android 进程注入工具开发 ( 注入代码分析 | 远程调用目标进程中 libc.so 动态库中的 mmap 函数三 | 等待远程函数执行完毕 | 寄存器获取返回值 )
文章目录前言一.等待远程进程 mmap 函数执行完毕二.从寄存器中获取进程返回值三.博客资源前言前置博客 : [Android 逆向]Android 进程注入工具开发 ( 注入代码分析 | ...
python执行系统命令后获取返回值的几种方式集合
第一种情况 os.system('ps aux') 执行系统命令,没有返回值第二种情况 result = os.popen('ps aux') res = result.read() for lin ...
原生sql 查询返回一个实体_python连接SQLServer执行给定的查询SQL语句，并返回结果数据...
今天写这篇文章的初衷就是在我昨天发表的文章<Python连接SQLServer数据库执行增删改查操作>后,一些读者反馈说跟Python完全没有关系,这里我想说的是:内容的确是与Python ...
Python基础day05【函数（局部变量、全局变量、多函数执行流程、函数返回值、函数参数）、拆包、引用、可变与不可变类型、函数注意事项】
视频.源码.课件.软件.笔记:超全面Python基础入门教程[十天课程]博客笔记汇总表[黑马程序员] Python基础day05[函数(函数传参的两种形式.函数形参).拆包.引用.可变与不可变类型.引 ...
python执行cmd并返回是否成功_python脚本执行CMD命令并返回结果的例子
最近写脚本的时想要用python直接在脚本中去执行cmd命令,并且将返回值打印出来供下面调用,所以特意查了下,发现主要有一下几种方式来实现,很简单: 就拿执行adb, adb shell, adb d ...
python 调用控制台并获取返回结果_python脚本执行CMD命令并返回结果的例子
最近写脚本的时想要用python直接在脚本中去执行cmd命令,并且将返回值打印出来供下面调用,所以特意查了下,发现主要有一下几种方式来实现,很简单: 就拿执行adb, adb shell, adb d ...
[datatable]关于在DataTable中执行DataTable.Select(“条件“)返回DataTable的解决方法
[datatable]关于在DataTable中执行DataTable.Select("条件")返回DataTable的解决方法参考文章: (1)[datatable]关于在Da ...

ABAP:SUBMIT执行其他报表并返回的数据

ABAP:SUBMIT执行其他报表并返回的数据相关推荐

最新文章

热门文章