home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / HF-ADM23.LHA / ADM / ARexx / Ausdruck / MaxID.adm < prev    next >
Encoding:
Text File  |  1995-08-02  |  572 b   |  33 lines
  1. /* $VER: MaxID.adm 1.0 (01.05.94)
  2.  
  3.    Copyright 1994  Daniel Wicke, wicke@wpts0.physik.uni-wuppertal.de
  4.  
  5.    Bestimmt die größte vorhandene ID in der Adreßdatei.
  6.    Für ADM.
  7.  
  8. */
  9. OPTIONS RESULTS
  10.  
  11. say "Durchsuche die Liste..."
  12.  
  13. MaxID=0
  14. ACTIVATEFIRST
  15.  
  16. DO FOREVER
  17.    GETADDRESS Adresse
  18.    if RESULT=-1 then do
  19.       say "GETADDDDDD"
  20.       leave
  21.    end
  22.    /*say Adresse.lastname Adresse.id Adresse.flags*/
  23.    IF Adresse.id>MaxID THEN MaxID=Adresse.id
  24.  
  25.    ACTIVATENEXT
  26.    if RESULT=-1 then do
  27.       say "ACTIVATENEXT"
  28.       leave
  29.    end
  30. END
  31. SAY "Größte Mitgliedsnummer: " MaxID
  32.  
  33.