//PROCEDURE D2001
// D2001.prg  - erzeugt Dateien mit 2001-Inhalt

Use c:\hdbe\best 
copy to c:\hdbe\2001\best for str(auftrnr,6,0)="21"
Use c:\hdbe\vbest
copy to c:\hdbe\2001\vbest for str(auftrnr,6,0)="21"
Use c:\hdbe\vv
copy to c:\hdbe\2001\vv for str(auftrnr,6,0)="21"
Use c:\hdbe\auftr
copy to c:\hdbe\2001\auftr for str(auftrnr,6,0)="21"
Use c:\hdbe\vers
copy to c:\hdbe\2001\vers for str(auftrnr,6,0)="21"
use c:\hdbe\tbest
copy to c:\hdbe\2001\tbest
use c:\hdbe\tvbest
copy to c:\hdbe\2001\tvbest
use c:\hdbe\tvv
copy to c:\hdbe\2001\tvv
use c:\hdbe\tauftr
copy to c:\hdbe\2001\tauftr
use c:\hdbe\tvers
copy to c:\hdbe\2001\tvers
use

RETURN