Report ZZ_##_PARAMETER1

REPORT  ZZ_##_PARAMETER1.
 
DATA wa_scarr TYPE scarr.
 
PARAMETERS c(20) TYPE c.
PARAMETERS i TYPE i.
PARAMETERS p TYPE p DECIMALS 2.
PARAMETERS date TYPE zz_##_date.
PARAMETERS time TYPE zz_##_time.
 
PARAMETERS airline LIKE scarr-carrid.
SELECT-OPTIONS airlines FOR wa_scarr-carrid.
 
PARAMETERS radio1 RADIOBUTTON GROUP rad.
PARAMETERS radio2 RADIOBUTTON GROUP rad.
PARAMETERS radio3 RADIOBUTTON GROUP rad.
 
PARAMETERS check1 AS CHECKBOX.
PARAMETERS check2 AS CHECKBOX.
PARAMETERS check3 AS CHECKBOX.
 
START-OF-SELECTION.
 
  LOOP AT airlines.
    WRITE: / airlines-sign, airlines-option, airlines-low, airlines-high.
  ENDLOOP.
 
  ULINE.
 
  SELECT * FROM scarr INTO wa_scarr WHERE carrid IN airlines.
    WRITE: / wa_scarr-carrid, wa_scarr-carrname, wa_scarr-currcode.
  ENDSELECT.
 
  ULINE.
 
  SELECT * FROM scarr INTO wa_scarr.
    IF wa_scarr-carrid IN airlines.
      WRITE / '+' COLOR COL_POSITIVE.
    ELSE.
      WRITE / '-' COLOR COL_NEGATIVE.
    ENDIF.
    WRITE: wa_scarr-carrid, wa_scarr-carrname, wa_scarr-currcode.
  ENDSELECT.
 
  ULINE.
 
*  IF ( radio1 = 'X' ).
*    WRITE: / 'Der erste Radiobutton wurde gesetzt.'.
*  ELSEIF ( radio2 = 'X' ).
*    WRITE: / 'Der zweite Radiobutton wurde gesetzt.'.
*  ELSEIF ( radio3 = 'X' ).
*    WRITE: / 'Der dritte Radiobutton wurde gesetzt.'.
*  ENDIF.
 
  CASE 'X'.
    WHEN radio1.
      WRITE: / 'Der erste Radiobutton wurde gesetzt.'.
    WHEN radio2.
      WRITE: / 'Der zweite Radiobutton wurde gesetzt.'.
    WHEN radio3.
      WRITE: / 'Der dritte Radiobutton wurde gesetzt.'.
  ENDCASE.
 
  ULINE.
 
  IF ( check1 = 'X' ).
    WRITE: / 'Die erste Checkbox wurde aktiviert.'.
  ENDIF.
  IF ( check2 = 'X' ).
    WRITE: / 'Die zweite Checkbox wurde aktiviert.'.
  ENDIF.
  IF ( check3 = 'X' ).
    WRITE: / 'Die dritte Checkbox wurde aktiviert.'.
  ENDIF.