*----------------------------------------------------------------------*

*  TITLE        : Dynamic Selection-Screen With List-Box               *

*  PROGRAM NAME : Z_DYNAMIC_SCREEN (TYPE: REPORT)                      *

*  AUTHOR       : CHANHOON KIM                                         *

*  CREATED ON   : 2010.04.01                                           *

*  DESCRIPTION  : Ref. Source by Joyjit Ghosh, IBM India               *

*  REF.PROGRAM  :                                                      *

*----------------------------------------------------------------------*

REPORT  Z_DYNAMIC_SCREEN.

TYPE-POOLS: VRM.

DATA: NAME TYPE VRM_ID,

      LIST TYPE VRM_VALUES,

      VALUE LIKE LINE OF LIST.

TABLES: SSCRFIELDS.

PARAMETERS: PS_PARM AS LISTBOX VISIBLE LENGTH 10 USER-COMMAND ABC.

PARAMETERS: RB1 RADIOBUTTON GROUP AB MODIF ID BL1,

            RB2 RADIOBUTTON GROUP AB MODIF ID BL2,

            RB3 RADIOBUTTON GROUP AB MODIF ID BL3.

INITIALIZATION.

NAME = 'PS_PARM'.

  VALUE-KEY = '1'. VALUE-TEXT = 'RB1 RB2'. APPEND VALUE TO LIST.

  VALUE-KEY = '2'. VALUE-TEXT = 'RB3'. APPEND VALUE TO LIST.

AT SELECTION-SCREEN OUTPUT.

  CALL FUNCTION 'VRM_SET_VALUES'

    EXPORTING

      ID     = NAME

      VALUES = LIST.

LOOP AT SCREEN.

  IF PS_PARM = 1.

    IF SCREEN-NAME = 'RB1' OR SCREEN-NAME = 'RB2' .

      SCREEN-INVISIBLE = 0.

    ELSEIF SCREEN-NAME = 'RB3'.

      SCREEN-INVISIBLE = 1.

    ENDIF.

    MODIFY SCREEN.

  ELSEIF PS_PARM = 2.

    IF SCREEN-NAME = 'RB1' OR SCREEN-NAME = 'RB2' .

      SCREEN-INVISIBLE = 1.

    ELSEIF SCREEN-NAME = 'RB3'.

      SCREEN-INVISIBLE = 0.

    ENDIF.

    MODIFY SCREEN.

  ELSEIF PS_PARM = SPACE.

    RB1 = 'X'.

    CLEAR: RB2,RB3.

    IF SCREEN-NAME = 'RB1' OR SCREEN-NAME = 'RB2' OR

       SCREEN-NAME = 'RB3'.

      SCREEN-INVISIBLE = 0.

      MODIFY SCREEN.

    ENDIF.

  ENDIF.

ENDLOOP.

AT SELECTION-SCREEN.

  IF SSCRFIELDS-UCOMM = 'ABC'.  ENDIF.

START-OF-SELECTION.

  WRITE: / 'Parameter:', PS_PARM.

<2/2>