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

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

RETURN