Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- REPORT zrep_local_classes.
- CLASS parent DEFINITION.
- PUBLIC SECTION.
- METHODS
- : constructor
- , show
- .
- PROTECTED SECTION.
- DATA
- : mt_chars TYPE TABLE OF flag
- .
- ENDCLASS.
- CLASS parent IMPLEMENTATION.
- METHOD constructor.
- APPEND 'P' to me->mt_chars.
- ENDMETHOD.
- *--------------------------------------------------------------------*
- METHOD show.
- LOOP AT me->mt_chars ASSIGNING FIELD-SYMBOL(<ls_char>).
- WRITE : / <ls_char>.
- ENDLOOP.
- ENDMETHOD.
- ENDCLASS.
- CLASS child DEFINITION INHERITING FROM parent.
- PUBLIC SECTION.
- METHODS
- : constructor
- .
- ENDCLASS.
- CLASS child IMPLEMENTATION.
- METHOD constructor.
- SUPer->constructor( ).
- APPEND 'C' to me->mt_chars.
- ENDMETHOD.
- ENDCLASS.
- START-OF-SELECTION.
- DATA(lo) = NEW child( ).
- lo->show( ).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement