/*
 * cassette_000.rexx
 *
 * Ändert die Datenbasis so, daß alle
 * Cassettennummern dreistellig sind
 *
 * Erstellt von Christoph Kirsch
 *
 * $VER: cassette_000.rexx V1.0 (26.11.1995)
 *
 */

address MUIVIDEO.1
options results

sleep                     /* Eingaben unterbinden */

count                     /* Anzahl der Datensätze */
x = result

do i=0 to x-1             /* bei allen Datensätzen ... */
	goto i
	get CASSETTE
	c = result
	l = length(c)
	if l<3 then do
		cas = overlay(c,'000',4-l)
		set CASSETTE cas
		change
		end
end

wake                      /* wieder Eingaben erlauben */