Selection-screen navigation process required immeidately

Question

Hi all,
I am having a program, if i execute that we will have 3 radio butons like basic data,
financial data, tax related data of the customers. when i select one of the radio buton and execute one selecion screen 500  will be displayed. selection screen 500 is common for all the radio buttons but based on the radio button some of the fields will be disabled.
what my problem is when i select one radio button and gave values in the selection screen , for the valid values it will display the data in the grid format. and i come back to the selection screen ,I have a situation where if the valid value is entered and there is no corresponding value for that selection i need to go back to the same selecion screen and a message should be displayed.
HOW TO HANDLE THIS?
Thanks,
Nagaraju.

Answer 1

The following is the code....
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
PARAMETER: P_BWAF0 RADIOBUTTON GROUP RAD1 DEFAULT 'X'
                                        USER-COMMAND PC,
           P_BWAF1 RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN END OF BLOCK BLK1.
*C-- Period range
SELECTION-SCREEN: BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS: S_DATE FOR SY-DATUM MODIF ID PER.
SELECTION-SCREEN: END OF BLOCK BLK2.
AT SELECTION-SCREEN OUTPUT.
  PERFORM SCREEN_INITIALIZE.
*&      Form  screen_initialize
      text
FORM SCREEN_INITIALIZE .
  IF P_BWAF0 EQ 'X'.
    W_SSCRFIELDS-UCOMM = SPACE.
  ELSE.
    W_SSCRFIELDS = 'RAD1'.
  ENDIF.
  LOOP AT SCREEN.
    IF W_SSCRFIELDS-UCOMM EQ 'RAD1'.
      IF SCREEN-GROUP1 = 'PER'.
        CLEAR: S_DATE.
        SCREEN-ACTIVE = 1.
      ENDIF.
    ELSE.
      IF SCREEN-GROUP1 = 'PER'.
        CLEAR: S_DATE.
        SCREEN-ACTIVE = 0.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.
ENDFORM.                    " screen_initialize