PROCEDURE DATEI
* datei
if substr(schdat,1,1)="1"
   select 1
**   use best alias abest index xauftrnr
   use best index xauftrnr, xname
endif
if substr(schdat,2,1)="1"
   select 2
   use vv index xvvauf
endif
if substr(schdat,3,1)="1"
   select 3
   use auftr index xaufauf
endif
if substr(schdat,4,1)="1"
   select 4
   use arb index xarbauf
endif
if substr(schdat,5,1)="1"
   select 5
   use vers index xverskz
endif
if substr(schdat,6,1)="1"
   select 6
   use art index xart_lei
endif
if substr(schdat,7,1)="1"
   select 7
   use lzu index xlzu
endif
return