Dynamic selecton screen

Question

Hi All,
I copied one standard program to z prgm. The prgm is Module pool. In that i will have to add check boxes for billing types. These check boxes are dependant on one ztable.
Means, if suppose, in that table i have two billing types then my selection screen should show two checkboxes for those billing types. And if any new entry get inserted in that ztable then my selection should show 3 checkboxes (including new one). I want to do selection screen dynamic. How to do it?
I need to add two or  three or four (whatever entries ztable) checkboxes in existing selection screen.
Pls help

Answer 1

Hi Suhana,
Can you check this code? Perhaps it will be useful for you.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001
                                                NO INTERVALS.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS r_tknum RADIOBUTTON GROUP rad1 USER-COMMAND zr1 DEFAULT 'X'.
SELECTION-SCREEN COMMENT 2(27) text-r01 FOR FIELD s_tknum.
SELECT-OPTIONS s_tknum FOR vttk-tknum MODIF ID 2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS r_vbeln RADIOBUTTON GROUP rad1.
SELECTION-SCREEN COMMENT 2(27) text-r02 FOR FIELD s_vbeln.
SELECT-OPTIONS s_vbeln FOR likp-vbeln MODIF ID 3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF SCREEN 500 AS WINDOW TITLE title.
PARAMETERS: c1 AS CHECKBOX USER-COMMAND check,
            p_datum TYPE sy-datum MODIF ID 1.
SELECTION-SCREEN END OF SCREEN 500.
AT SELECTION-SCREEN OUTPUT.
  IF c1 = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 1.
        screen-input = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ELSE.
    LOOP AT SCREEN.
      IF r_tknum = 'X'.
        IF screen-group1 = 2.
          screen-input = 1.
        ELSEIF screen-group1 = 3.
          screen-input = 0.
        ENDIF.
        MODIFY SCREEN.
        CLEAR: s_vbeln, s_vbeln[].
      ELSEIF r_vbeln = 'X'.
        IF screen-group1 = 2.
          screen-input = 0.
          screen-output = 1.
          MODIFY SCREEN.
          CLEAR: s_tknum, s_tknum[].
        ENDIF.
      ENDIF.
    ENDLOOP.
  ENDIF.