home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / business / muivideo / arexx / cassette_000.rexx next >
Encoding:
OS/2 REXX Batch file  |  1995-11-26  |  599 b   |  35 lines
  1. /*
  2.  * cassette_000.rexx
  3.  *
  4.  * Ändert die Datenbasis so, daß alle
  5.  * Cassettennummern dreistellig sind
  6.  *
  7.  * Erstellt von Christoph Kirsch
  8.  *
  9.  * $VER: cassette_000.rexx V1.0 (26.11.1995)
  10.  *
  11.  */
  12.  
  13. address MUIVIDEO.1
  14. options results
  15.  
  16. sleep                     /* Eingaben unterbinden */
  17.  
  18. count                     /* Anzahl der Datensätze */
  19. x = result
  20.  
  21. do i=0 to x-1             /* bei allen Datensätzen ... */
  22.     goto i
  23.     get CASSETTE
  24.     c = result
  25.     l = length(c)
  26.     if l<3 then do
  27.         cas = overlay(c,'000',4-l)
  28.         set CASSETTE cas
  29.         change
  30.         end
  31. end
  32.  
  33. wake                      /* wieder Eingaben erlauben */
  34.  
  35.