ABAP调用新任务代码

*&调用函数‘ZMLTOTAL_CHECK’启用新任务'jx'执行'ZMLSCP1_FR0003';

IF zmlcbwlcgdd_ok[] is not INITIAL.
CALL FUNCTION 'ZMLSCP1_FR0003' STARTING NEW TASK 'jx'

PERFORMING get_data_01 ON END OF TASK
EXPORTING
ztime = ztime
TABLES
i_input = zmlcbwlcgdd_ok
i_out = itab.
ENDIF.

*&---------------------------------------------------------------------*
*& Form get_data_01
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->JX text
*----------------------------------------------------------------------*
FORM get_data_01 USING jx.
DATA: zmlcbwlcgdd_input LIKE zmlcbwlcgdd OCCURS 0 WITH HEADER LINE,
itab LIKE zpomessage_out OCCURS 0 WITH HEADER LINE,
zmlcbwlcgddjg_check LIKE zmlcbwlcgddjg OCCURS 0 WITH HEADER LINE,
zmlcbwlcgdd_ok LIKE zmlcbwlcgdd OCCURS 0 WITH HEADER LINE.

*&接函数新任务执行后的返回结果。
RECEIVE RESULTS FROM FUNCTION 'ZMLSCP1_FR0003'
TABLES
i_input = zmlcbwlcgdd_ok
i_out = itab.
*
ENDFORM. "get_data_01

 

转载于:https://www.cnblogs.com/rainysblog/p/6508267.html