Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *&---------------------------------------------------------------------*
- *& 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement