在一些情况下我们需要调用报表运行,获取运行的结果,用Submit来实现。
例:接口根据iv_bukrs、iv_lifnr、iv_spmon三个字段值获取程序报表ZFI1001运行后edmbtr的值。
DATA: ra_bukrs TYPE RANGE OF bukrs,
ls_bukrs LIKE LINE OF ra_bukrs,
ra_lifnr TYPE RANGE OF lifnr,
ls_lifnr LIKE LINE OF ra_lifnr.
DATA:it_memory LIKE TABLE OF abaplist.
DATA: BEGIN OF it_list OCCURS 0,
line(1000),
END OF it_list.
DATA: BEGIN OF it_string OCCURS 0,
str TYPE c LENGTH 100,
END OF it_string.
DATA: BEGIN OF is_indx,
bukrs(2),
lifnr(2),
edmbtr(2),
END OF is_indx.
data ls_indx like is_indx.
DATA L_ENDLINE TYPE I.
IF iv_bukrs IS NOT INITIAL.
ls_bukrs-low = iv_bukrs.
ls_bukrs-sign = 'I'.
ls_bukrs-option = 'EQ'.
APPEND ls_bukrs TO ra_bukrs.
ENDIF.
IF iv_lifnr IS NOT INITIAL.
ls_lifnr-low = iv_lifnr.
ls_lifnr-sign = 'I'.
ls_lifnr-option = 'EQ'.
APPEND ls_