触发output type的代码 - WFMC_MESSAGES_PROCESS示例

本例是触发Delivery的output Type, 示例代码如下, 详细逻辑可参SAP标准程序SD70AV2A.

DATA: " internal table for message from NAST processing

lt_msg TYPE STANDARD TABLE OF msg0,

ls_msg TYPE msg0, " work area for lt_msg

lt_dsp TYPE STANDARD TABLE OF naliv2,

ls_dsp TYPE naliv2,

ls_nast TYPE nast.

FIELD-SYMBOLS: <ls_msg> TYPE msg0.

" transfer pt_nast data to lt_msg

LOOP AT pt_nast INTO ls_nast.

MOVE-CORRESPONDING ls_nast TO ls_msg.

APPEND ls_msg TO lt_msg.

CLEAR ls_msg.

ENDLOOP.

CALL FUNCTION 'WFMC_MESSAGES_EXTEND'

TABLES

tx_messages = lt_msg.

SORT lt_msg BY objky kschl.

* create display

LOOP AT lt_msg ASSIGNING <ls_msg>.

* tabix = sy-tabix.

MOVE-CORRESPONDING <ls_msg> TO ls_dsp.

ls_dsp-vbeln = <ls_msg>-objky(10).

ls_dsp-posnr = <ls_msg>-objky+10(6).

ls_dsp-tabix = sy-tabix.

<ls_msg>-tabix = sy-tabix.

APPEND ls_dsp TO lt_dsp.

CLEAR ls_dsp.

ENDLOOP.

" delivery output type processing

CALL FUNCTION 'WFMC_MESSAGES_PROCESS'

EXPORTING

pi_display_id = gc_display_id "'NALIV2'

pi_no_dialog = gc_true " 'X'

TABLES

tx_messages = lt_msg

tx_display = lt_dsp.

return_code = 0.

注: 1 . 本代码取自实际代码的一部分, 若想直接使用, 需略作修改.

2. 这种方法只适用例如VT70一样的程序中, 不能使用在Normal TCODE的UPDATE TASK Process中, 例如VT02N- Repeat output, 我们需要DEBUG标准程序找到合适的地方来CALL
'WFMC_MESSAGES_PROCESS' .