Lab4 ABAP

*&---------------------------------------------------------------------*
*& Report ZPGJS_LAB7_4
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZPGJS_LAB7_4.


CLASS student DEFINITION.
  PUBLIC SECTION.
    METHODS: _Imie IMPORTING imie TYPE char15.
  PROTECTED SECTION.
    METHODS: _Nazwisko IMPORTING nazwisko TYPE char25.
  PRIVATE SECTION.
     METHODS: _Pesel IMPORTING     pesel TYPE I.
ENDCLASS.

CLASS student IMPLEMENTATION.
METHOD _Imie.
WRITE:/ 'Imie: ',imie.
ENDMETHOD.
METHOD _Nazwisko.
WRITE:/ 'Nazwisko: ',nazwisko.
ENDMETHOD.
METHOD _Pesel.
WRITE:/ 'Pesel: ',pesel.
ENDMETHOD.
ENDCLASS.

CLASS studentUZ DEFINITION INHERITING FROM student.
  PUBLIC SECTION.
  METHODS: Ustaw_wydzial IMPORTING nazwa_wydzialu TYPE char25.
ENDCLASS.

CLASS studentUZ IMPLEMENTATION.
   METHOD Ustaw_wydzial.
     WRITE:/ 'Wydzial: ',nazwa_wydzialu.
   ENDMETHOD.
ENDCLASS.

CLASS studentInstytut DEFINITION INHERITING FROM studentUZ.
  PUBLIC SECTION.
  METHODS: Ustaw_sale_lab IMPORTING sala_lab TYPE I.
ENDCLASS.

CLASS studentInstytut IMPLEMENTATION.
   METHOD Ustaw_sale_lab.
     WRITE:/ 'Sala: ',sala_lab.
   ENDMETHOD.
ENDCLASS.


START-OF-SELECTION.
PARAMETERS: im TYPE char15, nazWydz TYPE char25, sala TYPE i.
DATA objekt TYPE REF TO studentInstytut.
CREATE OBJECT objekt.
CALL METHOD objekt->_Imie EXPORTING imie = im.
CALL METHOD objekt->Ustaw_wydzial EXPORTING nazwa_wydzialu = nazWydz.
CALL METHOD objekt->Ustaw_sale_lab EXPORTING sala_lab = sala.