home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / applications / databases / databasepro / arexx / kopieren.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-10  |  2KB  |  32 lines
  1. /* Übertragen von Daten der aktuellen Datei in die Datei 'Aufträge'       */
  2. /* Dieses ARexx-Script zeigt, wie Daten einer Maske in eine andere        */
  3. /* Maske kopiert werden.                                                  */
  4.  
  5. Options results
  6.  
  7. ADDRESS DataBase                 /* auf Adressport DataBase umschalten    */
  8.  
  9. GetData $F1                      /* Inhalt aus Feld 1 lesen               */
  10. kdn = RESULT                     /* und in der Variablen kdn speichern    */
  11. GetData $F4                      /* Inhalt aus Feld 2 lesen               */
  12. nam = RESULT                     /* und in der Variablen nam speichern    */
  13.  
  14. FindBase 'aufträge.db'           /* gibt die Base-Nr. in 'RC' zurück, in  */
  15. newbase = RC                     /* der die Datei geladen ist.            */
  16.  
  17. IF newbase > 0 THEN              /* Ist die Datei vorhanden, dann         */
  18.   Base newbase                   /* auf die neue Base umschalten          */
  19. ELSE                             /* wenn nicht,                           */
  20.   DO                             /*                                       */
  21.   Base 5                         /* auf Base 5 umschalten                 */
  22.   OPEN "DBFaktura/aufträge.db"   /* Datei aufträge.db laden               */
  23. END
  24.  
  25. RightTotal                       /* Ans Ende der Datei springen           */
  26. Add                              /* neuen Datensatz erzeugen              */
  27. PutData $F1 kdn                  /* den Inhalt kdn in Feld Nr. 1 kopieren */
  28. PutData $F2 nam                  /* den Inhalt nam in Feld Nr. 2 kopieren */
  29.  
  30. ADDRESS                          /* auf den vorherigen Adressport schalten*/
  31.  
  32.