*&---------------------------------------------------------------------*
*& Include          ZADA_PROG_UNIT_05_F01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form case_endcase
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM case_endcase .

  " Ne fonctionne que sur une variable.
  " Ne pas oublier WHEN OTHERS.

  DATA: lv_month TYPE i.

  lv_month = SY-DATUM+4(2).

  CASE lv_month.
    WHEN 12 OR 1 OR 2.
      WRITE:/'C''est l''hiver'.
    WHEN 3 OR 4 OR 5.
      WRITE:/'C''est le printemps'.
    WHEN 6 OR 7 OR 8.
      WRITE:/'C''est l''été'.
    WHEN 9 OR 10 OR 11.
      WRITE:/'C''est l''automne'.
    WHEN OTHERS.
      WRITE:/'Y a plus de saison!'.
  ENDCASE.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form if_endif
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM if_endif .

  DATA lv_month TYPE I.
  lv_month = SY-DATUM+4(2).

  IF lv_month = 1.
    WRITE:/'C''est le mois de janvier'.
  ELSEIF lv_month = 2.
    WRITE:/'C''est le mois de février'.
  ELSEIF lv_month = 3.
    WRITE:/'C''est le mois de mars'.
  ELSEIF lv_month = 4.
    WRITE:/'C''est le mois d''avril'.
  ELSEIF lv_month = 5.
    WRITE:/'C''est le mois de mai'.
  ELSE.
    WRITE:/'Autre mois de l''année'.
  ENDIF.

ENDFORM.