Alanlar ve Hesaplamalar İçin Örnek Kod

ABAP ile ilgili yayınlar birbirlerini takip eden konular içerir. Tüm ABAP yayınlarının listesine ulaşmak için  tıklayınız . Aşağıdaki ko...

ABAP ile ilgili yayınlar birbirlerini takip eden konular içerir. Tüm ABAP yayınlarının listesine ulaşmak için tıklayınız.

Aşağıdaki kodda bazı basit aritmetik işlemler gösterilmektedir:

[1  *&--------------------------------------------------------* 2  *& Report  Z_BASIC_ARITHMETICS 3  *& 4  *&--------------------------------------------------------* 5  *& 6  *& 7  *&--------------------------------------------------------* 8 9  REPORT  Z_BASIC_ARITHMETICS. 10 11 * Define fields 12 DATA number01 TYPE p DECIMALS 2 VALUE '4.56'. 13 DATA number02 LIKE number01 VALUE '5.67'. 14 DATA result_addition LIKE number01. 15 DATA result_subtraction LIKE number01. 16 DATA result_multiplication LIKE number01. 17 DATA result_division_exact LIKE number01. 18 DATA result_division_integer LIKE number01. 19 DATA result_division_rest LIKE number01. 20 21 * Processing 22 number01 = number01 + 1. 23 number02 = number01 + 2. 24 result_addition = number01 + number02. 25 result_subtraction = number01 - number02. 26 result_multiplication = number01 * number02. 27 result_division_exact = number02 / number01. 28 result_division_integer = number02 DIV number01. 29 result_division_rest = number02 MOD number01. 30 31 * Output 32 WRITE: / 'number01', number01, 33       / 'number02', number02, 34       / 'result_addition:', result_addition, 35       / 'result_subtraction:',result_subtraction, 36       / 'result_multiplication:',result_multiplication, 37       / 'result_division_exact:',result_division_exact, 38       / 'result_division_integer:',result_division_, 39       / 'result_division_rest:',result_division_rest. ]

ABAP Kodu: Z_BASIC_ARITHMETICS Raporu

Kaynak Kod İle İlgili Notlar

1-8. Satırlar

Bu satırlar otomatik olarak sistem tarafından oluşturulur.

11. Satır

Kaynak kodu, okunabilirliği artırmak için bölümlere ayrılmıştır. Kod 4.1’de, bu bölümler üç açıklama satırı kullanılarak oluşturulur: Alanların bildirimi (satır 11-19), işlem (satır 21-29) ve çıktı (satır 31-39).

12. Satır

NUMBER01 değişkeni iki ondalık basamak içeren bir ondalıklı sayı olarak deklare edilir. Başlangıç değeri olarak 4.56 atanır.

13. Satır

NUMBER02 değişkenine başlangıç değeri olarak 5.67 ve NUMBER01 ile aynı nitelikler atanır.

14-19. Satırlar

Sonuç alanları deklare edilir ve her sonuç için ayrı bir alan yaratılır. Tabi ki, tek bir RESULT alanı oluşturmak ve daha sonra tekrar tekrar onun değerinin üzerine yazmak ta mümkündür, ancak daha sonraki bir aşamada içerik veya bir alanı yeniden kullanmak isteyebilirsiniz. Buna ek olarak, farklı hesaplama sonuçlarının çıktılarını hemen görmek isteyebilirsiniz.

• [message]
• Değişken Kullanımında Cömert Olun
• Mevcut bellek ve donanım artık değişkenler konusunda tutumlu olmak için bir neden değildir, çünkü okunabilirlik ve şeffaflık çok daha önemli kalite kriterleridir. Eğer kaliteyi artırabiliyorsanız değişkenlerin kullanımı için cömert olmayı göze almalısınız.

21. Satır

İşlem bölümü bu satırda başlar.

22. Satır

NUMBER01 alanının değeri 1 artar. Bu ifadeden önce, içerik 4.56 idi; sonra 5.56 olur.

23. Satır

NUMBER02 alanına NUMBER01 ve 2 sayısının toplanması sonucu elde edilen içerik atanır. Daha önce, NUMBER02 içeriği 5.56 idi; şimdi 7.56 olur.

24. Satır

