ABAP Performance: DELETE ADJACENT DUPLICATES

Internal table yapılarında mükerrer kayıtları temizlemenin en sade ve etkili yolu.

ABAP geliştirmelerinde internal table içerisindeki çift (mükerrer) kayıtları temizlemek için DELETE ADJACENT DUPLICATES komutunu kullanırız. Ancak bu komutun sorunsuz çalışması için hayati bir kural vardır: Tablo, karşılaştırma yapılacak alanlara göre önceden mutlaka sıralanmış (SORT edilmiş) olmalıdır.

Sistem, tablodaki verileri yukarıdan aşağıya doğru kontrol ederken sadece birbirinin hemen peşi sıra gelen (ardışık) satırları mükerrer olarak algılar ve siler. Eğer sıralama yapmazsanız, tablo içinde farklı yerlerde bulunan aynı kayıtlar silinmeden kalacaktır.

Bilmeniz Gereken 3 Temel Kural

Önce SORT: Komuttan hemen önce hedef alanlara göre mutlaka SORT atılmalıdır.
İlk Kayıt Korunur: Sistem mükerrer olan satırları silerken her zaman ilk karşılaştığı satırı tutar, arkasından gelen kopyaları siler.
Hashed Table Kısıtlaması: Bu komut ardışıklık mantığıyla çalıştığı için benzersiz anahtar yapısına sahip HASHED TABLE türlerinde kullanılamaz.

Executable ABAP Code Example

Aşağıdaki örnek programı doğrudan SE38 editörünüze yapıştırıp F8 (Execute) ile çalıştırarak çıktıyı test edebilirsiniz. Senaryomuzda, sipariş numarası (vbeln) ve müşteri (kunnr) alanları aynı olan mükerrer kayıtları temizliyoruz:

REPORT zdemo_delete_adjacent.

TYPES: BEGIN OF ty_header,
         vbeln   TYPE vbeln_va,
         kunnr   TYPE kunnr,
         vbelf_b TYPE vbeln_vf,
       END OF ty_header.

DATA: lt_header TYPE STANDARD TABLE OF ty_header.

* Step 1: Populating mock data (Row 1 and Row 3 are duplicates based on VBELN & KUNNR)
lt_header = VALUE #( ( vbeln = '0010000001' kunnr = 'DE-100' vbelf_b = '200' )
                                  ( vbeln = '0010000002' kunnr = 'TR-200' vbelf_b = '400' )
                                  ( vbeln = '0010000001' kunnr = 'DE-100' vbelf_b = '600' ) " Duplicate record
                                  ).

* Step 2: Mandatory sorting by comparison keys to bring duplicates together
SORT lt_header BY vbeln ASCENDING 
                               kunnr ASCENDING.

* Step 3: Delete adjacent duplicates comparing specific business keys
DELETE ADJACENT DUPLICATES FROM lt_header COMPARING vbeln kunnr.

* Step 4: Displaying the clean output
cl_demo_output=>display( lt_header ).

Veri Değişim Simülasyonu (Arka Planda Ne Olduğu)

Kod çalıştırıldığında, lt_header tablosunun bellek üzerindeki birebir değişimi ve satırların durumu şu şekilde gerçekleşir:

1. AŞAMA: Ham Veri (SORT Öncesi)

VBELN	KUNNR	VBELF_B
0010000001	DE-100	200
0010000002	TR-200	400
0010000001	DE-100	600

2. AŞAMA: SORT Sonrası

VBELN	KUNNR	VBELF_B
0010000001	DE-100	200
0010000001	DE-100	600
0010000002	TR-200	400

3. AŞAMA: DELETE Sonrası Çıktı

VBELN	KUNNR	VBELF_B
0010000001	DE-100	200
~~0010000001~~	~~DE-100~~	~~600~~
0010000002	TR-200	400

Kütüphanedeki Yeni Kodları Kaçırmayın!

Haftalık olarak güncellenen kurumsal ABAP bileşenlerinden, performans ipuçlarından ve mimari tasarımlardan anında haberdar olmak için e-bültene katılın.