Feldgruppe durchsuchen FREE

[B.Hauser]

Wenn Du %LookUp oder SortA verwenden willst, muss die Datenstruktur anders definiert werden:

D MyDS            DS                  Qualified                   
D  r_Bediener                         Dim(999)                    
D    Bediener                   10A  Overlay(r_Bediener)                             
D    Uhrzeit                      T  Overlay(r_Bediener: *Next)                           
 /Free                                                            
   If %LookUp(NxtBediener: MyDS.Bediener) > *Zeros;               
   MyPos = %LookUp(NxtBediener: MyDS.Bediener);                   
   If MyPos > *Zeros;                                             
      MyDS.Bediener(MyPos) = NxtBediener;                         
      MyDS.UhrZeit(MyPos)  = %Time();                             
   EndIf; 

Birgitta

[prsbrc]

Vielen, vielen herzlichen dank!
Werd mein Array gleich so anpassen.

Lg
Christian