REPORT Z_EXERCICIO9_ALUNO6.

TYPES: zaluno6_loC.

TYPES: BEGIN OF ty_zaluno6_loc,

       cod_filme TYPE zaluno6_loc-cod_filme,
       preco TYPE zaluno6_loc-preco,
       genero TYPE zaluno6_loc-genero,

       END OF ty_zaluno6_loc.

DATA: ti_zaluno6_loc TYPE TABLE OF ty_zaluno6_loc,
      wa_zaluno6_loc TYPE ty_zaluno6_loc.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
    SELECT-OPTIONS s_cod FOR zaluno6_loc-cod_filme OBRIGATORY.
    PARAMETERS: p_preco TYPE zaluno6_loc-preco OBRIGATORY,
                p_genero TYPE zaluno6_loc-genero OBRIGATORY.
SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION.

SELECT cod_filme preco genero
FROM zaluno6_loc
INTO TABLE ti_zaluno6_loc
WHERE cod_filme IN s_cod.

IF SY-SUBRC IS INITAL.
    LOOP AT ti_zaluno6_loc INTO wa_zaluno6_loc.
        wa_zaluno6_loc-preco = p_preco.
        wa_zaluno6_loc-genero = p_genero.
        APPEND wa_zaluno6_loc TO ti_zaluno6_loc.
        CLEAR wa_zaluno6_loc.
    ENDLOOP.
        MODIFY zaluno6_loc FROM INTO ti_zaluno6_loc.
ENDIF.