** CAST
** C A S T
*
* Permite realizar atribuições de ponteiros entre diferentes
* níveis dentro de uma hierarquia de objetos
*
* ANTES
X ?= Y
* AGORA
X = CAST dtype|#( Y ).
*
* Uso em um UPCAST
CLASS lcl_pai DEFINITION.
ENDCLASS.
CLASS lcl_filho DEFINITION INHERITING FROM lcl_pai.
ENDCLASS.
DATA:
r_filho TYPE REF TO lcl_filho.
r_filho = NEW #( ).
"upcast
DATA(r_pai) = CAST lcl_pai( r_filho ).
** C A S T
*
* Permite realizar atribuições de ponteiros entre diferentes
* níveis dentro de uma hierarquia de objetos
*
* ANTES
X ?= Y
* AGORA
X = CAST dtype|#( Y ).
*
* Uso em um UPCAST
CLASS lcl_pai DEFINITION.
ENDCLASS.
CLASS lcl_filho DEFINITION INHERITING FROM lcl_pai.
ENDCLASS.
DATA:
r_filho TYPE REF TO lcl_filho.
r_filho = NEW #( ).
"upcast
DATA(r_pai) = CAST lcl_pai( r_filho ).
