推荐订阅源

  p_msg = 'will clear all data and recalculate?'(016).
    CALL FUNCTION 'POPUP_TO_CONFIRM'
      EXPORTING
*       TITLEBAR                    = ' '
*       DIAGNOSE_OBJECT             = ' '
        text_question               = p_msg
*       TEXT_BUTTON_1               = 'YES'(001)
       icon_button_1               = 'YES'(017)
*       TEXT_BUTTON_2               = 'Nein'(002)
      icon_button_2               = 'NO'(018)
       default_button              = '2'
       display_cancel_button       = ' '
*       USERDEFINED_F1_HELP         = ' '
       start_column                = 25
       start_row                   = 6
*       POPUP_TYPE                  =
*       IV_QUICKINFO_BUTTON_1       = ' '
*       IV_QUICKINFO_BUTTON_2       = ' '
     IMPORTING
       answer                      = p_answer
*     TABLES
*       PARAMETER                   =
     EXCEPTIONS
       text_not_found              = 1
       OTHERS                      = 2
              .
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.

    IF p_answer = 2.
      LEAVE LIST-PROCESSING."返回initialization事件 .
*       return.
    ENDIF.

效果如下：