DATA:
   gv_title    TYPE char40,
   gv_txt_qa   TYPE char40,
   gv_txt_bn1  TYPE char4,
   gv_txt_bn2  TYPE char4,
   gv_answer   TYPE char01.
 
 "调用时  
  gv_title = '保存数据确认'.
  gv_txt_qa = '是否保存数据'.   
   
  PERFORM cofirm_action USING gv_title
                              gv_txt_qa
                              gv_txt_bn1
                              gv_txt_bn2
                        CHANGING gv_answer.
  IF gv_answer = '1'. "是  
  ENDIF. 
      
*&---------------------------------------------------------------------*
*&      Form  COFIRM_ACTION
*&---------------------------------------------------------------------*
*     确认动作
*----------------------------------------------------------------------*
*      -->P_TITLE  text
*      -->P_TXT_QA  text
*      -->P_TXT_BN1  text
*      -->P_GV_TXT_BN2  text
*----------------------------------------------------------------------*
FORM cofirm_action  USING   p_title   TYPE c
                             p_txt_qa  TYPE c
                             p_txt_bn1 TYPE c
                             p_txt_bn2 TYPE c
                   CHANGING p_answer TYPE c.
  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      titlebar              = p_title
      text_question         = p_txt_qa
      text_button_1         = p_txt_bn1
      text_button_2         = p_txt_bn2
      display_cancel_button = ''
      start_column          = '65'
    IMPORTING
      answer                = p_answer
    EXCEPTIONS
      text_not_found        = 1
      OTHERS                = 2.
  IF sy-subrc <> 0.
    p_answer = '2'. "否
  ENDIF.
ENDFORM.                    " COFIRM_ACTION