ABAP SUBMIT 调用程序DEMO

最新推荐文章于 2025-05-22 23:39:15 发布

一步一个小台阶

最新推荐文章于 2025-05-22 23:39:15 发布

阅读量189

点赞数

CC 4.0 BY-SA版权

文章标签：开发语言

本文链接：https://blog.youkuaiyun.com/N2012_8/article/details/133708981

文章描述了一个使用ABAP编程语言从MB5B类型表中检索ALV数据的过程，涉及参数传递和错误处理。开发者通过`SUBMIT`命令执行RM07MLBD并处理返回的数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

调用MB5B
TYPES: BEGIN OF gw_mb5b,
matnr LIKE mbew-matnr,
maktx LIKE makt-maktx,
bwkey LIKE mbew-bwkey,
werks LIKE mseg-werks,
charg LIKE mseg-charg,
sobkz LIKE mslb-sobkz,
name1 LIKE t001w-name1,
start_date LIKE sy-datlo,
end_date LIKE sy-datlo,
anfmenge(09) TYPE p DECIMALS 3,
meins LIKE mara-meins,
soll(09) TYPE p DECIMALS 3,
haben(09) TYPE p DECIMALS 3,
endmenge(09) TYPE p DECIMALS 3,
anfwert(09) TYPE p DECIMALS 2,
waers LIKE t001-waers,
sollwert(09) TYPE p DECIMALS 2,
habenwert(09) TYPE p DECIMALS 2,
endwert(09) TYPE p DECIMALS 2,
color TYPE slis_t_specialcol_alv,
END OF gw_mb5b.

DATA: gt_mb5b TYPE STANDARD TABLE OF gw_mb5b,
gs_mb5b TYPE gw_mb5b.

FORM frm_get_mb5b.

DATA:lr_alv_data TYPE REF TO data.
FIELD-SYMBOLS : <lt_alv_data> TYPE ANY TABLE .
FIELD-SYMBOLS : <lt_data> TYPE any. "LIKE LINE OF it_tab .

cl_salv_bs_runtime_info=>set( EXPORTING display = abap_false
metadata = abap_false
data = abap_true ).
CLEAR lr_alv_data.
UNASSIGN <lt_alv_data>.

SUBMIT rm07mlbd
WITH matnr IN gt_matnr_rang
WITH datum IN s_budat
WITH werks EQ '1040'
WITH xchar EQ 'X'
WITH lgbst EQ 'X'
WITH bwbst EQ ''
AND RETURN.

TRY.
cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = lr_alv_data ).

ASSIGN lr_alv_data->* TO <lt_alv_data>.
CATCH cx_salv_bs_sc_runtime_info.

MESSAGE '无法检索ALV数据!请尝试其他条件。' TYPE 'E'.
ENDTRY.

cl_salv_bs_runtime_info=>clear_all( ).

IF <lt_alv_data> IS ASSIGNED.
UNASSIGN <lt_data>.
LOOP AT <lt_alv_data> ASSIGNING <lt_data>."即所需要内表数据
MOVE-CORRESPONDING <lt_data> TO gs_mb5b.
APPEND gs_mb5b TO gt_mb5b.
CLEAR gs_mb5b.
CLEAR <lt_data>.
ENDLOOP.
ENDIF.

ENDFORM.