Validation check in selection screen

Question

Hi experts,
I have a selection screen in which there are 2 radio buttons S1 n S2, and a text field (Parameter) namely P_PATH.
I am using a method (CALL METHOD cl_gui_frontend_services=>file_save_dialog) for selecting a file to save some
data in the XLS format.
Once the user selects S2, and presses the F4 help in the parameter P_PATH, this method is called.
  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      window_title      = p_title
      default_file_name = p_filename
      file_filter       = l_file_filter
      initial_directory = p_download_path
    CHANGING
      filename          = p_filename
      path              = p_download_path
      fullpath          = p_full_path
      user_action       = g_user_action    "save or cancel
    EXCEPTIONS
      OTHERS            = 1.
The  g_user_action given here has a value of 9 in case the user selects the CANCEL button in the pop up that asks for the file name to be given for saving the file.
My req. is that when  g_user_action = 9. then the selection screen should be displayed back, with the S1 being selected (instead of the earlier S2).
I have done the below coding, but its not working. Is there something that I am doing incorrect?
SELECTION-SCREEN: BEGIN OF BLOCK b4 WITH FRAME TITLE text-004.
PARAMETERS: s1 RADIOBUTTON GROUP rad2 DEFAULT 'X' USER-COMMAND ac,
            s2 RADIOBUTTON GROUP rad2.
SELECTION-SCREEN: END OF BLOCK b4.
DATA: g_s1 type c.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
PERFORM get_download_path
AT SELECTION-SCREEN OUTPUT.
if g_s1 = 'X'.
  s1 = 'X'.
  s2 = ''.
endif.
FORM get_download_path
the above method is called**
IF g_user_action = 9.
g_s1 = 'X'.
  exit.
endif.
ENDFORM.

Answer 1

Hello Ajay,
As Advait has pointed out already AT SELECTION_SCREEN OUTPUT event (or the PBO) does not trigger after the ON VALUE-REQUEST (or the POV) event.
You have to use the FM: DYNP_VALUES_UPDATE to update the selection-screen value.
FORM get_download_path
** the above method is called**
  data: dyname like d020s-prog,
        dynumb like d020s-dnum.
  data: it_dyfields type standard table of dynpread,
           st_dyfields type dynpread.
IF g_user_action = 9.
  dyname = sy-repid.
  dynumb = sy-dynnr.
  CLEAR s2.
  s1 = 'X'.
  move 'S1' to st_dyfields-fieldname.
  move  'X'  to st_dyfields-fieldvalue.
  append st_dyfields to it_dyfields.
  move 'S2' to st_dyfields-fieldname.
  CLEAR st_dyfields-fieldvalue.
  append st_dyfields to it_dyfields.
  call function 'DYNP_VALUES_UPDATE'
       exporting
            dyname               = dyname
            dynumb               = dynumb
       tables
            dynpfields           = it_dyfields
       exceptions
            invalid_abapworkarea = 1
            invalid_dynprofield  = 2
            invalid_dynproname   = 3
            invalid_dynpronummer = 4
            invalid_request      = 5
            no_fielddescription  = 6
            undefind_error       = 7
            others               = 8.
  check sy-subrc eq 0.
endif.
ENDFORM.
Check this out.
BR,
Suhas