*&---------------------------------------------------------------------*
*& Report  ZRODIZIO                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZRODIZIO                                                    .

DATA:
  v_letras(3)  TYPE c,
  v_numeros(4) TYPE c,
  v_result(1)  TYPE c.

PARAMETER
* Digite a placa referente de seu veículo
  p_placa(7) TYPE c OBLIGATORY.


START-OF-SELECTION.
  v_letras  = p_placa+0(3).
  v_numeros = p_placa+3(4).
  v_result  = v_numeros+3(1).

  IF NOT ( v_letras CA sy-abcde AND v_numeros CA '0123456789' ).
    WRITE: / 'Formato da placa está incorreto.'.
  ELSE.

    WRITE:
  'Placa  : ', p_placa, /,
  'Letras : ', v_letras, /,
  'Números: ', v_numeros, /,
  'Rodízio: ', v_result, /.

    WRITE 'Dia da semana: '.
    CASE v_result.
      WHEN 1 OR 2.
        WRITE 'Segunda-feira'.
      WHEN 3 OR 4.
        WRITE 'Terça-feira'.
      WHEN 5 OR 6.
        WRITE 'Quarta-feira'.
      WHEN 7 OR 8.
        WRITE 'Qinta-feira'.
      WHEN OTHERS.
        WRITE 'Sexta-feira'.
    ENDCASE.
  ENDIF.