Kullanım amaçlarına bakacak olursak, program içinde kişiselleştirilmiş veri tiplerine ihtiyaç duyduğumuzda her seferinde kod bloğu ile tanımlamamız gerekiyor. Ancak bunun yerine method oluşturma mantığı ile paralel olan TYPE-POOL özelliği ile tek bir seferde oluşturduğumuz global bir tipi herhangi bir program içine referans göstererek kullanabiliriz.
Normalde veri tipi oluşturmak için yazılan kod bloğu;
Her sefer bu şekilde yazmak yerine SE38 işlem kodunu çalıştırıp TYPE_POOL yaratabiliriz.
Ztax tip grubun içine iki tane tip oluşturdum. Bunları örnek olarak yazacağım program içinde referans ettim.
REPORT ZCIHANSTAJPROGPOOL.
type-pools ztax.
parameters gv_vergitip type c .
data gv_vergioran type p decimals 2.
gv_vergioran = ztax_vergiorani.
if gv_vergitip = ‘0071’.
write: ‘PETROl’, gv_vergioran.
elseif gv_vergitip = ‘0073’.
write: ‘İÇECEK’,gv_vergioran.
elseif gv_vergitip = ‘0074’.
write: ‘TUKETIM’,gv_vergioran.
elseif gv_vergitip = ‘0067’.
write: ‘IHTAR BEYAN’.
else.
write: ‘Giris Yok’.
endif.
Cihan Bozkurt 