# Alle dbf-Relationen in die Datenbank alles.rdb schreiben
AZUR ()
fl := FileList ("*.dbf")
db := NewDatenbank ()
FORALL s IN fl
s2 := s - ".dbf"
R := db.AddRel (R)
ENDFOR
db.DBWrite("alles")
END
# Alle Relationen der Datenbank alles.rdb als dbf-Relation extrahieren
AZUR ()
db := DBRead ("alles")
FORALL R IN db
R.WriteDBF (R.Name())
ENDFOR
END
toposoft GmbH 1. Oktober 2012