// Tworzenie typów zmiennych
TYPES: BEGIN OF student,
    imie TYPE C,
    naz TYPE C,
    wiek TYPE N,
END OF student.

// Tworzenie tabeli oraz zmiennej pomocniczej
DATA student TYPE OF student2.
DATA tabela TYPE TABLE OF student2.

// Dodawanie wartości do zmienych
student2-imie = 'Maciek'.
student2-naz = 'Lech'.
student2-wiek = 21.

// Umieszczanie wartości w tabeli
INSERT student2 INTO TABLE tabela.

// Pętla wyświetlająca wszystkie wartości w tabeli wewnętrznej
LOOP AT tabela IN TO student2.
    WRITE:/ student-imie, student-naz, student-wiek.
ENDLOOP.

-----------------------------------------------

// Definiowanie klasy student z podstawowymi zmiennymi
CLASS student DEFINITION.
    PUBLIC SECTION.
        METHODS:
            _Imie IMPORTING imie TYPE C.
            _Nazwisko IMPORTING nazwisko TYPE C.
ENDCLASS.

// Implementacja podstawowych metod wyświetlających imię oraz nazwisko
// Implementujemy tlko tutaj imię oraz nazwisko, aby w późniejszym czasie móc je dziedziczyć
CLASS student IMPLEMENTATION.
    METHOD _Imie.
        WRITE:/ 'Imie: ', imie.
    ENDMETHOD.
    METHOD _Nazwisko.
        WRITE:/ 'Nazwisko: ', nazwisko.
    ENDMETHOD.
ENDCLASS.

// Tworzymy kolejną klase, która będzie dziedziczyć po klasie student
CLASS studentUZ DEFINITION INHERITING FROM student.
    PUBLIC SECTION.
        // Ustawiamy w niej metodę oraz nową zmienną pomocniczą, którą później będziemy mogli wywołać
        METHODS: UstawWiek IMPORTING wiek TYPE C.
ENDCLASS.

// Implementujemy również podstawową metodę wyświetlającą
CLASS studentUZ IMPLEMENTATION.
    METHOD UstawWiek.
        WRITE:/ 'Wiek: ', wiek.
    ENDMETHOD.
ENDCLASS.

// Musi się od tego zaczynać, ponieważ informujemy iż będziemy operować na danej sekcji w metodach
START OF SELECTION.
// Tworzymy nowe parametry, którym przypiszemy odpowiednie zmienne z metod
PARAMETERS: im TYPE C, nazw TYPE C, wie TYPE N.
// Tworzymy nowy obiekt, który będzie operować na dziedziczeniu i pobieraniu wszystkich wartości
DATA Objekt TYPE REF TO studentUZ.

// Tworzymy owy obiekt
CREATE OBJECT Objekt.

// Wywołujemy metody oraz przypisujemy im przez import odpowiednie zmienne z nowych parametrów
CALL METHOD Objekt->_Imie EXPORTING imie = im.
CALL METHOD Objekt->_Nazwisko EXPORTING nazwisko = Nazw.
CALL METHOD Objekt->UstawWiek EXPORTING wiek = wie.