Feldgruppe durchsuchen FREE

[prsbrc]

Schönen Vormittag,

ich habe hier ein "qualified DS" - Array und in diesem speichere ich mir dirty die Bediener ab welche ich bereits im RPGLE verarbeitet habe...

Und mittels diesem Array möchte ich schauen ob ich einen Bediener bereits bearbeitet habe...

Ich habs mit %lookup versucht aber irgendwie bekomme ich egal was ich versuche immer die selben Compilierungsfehler:

*RNF0571 20      1 Der zweite Parameter für %LOOKUPxx ist ungültig.             
*RNF5343 30      1 Feldgruppe hat zu viele übergangene Indizes; die Bestimmung ...

Das spektakuläre Array schaut so aus:

d r_bediener      ds                  qualified dim(999)
d   bediener                     1a                     
d   uhrzeit                       t

hat jemand evntl ein Beispiel wo ich das abkupfern könnte?

Vielen Dank im Voraus!

Lg
Christian

[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