Designing Selection Screen

Some of the times I felt difficult to design a selection screen, with put a mark of impression on the user...

   This small piece of code can be of great help to design and understand the  selection screen as per the requirement.

   Just paste the code in SE38 & check for output.

*&---------------------------------------------------------------------*
*& Report  YKC_SELECTION_SCREEN_DESIGN
*&
*&---------------------------------------------------------------------*
*& Programmer: Krishna
*& Date      : 18 Dec 08
*&---------------------------------------------------------------------*
REPORT  YKC_SELECTION_SCREEN_DESIGN.
tables: trdir,tstc.
*================*
*Selection Screen
*================*
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK selection WITH FRAME TITLE a1title.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (32) a1line1 FOR FIELD p_datef.
PARAMETERS :     p_datef LIKE sy-datum DEFAULT space OBLIGATORY.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (32) a1line2 FOR FIELD p_datet.
PARAMETERS :     p_datet LIKE sy-datum DEFAULT sy-datum OBLIGATORY.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE b1title.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (30) b1line1 FOR FIELD p_summ.
PARAMETERS :     p_summ  RADIOBUTTON GROUP rad1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (30) b1line2 FOR FIELD p_detl.
PARAMETERS :     p_detl  RADIOBUTTON GROUP rad1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK option WITH FRAME TITLE c1title.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (28) c1line1 FOR FIELD p_prog.
PARAMETERS p_prog RADIOBUTTON GROUP rad2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (28) c1line2 FOR FIELD p_tran.
PARAMETERS p_tran RADIOBUTTON GROUP rad2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK option.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK dest WITH FRAME TITLE e1title.
PARAMETERS :     dest LIKE rfcdisplay-rfcdest DEFAULT 'NONE'.
SELECTION-SCREEN END OF BLOCK dest.
SELECTION-SCREEN BEGIN OF BLOCK optional WITH FRAME TITLE d1title.
SELECT-OPTIONS : s_prog   FOR trdir-name.              "Programs
SELECT-OPTIONS : s_tcode  FOR tstc-tcode.              "Transaction Code
SELECTION-SCREEN END OF BLOCK optional.
SELECTION-SCREEN END OF BLOCK selection.
INITIALIZATION.
  PERFORM selection_screen_text.
FORM selection_screen_text.
  a1title = 'Enter Dates for Analysis'.
  a1line1 = 'Analysis Start Date?'.
  a1line2 = 'Analysis End Date?'.
  b1title = 'Summary or Detail Report'.
  b1line1 = 'Summary Report'.
  b1line2 = 'Detail Report'.
  c1title = 'Analyze Programs or Transactions'.
  c1line1 = 'Usage of Standard Programs'.
  c1line2 = 'Usage of Standard Transactions'.
  d1title =
 'Optional: Enter Standard Transaction Codes and Programs for Analysis'.
  e1title = 'RFC Destination'.
ENDFORM.                    " selection_screen_text