*&---------------------------------------------------------------------*
*& Report  ZRAP05_EXERCICIO11
*&
*&---------------------------------------------------------------------*
*&
*&created by: dalcy fabrício
*&---------------------------------------------------------------------*

REPORT  ZRAP05_EXERCICIO11.

TABLES: ZTAP05_FILME.

SELECTION-SCREEN BEGIN OF block block1 WITH FRAME TITLE text-001.
  SELECT-OPTIONS: s_cod_f FOR ZTAP05_FILME-COD_FILME OBLIGATORY.
  PARAMETERS: p_preco TYPE ZTAP05_FILME-TIPO_PRECO OBLIGATORY,
              p_gene  TYPE ZTAP05_GENERO-COD_GEN OBLIGATORY.
SELECTION-SCREEN END OF BLOCK block1.


DATA ti_filme TYPE TABLE OF ZTAP05_FILME.
FIELD-SYMBOLS <fs_wa_filme> TYPE ZTAP05_FILME.


START-OF-SELECTION.
  PERFORM f_selec.
  PERFORM f_update.



*&---------------------------------------------------------------------*
*&      Form  F_UPDATE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form F_UPDATE .
    MODIFY ZTAP05_FILME FROM TABLE ti_filme.

    IF sy-subrc = 0.
      commit work.

      MESSAGE s002(ZCLAP05_EXERCICIO11).
    ENDIF.
endform.                    " F_UPDATE


*&---------------------------------------------------------------------*
*&      Form  F_SELEC
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form F_SELEC .
  SELECT * FROM ZTAP05_FILME INTO TABLE ti_filme WHERE cod_filme in s_cod_f.

  sort ti_filme by cod_filme.

  IF sy-subrc <> 0.
    MESSAGE e000(ZCLAP05_EXERCICIO11) .

  ELSE.
    LOOP AT ti_filme ASSIGNING <fs_wa_filme>.
      IF <fs_wa_filme> is ASSIGNED.
        <fs_wa_filme>-tipo_preco = p_preco.
        <fs_wa_filme>-cod_gen   = p_gene.
      ELSE.
        MESSAGE e001(ZCLAP05_EXERCICIO11).
      ENDIF.
    ENDLOOP.
  ENDIF.
endform.                    " F_SELEC