ABAP 弹出消息框

ABAP弹出消息框，如下所示（事务代码：CO15）：

DATA lt_errormsg TYPE tsmesg.
DATA ls_errormsg LIKE LINE OF lt_errormsg.

DATA iv_aufnr TYPE aufk-aufnr.
iv_aufnr = coruf-aufnr.

CLEAR:lt_errormsg[], ls_errormsg.
ls_errormsg-zeile = iv_aufnr.
ls_errormsg-msgty = 'E'.
ls_errormsg-arbgb = 'ZPP001'.
ls_errormsg-txtnr = '000'.
ls_errormsg-msgv1 = iv_aufnr.
*ls_errormsg-msgv2 = iv_sum_aufm.
*ls_errormsg-msgv3 = iv_sum_resb.
APPEND ls_errormsg TO lt_errormsg.
IF lt_errormsg[] IS NOT INITIAL.
   CALL FUNCTION 'FB_MESSAGES_DISPLAY_POPUP'
       EXPORTING
           IT_SMESG              = lt_errormsg[]
       EXCEPTIONS
           NO_MESSAGES           = 1
           POPUP_CANCELLED       = 2
           OTHERS                = 3.
    MESSAGE e000(zpp001) WITH iv_aufnr.
ENDIF.