Ortak Kontrol Durumları / Varying (sap-abap)

 

♦ Ortak Kontrol Durumları  ◊  Varying :

REPORT  ZORNEK8.
 data: ardisik   type i,
       tek       type i,
       cift      type i,
       toplam1   type i,
       toplam2   type i,
       toplam3   type i,
       begin of dizi,
         deger1 type i value 1,
         deger2 type i value 2,
         deger3 type i value 3,
         deger4 type i value 4,
         deger5 type i value 5,
         deger6 type i value 6,
         deger7 type i value 7,
         deger8 type i value 8,
         end of dizi.
 
 do 4 times varying ardisik from dizi-deger1 next dizi-deger2
            varying tek     from dizi-deger1 next dizi-deger3
            varying cift    from dizi-deger2 next dizi-deger4.
      write: / ardisik, tek, cift.
      add: ardisik to toplam1,
           tek     to toplam2,
           cift    to toplam3.
      enddo.
 
 write: / '    +________   +________   +________',
       / toplam1, toplam2, toplam3.