POPUP

REPORT Z_POPUP_TEST_JAMES.
data x_ans type c.
  call function 'POPUP_TO_CONFIRM_STEP'
   exporting
    DEFAULTOPTION        = 'Y'
     textline1            = 'just show you how to ....'
    TEXTLINE2            = ' '
     titel                = 'This is test window'
    START_COLUMN         = 25
    START_ROW            = 6
    CANCEL_DISPLAY       = ''
   IMPORTING
     ANSWER               = X_ANS.

    IF X_ANS = 'J'.
      MESSAGE '删除操作已确认！'   TYPE 'S' .
      EXIT.
    ELSEIF X_ANS  = 'N'.
      MESSAGE '删除操作已经取消！' TYPE 'S' .
      EXIT.
     ENDIF.