*&---------------------------------------------------------------------*
 *& Report  ZClass_2                                        *
 *&                                                                     *
 *&---------------------------------------------------------------------*
 
 report  ZClass_2.
 
 class lcl_isim_yazdir definition.                 "Sınıfın Tanımlanması
   public section.                                 "Kullanacağımız methodları tanımlıyoruz.
     methods : constructor                         "Nesne Method Tanımlamaları
     "Sınıf çağrıldığında ilk çalışan Constructor Methodu
                 importing iv_isim    type string
                           iv_soyisim type string,
                           yaz.                    "yazma methodu
 
 class-methods tarih_zaman_yaz.                    "Class Method tanımlaması
 
      private section.                             "methodları yazarken kullanacağımız değişkenler.
      data my_isim type string.
      data my_soyisim type string.
 endclass.

 class lcl_isim_yazdir implementation.             "Methodların yazılması
   method constructor.                             "İlk çalışan method
     my_isim = iv_isim.
     my_soyisim = iv_soyisim.
   endmethod.
   method yaz.
     write:/ 'İsim : ' , my_isim.
     write:/ 'Soyisim : ', my_soyisim.
     skip 1.   
     uline. 
   endmethod.
   method tarih_zaman_yaz.
     skip 2.
     write:/ 'Tarih : ', sy-datum. "Günün tarihini veren değişken
     write:/ 'Saat : ', sy-uzeit.  "O an ki saati veren değişken
   endmethod.
 
 endclass. "Class Sonlandırdık
 
 
 
 "Programı yazmaya başlayalım.
 
 data : go_nesne_1 type ref to lcl_isim_yazdir,
        go_nesne_2 type ref to lcl_isim_yazdir.
 
 
 start-of-selection.
 
 create object go_nesne_1
           exporting iv_isim       = 'Abdullah'
                     iv_soyisim    = 'ÇBİLEK'.
 
 go_nesne_1->yaz( ).               "Yaz methodunu çağırdık
 
 create object go_nesne_2
           exporting iv_isim       = 'Mert'
                     iv_soyisim    = 'Dürümbül'.
 
 go_nesne_2->yaz( ).               "Yaz methodunu çağırdık
 
 "Eğer class methoda ulaşmak istemiyorsak. class adı => method adı( ).
 lcl_isim_yazdir=>tarih_zaman_yaz( ). 
 
 ***********************************************************
Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com
SAP ve ABAP konusunda tüm sorun ve sorularınızı gönderebilirsiniz.