PROCEDURE DATEI
* datei
if substr(schdat,1,1)="1"
   select 1
**   use best alias abest index iauftrnr
   use best index iauftrnr
endif
if substr(schdat,2,1)="1"
   select 2
   use vv index ivvauf
endif
if substr(schdat,3,1)="1"
   select 3
   use auftr index iaufauf
endif
if substr(schdat,4,1)="1"
   select 4
   use arb index iarbauf
endif
if substr(schdat,5,1)="1"
   select 5
   use vers index iverskz
endif
if substr(schdat,6,1)="1"
   select 6
   use art index iart_lei
endif
if substr(schdat,7,1)="1"
   select 7
   use lzu index ilzu
endif
return