关于EXCEL方式输出报表

一个例子:
当删除一些数据库记录时:

      call function 'POPUP_TO_CONFIRM_STEP'
       exporting
            defaultoption  = 'Y'
            textline1      = text-020
            titel          = l_title
       importing
            answer         = l_answer
       exceptions
            others         = 0.
  if sy-subrc ne 0.
  endif.
  case l_answer.
    when 'N'.
*      r_subrc = 4.
    when 'A'.
*      r_subrc = 8.
  endcase.

  跳出确认屏幕，返回值如果是确定：'J'  ，否：‘N’ ,取消 ‘A’