Kategori: SAP / ABAP

Alt programlar, program içinde kullanılacak işlemleri defalarca yazmanın önüne geçmek için kullanılır. Değişik parametrelerle istendiği kadar kullanılabilir. Alt programın içinde parametre tanımlanmışsa bunlara formal parametreler denir. Yinelemeli olarak da kullanılabilir. Aşağıda bir alt program kullanımının örneği verilmiştir.

tecrube_hesapla adlı form, doğum yılı 1985’ten büyük kayıtları yazdırırken, tablo_doldur formu oyuncu_kaydı tablosunu dolduruyor.

Created with colorer-take5 library. Type 'abap4'

TYPES: yil TYPE n LENGTH 4,
tecrube TYPE c,
adsoyad TYPE c LENGTH 15.

TYPES: BEGIN OF oyuncu,
  ad TYPE adsoyad,
  soyad TYPE adsoyad,
  dogum_yili TYPE yil,
  o_tecrube TYPE tecrube,
  END OF oyuncu.

data: t_oyuncu TYPE STANDARD TABLE OF oyuncu.

DATA: oyuncu_kaydi TyPE oyuncu,
      oyuncu_kaydi_tablosu like t_oyuncu.

PERFORM tablo_doldur USING 'Isil' 'Alben' '1986' CHANGING oyuncu_kaydi_tablosu. 
PERFORM tablo_doldur USING 'Nevriye' 'Yilmaz' '1980' CHANGING oyuncu_kaydi_tablosu. 
PERFORM tablo_doldur USING 'Tugba' 'Palazoglu' '1980' CHANGING oyuncu_kaydi_tablosu.
PERFORM tablo_doldur USING 'Yasemin' 'Horasan' '1983' CHANGING oyuncu_kaydi_tablosu.
PERFORM tablo_doldur USING 'Nilay' 'Yigit' '1979' CHANGING oyuncu_kaydi_tablosu.
 LOOP AT oyuncu_kaydi_tablosu INTO oyuncu_kaydi.
 IF sy-tabix = 1. WRITE :/5 'Ad', 15 'Soyad' , 40 'Dogum Yili'. 
 ULINE. 
 ENDIF. 
 PERFORM tecrube_hesapla USING oyuncu_kaydi-dogum_yili 
 CHANGING oyuncu_kaydi-o_tecrube. 
 MODIFY oyuncu_kaydi_tablosu from oyuncu_kaydi TRANSPORTING o_tecrube.
 CLEAR oyuncu_kaydi.
 ENDLOOP.

LOOP AT oyuncu_kaydi_tablosu INTO oyuncu_kaydi where o_tecrube = 't'.
  WRITE :/ oyuncu_kaydi-ad UNDER 'Ad',
  oyuncu_kaydi-soyad UNDER 'Soyad',
  oyuncu_kaydi-dogum_yili UNDER 'Dogum Yili'.

ENDLOOP.
 FORM tecrube_hesapla USING p_dogum_yili TYPE yil
 CHANGING p_tecrube TYPE tecrube.
 IF p_dogum_yili <= 1988. p_tecrube = 't'.
 ELSE. p_tecrube = 'g'. 
 ENDIF.
 ENDFORM.
 FORM tablo_doldur USING p_ad p_soyad p_dogum_yili
 CHANGING p_oyuncu_tablosu like t_oyuncu.
 DATA: oyuncu_kaydi_form TYPE oyuncu.
 oyuncu_kaydi_form-ad = p_ad.
 oyuncu_kaydi_form-soyad = p_soyad.
 oyuncu_kaydi_form-dogum_yili = p_dogum_yili.
 APPEND oyuncu_kaydi_form to p_oyuncu_tablosu.
 ENDFORM.