/* $VER: Finde_MaxID.adm 1.1 (19.2.96)

   Copyright 1994  Daniel Wicke, wicke@wpts0.physik.uni-wuppertal.de

   Bestimmt die größte vorhandene ID in der Adreßdatei.
   Für ADM.

      1.1 [jan] (19.2.96)  - Fehlermeldungen konkretisiert

*/

OPTIONS RESULTS

say "Durchsuche die Liste..."

MaxID=0
ACTIVATEFIRST

DO FOREVER
   GETADDRESS Adresse
   if RESULT < 0 then do
      say "GETADDRESS fehlgeschlagen: Fehler" RESULT
      leave
   end
   /*say Adresse.lastname Adresse.id Adresse.flags*/
   IF Adresse.id>MaxID THEN
      MaxID=Adresse.id

   ACTIVATENEXT
   if RESULT=-1 then
      leave
END

SAY "Größte Mitgliedsnummer: " MaxID