*&---------------------------------------------------------------------*
*& Report  ZALVE_CALCULADORA
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zalve_calculadora_obj_interfac.




DATA: lv_ok_code TYPE sy-ucomm,
      lv_save_ok LIKE lv_ok_code,
      lv_output(33) TYPE c,
      lv_input(15)  TYPE c,
      lv_op(1) TYPE c.

INCLUDE Z_CALCULADORA_OBJ.

DATA calculin TYPE REF TO calculadora.

start-of-selection.
 CREATE OBJECT calculin.

CALL SCREEN 1000.
INCLUDE zalve_calculadora_status_10o01.

INCLUDE zalve_calculadora_user_commi01.