How to capture data at exit command in module pool

Question

hello all,
i have a scenario,on screen i enter some data and i press the cancel button a popup should be displayed saying do you want to cancel.if i press on yes then leave to screen 0.but if i press no then the previous data entered should be displayed on the same screen.
can some body help me on this.
Thanks,
Mayank.....

Answer 1

Hi,
Create a button with type 'E' and
call a POP UP FM 'POPUP_TO_CONFIRM' and write the code to return to the place where you want to.
All the you need to write at at exit command.
The code is like this:
REPORT  ztest_at_exit.
DATA:
  var1(10),
  var2(10),
  var3(10).
CALL SCREEN 100.
*&      Module  STATUS_0100  OUTPUT
      text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'ZTEST_AT_EXIT'.
  SET TITLEBAR 'ZTEST_AT_EXIT'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE user_command_0100 INPUT.
  DATA:
    w_ucomm LIKE sy-ucomm.
  w_ucomm = sy-ucomm.
  CASE w_ucomm.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'CANCEL'.
      LEAVE TO SCREEN 0.
    WHEN 'ADD'.
      var3 = var1 + var2.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  EXIT_100  INPUT
      text
MODULE exit_100 INPUT.
  DATA:
    answer.
  w_ucomm = sy-ucomm.
  CASE w_ucomm.
    WHEN 'EXIT2'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
          text_question = 'Do you want to save this ?'
        IMPORTING
          answer        = answer.
          exception
               text_not_found      = 1
               OTHERS              = 2.
      IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        IF NOT answer EQ '1'.
          LEAVE TO SCREEN 0.
        ENDIF.
      ENDIF.
  ENDCASE.
ENDMODULE.                 " EXIT_100  INPUT
Regards,
Rama Chary.P.