Can any one help me in this code

Question

Hi all,
I have created a selection screen and my aim is to display some fields or some block dynamically by choosing some radio button is it possible.
can any one help me in this.
REPORT  z_g_test.
TABLES: spfli,sbook,sscrfields.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:s_carrid FOR spfli-carrid.
SELECTION-SCREEN END OF BLOCK 1.
PARAMETERS:rad1 RADIOBUTTON GROUP g1 USER-COMMAND us1,
           rad2 RADIOBUTTON GROUP g1 DEFAULT 'X' .
SELECTION-SCREEN BEGIN OF SCREEN 001 as subscreen ."WITH FRAME TITLE text-002.
SELECT-OPTIONS: s_fldate FOR sbook-fldate.
SELECTION-SCREEN END OF SCREEN 001.
DATA ok_code LIKE sy-ucomm.
INITIALIZATION.
START-OF-SELECTION.
  SELECT * FROM spfli WHERE carrid IN s_carrid.
  ENDSELECT.
END-OF-SELECTION.
  WRITE:spfli-carrid.
AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
      WHEN'US1'.
*      call screen 001 starting at 55 40.
  ENDCASE.
Is i am going on the right way
Regards,
Lisa.
Message was edited by: Lisa Roy
Message was edited by: Lisa Roy
Message was edited by: Lisa Roy

Answer 1

This is what I meant. Copy this and try as it is and see if it serves your purpose.
REPORT ztest1 .
TABLES: spfli, sscrfields, sbook.
SELECTION-SCREEN BEGIN OF TABBED BLOCK tabb1 FOR 4 LINES.
SELECTION-SCREEN TAB (25) tabs1 USER-COMMAND ucomm1
                     DEFAULT SCREEN 001.
SELECTION-SCREEN TAB (25) tabs2 USER-COMMAND ucomm2
                     DEFAULT SCREEN 002.
SELECTION-SCREEN END OF BLOCK tabb1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE abc.
PARAMETERS: p_date LIKE sy-datum.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF SCREEN 001 AS SUBSCREEN .
SELECT-OPTIONS: s_fldate FOR sbook-fldate.
SELECTION-SCREEN END OF SCREEN 001.
SELECTION-SCREEN BEGIN OF SCREEN 002 AS SUBSCREEN .
SELECT-OPTIONS:s_carrid FOR spfli-carrid.
SELECTION-SCREEN END OF SCREEN 002.
INITIALIZATION.
  tabs1 = 'Search by flight date'.
  tabs2 = 'Search by flight number'.
  abc   = 'Some other parameters'.
AT SELECTION-SCREEN OUTPUT.
  CASE sscrfields-ucomm.
    WHEN 'UCOMM1'.
      tabb1-prog = sy-repid.
      tabb1-dynnr   = 001.
      tabb1-activetab = 'TABS1'.
    WHEN 'UCOMM2'.
      tabb1-prog = sy-repid.
      tabb1-dynnr   = 002.
      tabb1-activetab = 'TABS2'.
  ENDCASE.