home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / applications / databases / databasepro / arexx / autosave.rexx next >
OS/2 REXX Batch file  |  1995-07-10  |  1KB  |  36 lines
  1. /****************************************************************************
  2.  * Rexx-Skript für eine Autosave-Funktion                    *
  3.  * Es werden alle geladenden Dateien unter ihrem Namen mit der Endung "_X"  *
  4.  * und der Base-Nummer speichert                        *
  5.  *                                        *
  6.  * 04.01.94, Jörg Richter                            *
  7.  ****************************************************************************/
  8.  
  9. OPTIONS RESULTS        /* Rückgabewerte sollen in RC gespeichert werden */
  10.  
  11. DO FOREVER
  12.   ADDRESS COMMAND                  /* Auf Kommando-Port schalten */
  13.   'Wait min=20'                                   /* Z.B. 20 Minuten warten */
  14.  
  15.   'WaitForPort DATABASE'                                /* Läuft DataBase ? */
  16.   IF RC ~= 0 THEN Break           /* Wenn nein, Rexx-Skript beenden */
  17.  
  18.   ADDRESS DATABASE                  /* Auf DataBase-Port schalten */
  19.  
  20.   CurrentBase                /* Nummer der aktuellen Datei (Base) in */
  21.   oldbase = RC                /* der Variablen 'oldbase' speichern    */
  22.   i = 1
  23.   DO WHILE i < 6             /* Alle Bases (1 bis 5) durchgehen */
  24.     Base i                       /* Aktuelle Datei setzen */
  25.     filename = result             /* Dateiname der aktuellen Datei holen */
  26.     pos = LastPos('.db',filename)               /* Endung ".db" vorhanden ? */
  27.     IF pos > 0 THEN                        /* Wenn ja: */
  28.       filename = DelStr(filename,pos)           /* Endung ".db" abschneiden */
  29.     Save filename || "_X" || i || ".db" /* Datei als "name_Xi.db" speichern */
  30.     i = i + 1
  31.   END
  32.   Base oldbase                 /* Zurück zur ursprünglichen Datei */
  33.  
  34. END
  35.  
  36.