Advertisement
Guest User

Untitled

a guest
Jun 20th, 2018
114
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 0.86 KB | None | 0 0
  1. REPORT zrep_local_classes.
  2.  
  3. CLASS parent DEFINITION.
  4.   PUBLIC SECTION.
  5.     METHODS
  6.       : constructor
  7.       , show
  8.       .
  9.     PROTECTED SECTION.
  10.     DATA
  11.           : mt_chars TYPE TABLE OF flag
  12.           .
  13. ENDCLASS.
  14.  
  15. CLASS parent IMPLEMENTATION.
  16.   METHOD constructor.
  17.     APPEND 'P' to me->mt_chars.
  18.   ENDMETHOD.
  19. *--------------------------------------------------------------------*
  20.   METHOD show.
  21.     LOOP AT me->mt_chars ASSIGNING FIELD-SYMBOL(<ls_char>).
  22.       WRITE : / <ls_char>.
  23.     ENDLOOP.
  24.     ENDMETHOD.
  25. ENDCLASS.
  26.  
  27. CLASS child DEFINITION INHERITING FROM parent.
  28.   PUBLIC SECTION.
  29.     METHODS
  30.       : constructor
  31.       .
  32. ENDCLASS.
  33.  
  34. CLASS child IMPLEMENTATION.
  35.   METHOD constructor.
  36.     SUPer->constructor( ).
  37.     APPEND 'C' to me->mt_chars.
  38.   ENDMETHOD.
  39.  
  40. ENDCLASS.
  41.  
  42.  
  43. START-OF-SELECTION.
  44. DATA(lo) = NEW child( ).
  45. lo->show( ).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement