home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / ADM144.lha / ADM / ARexx / Join.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-07-17  |  370 b   |  28 lines
  1. /* $VER: JOIN.rexx 1.0 (17.7.94)
  2.  
  3.    Übernimmt Adressen aus ADM.2 (Quelle) in ADM.1 (Ziel)
  4.  
  5.    Lediglich das Erstellungs-/Veränderungsdatum geht verloren.
  6.  
  7.    Geschrieben von Jan Geißler.
  8. */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. ADDRESS ADM.2
  13. ADDRINMEM
  14. num = RESULT
  15. ACTIVATEFIRST
  16.  
  17. DO FOR num
  18.  
  19.    ADDRESS ADM.2
  20.    GETADDRESS ADM
  21.    ACTIVATENEXT
  22.  
  23.    ADDRESS ADM.1
  24.    NEWADDRESS ADM
  25. END
  26.  
  27. SAVE
  28.