Screen programming - Return statement

Question

Hi,
In the middle of a user exit, I have called a screen in which two buttons are there "SAVE and Exit".
If save button is pressed, data should update the value is table and  continue with the user exit.
If exit button is pressed, nothing should happen and continue with the user exit.
My problem is, i have called this screen in the middle of the user exit. Exit button works fine, it continues with the next line of the code in the user exit.
But for save button, after updation, it returns to the first line of the user exit. But it should continue with the next line in the user exit.
Which statement will bring the control to next line of the user exit after updation.
Thanks in advance,
Ezhil.

Answer 1

Hi,
Screen is a custom screen.
Below is the code for SAVE and exit button.
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
IF sy-ucomm = 'SAVE'.
    PERFORM confirm_data.
     LEAVE PROGRAM.
  ELSEIF sy-ucomm = 'EXIT'.
    LEAVE PROGRAM.
  ENDIF.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Form  CONFIRM_DATA
      text
-->  p1        text
<--  p2        text
FORM confirm_data.
  TYPES : BEGIN OF ty_data,
            sfakn TYPE vbrk-sfakn,
           END OF ty_data.
  DATA :  wa_vbrk TYPE vbrk,
          it_upd TYPE STANDARD TABLE OF vbrk WITH HEADER LINE,
          it_vbrk TYPE STANDARD TABLE OF vbrk WITH HEADER LINE,
          ok_code TYPE sy-ucomm,
          it_data TYPE STANDARD TABLE OF ty_data,
          wa_data TYPE ty_data.
  IF sy-ucomm = 'SAVE'.
    CLEAR : wa_data.
    REFRESH : it_data.
    IMPORT it_data FROM MEMORY ID 'VF11'.
    READ TABLE it_data INTO wa_data INDEX 1.
    SELECT SINGLE * INTO wa_vbrk FROM vbrk WHERE vbeln = wa_data-sfakn.
    wa_vbrk-zrbdc = ztsd_inv_cancel-zrbdc.
    APPEND wa_vbrk TO it_upd.
    CALL FUNCTION 'ENQUEUE_E_TABLE'
      EXPORTING
        mode_rstable   = 'E'
        tabname        = 'VBRK'
        varkey         = 'VBELN'
      EXCEPTIONS
        foreign_lock   = 1
        system_failure = 2
        OTHERS         = 3.
    IF sy-subrc EQ 0.
      CALL FUNCTION 'DB_UPDATE_TABLE'
        EXPORTING
          tablename      = 'VBRK'
        TABLES
          inttab         = it_upd
        EXCEPTIONS
          db_error       = 1
          not_found      = 2
          wrong_param    = 3
          internal_error = 4
          OTHERS         = 5.
      IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      CALL FUNCTION 'DEQUEUE_E_TABLE'
        EXPORTING
          mode_rstable = 'E'
          tabname      = 'VBRK'
          varkey       = 'VBELN'.
    ENDIF.
  ENDIF.
ENDFORM.                    "confirm_data}