RESULT_ADDITION alanına NUMBER01 artı NUMBER02 işleminin sonucunu atanır. (Bu, 5.56 + 7.56 dır ve 13.12'ye eşittir)

25. Satır

NUMBER01 ve NUMBER02'nin çıkarma sonucu negatif 2 sayısıdır. Bu sayı RESULT_SUBTRACTION sonuç alanında 2.00- değeri ile temsil edilmektedir. (Sayının eksi işaretinden önce geldiği notasyonu kullanıyoruz çünkü ABAP Debugger ve liste ekranlarının her ikisinde de sistem negatif sayıları bu şekilde gösterir.)

26. Satır

NUMBER01 değeri şimdi 5.56 ve NUMBER02 değeri 7.56 olduğundan, bu iki değerin çarpılması ve çıkan rakamın iki ondalık basamağa yuvarlanması sonucu 42.03 olur.

27. Satır

7.56'nın 5.56'ya bölünmesi ve çıkan rakamın yuvarlanması sonucu 1.36 olur. Aynı zamanda, bu RESULT_DIVISION_EXACT alanının yeni içeriğidir.

28. Satır

Tam sayılardan oluşan bölme işleminin sonucu 1.00 olur. Biçimlendirme nedeniyle, aslında gereksiz olan ondalık basamak buraya dahil edilmiştir.

29. Satır

Tam sayılardan oluşan bölme işleminin kalanı 2.00 olur. Bu değer RESULT_DIVISION_REST alanına kopyalanır.

31. Satır

Çıktıları hazırlayacağımız bölüm bu satırda başlar.

32-39. Satırlar

WRITE ifadesi yeni bir satırın 1. sütununda sabit metin ve ardından bir boşluk karakteri ile değişkenin içeriğini çıktı olarak sunar. WRITE ifadesi zincir ifade (chain statement) olarak yazılmıştır ve aslında 16 ayrı WRITE ifadesi içerir. WRITE komutundan sonra iki nokta üst üste gelir ve her bir ifade virgül ile ayrılır. Zincir ifadenin sadece son ifadesi nokta ile sona erer.

Raporu tarif edildiği gibi düzenleyip, kaydedip, kontrolleri yapıp, aktive ettikten sonra çalıştırabilirsiniz. Liste ekranı Şekil 1'de gösterildiği gibi görünmelidir.

Şekil 1. Temel Aritmetik İşlemler İçin Program Çıktısı

Her şey yapı ve mantık olarak doğrudur ancak çok estetik değildir. Her satırın başındaki sabit metnin uzunluğu farklı olduğu için, çıktı değişkenleri farklı sütunlarda bulunmaktadır. Bu nedenle, son aşamada sütun dağılımını değiştirmekle ilgileneceğiz.

Geliştirilmiş Liste Formatı

Bu küçük sorunu WRITE komutuna ilgili değişkenin çıktısını nerede (yani, satırın hangi konumunda) sunması gerektiğini söyleyerek çözebilirsiniz. Eğer değişkenin çıktısını 30. sütundan itibaren istiyorsanız, sayfanın başındaki kod'da satır 32'yi aşağıdaki şekilde değiştirmeniz gerekir:

WRITE: / 'number01', 30 number01.

Yapmanız gereken tek şey yazdırılan satırın sütun konumunu söz konusu değişkenin hemen önünde belirtmektir. Sütun konumu ve değişken arasında en az bir boş karakter olması gerektiğini unutmayın.

• [message]
• Karmaşık Listeler
• Diğer satıları da aynı şekilde her ilgili değişkenin önüne çıktı pozisyonunun ekleyerek düzenleyebilirsiniz. Çıktı listeleri kısaysa ve çok karmaşık değilse, bu işlem kullanışlıdır. Ancak, liste daha karmaşık ise başka bir yöntem deneyebilirsiniz: Veri bildirimlerinde LIKE ile yapılan referans bildirimi hatırlayın.

Çıktı konumu ile ilgili başka bir nesneye başvurabilirsiniz. Bunun için sadece diğer değişkenin pozisyonunu refere edersiniz. Eğer öncü değişkenin konumu değişirse, sonrasında onu refere eden tüm diğer değişkenler buna göre değişecektir. WRITE komutu ile biçimlendirme seçeneği olan UNDER kullanmanız gerekir. 33-39. satırları şu şekilde düzenleyiniz:

33 / 'number02', number02 UNDER number01,

34 / 'result_addition:', result_addition UNDER number01,

35 / 'result_subtraction:', result_subtraction UNDER number01,

36 / 'result_multiplication:', result_multiplication UNDER number01,

37 / 'result_division_exact:', result_division_exact UNDER number01,

38 / 'result_division_integer:', result_division_integer UNDER number01,

39 / 'result_division_rest:', result_division_rest UNDER number01.

Raporu kaydedip, kontrolleri yapıp, aktive ettikten sonra çalıştırabilirsiniz. Liste ekranı Şekil 2'de gösterildiği gibi görünmelidir.

Şekil 2. Sütun Halinde Çıktı Görünümü