FATS - Fast Access Tree System Inhaltsverzeichnis Programmierschnittstellen Turbo Pascal, Borland Pascal für DOS (Real Mode)

Das nachfolgende Borland Pascal Beispiel demonstriert die Verwendung der von FATS bereitgestellten  Index-Befehle:

(*

   FATS 02.30
   (c) GCS Software, Udo Gertz 1993-1998

   Testprogramm (Turbo Pascal 4-)
 
   Datei KUNDEN.DAT re-indizieren

   19-03-2009 U.Gertz
*) 

program REBLDGER (input, output);


uses Crt,
     FATS_TP;


const

  fn_kund = 'KUNDEN.DAT';


type

  kundenrec = record
      LOESCHKENNZ: char;
      ANREDE: string[5];
      NAME: string[25];
      BRANCHE: string[25];
      STRASSE: string[25];
      PLZ: string[5];
      ORT: string[20];
   end;


var
  hKunden: file of kundenrec;
  kpuffer: kundenrec;
  szCmnd: string;
  szFATSkey: string;
  szRecno: string[8];
  uFATSError: word;
  dwFATSRecno: longint;
  dwRecords: longint;



label exitbuild;


begin

  { -------> Datenbereich für FATS reservieren }

  if not FATSINIT(20000) then exit;



  (*
     -------> Aktivierung des FATS Cachesystems
   
     Standardmäßig ist die Cacheverwaltung ausgeschaltet. Sie können diese
     mit dem Befehl  "Y" Auto Refresh initialisieren.
   
     Mit diesem Befehl können Sie vor einer Reorganisation den FATS-Cache
     mittels "Y\5" oder "Y\106" einschalten, die entsprechende Indexdatei
     erzeugen oder öffnen und dann die Schlüssel einfügen.
     Nach Beenden der Reorganisation stellen Sie den ursprünglichen Zustand
     mit "Y\0", "Y\2" etc. wieder her. Die Operation kann dadurch im
     günstigsten Fall bis zu 30x schneller ablaufen.
   
     Bei der Einstellung "Y\5" werden die Daten nicht sofort nach jedem
     schreibenden Befehl auf die Platte geschrieben, sondern solange in den
     FATS internen Cachepuffern behalten, bis diese überlaufen. Beim ersten
     Schreibzugriff werden jedoch sämtliche zu der jeweiligen Datei gehörende
     Puffer auf die Platte geschrieben, wodurch die Integrität der Indexdatei
     garantiert wird. Das Zurückschreiben der Cachepuffer kann auch jederzeit
     durch den Befehl W (Write Page Map) erreicht werden.
   
     Diese Einstellung bringt im günstigsten Fall eine bis zu 30-fache
     Beschleunigung gegenüber den herkömmlichen Einstellungen ("Y\0" & "Y\2"),
     es muß jedoch selbst dafür gesorgt werden, daß die Indexdatei bei
     Beendigung des Programmes mit dem Befehl Close Indexfile (K) geschlossen
     wird.
   
     Als Äquivalent im Netzwerkbetrieb dient der Befehl "Y\106"
   

  *)  

  szCmnd:='Y\5';
  dwFATSRecno:=FATSCALL(szCmnd, uFATSError, szFATSkey);


  (*
     -------> Datendatei öffnen
  *) 

  assign  (hKunden, fn_kund);
  reset (hKunden);


  (*
     -------> Indexdatei erstellen
  *) 

  szCmnd:='C\KUNDEN.KEY\25\3\A\1';
  dwFATSRecno:=FATSCALL(szCmnd, uFATSError, szFATSkey);


  (*
     ========================================================================
               Indexdatei wiederherstellen
     ========================================================================
  *) 


  dwRecords:=0;

  repeat

    If EOF( hKunden ) Then Begin

      goto exitbuild;
    End;

    seek(hKunden, dwRecords);
    read(hKunden, kpuffer);

    dwRecords:=dwRecords + 1;

    str(dwRecords, szRecno);

    If kpuffer.LOESCHKENNZ = ' ' Then Begin

      (*
          "BK" Build Keys
       
         Diesem Befehl wird die im Befehl Create Indexfile (C)
         angegebene Anzahl Schlüssel im Kommandostring übergeben.
         Die Schlüssel werden in die Indexdatei einsortiert und
         der Satznummer "RecNo" zugeordnet.
       
         Dieser Befehl entspricht dem Befehl Insert Keys (IK), die
         Daten werden jedoch nicht sofort nach dem Befehl auf die
         Platte geschrieben, sondern solange in den FATS internen
         Cachepuffern behalten, bis diese überlaufen.
       
         Der Aufbau des Kommandostrings:
       
           szCmnd = "BK\{RecNo}\{FileNo}\{KeyStr1}[\{KeyStr2}[\{KeyStr3}]]"
       
             RecNo      Datensatznummer
       
             FileNo     Nummer der Indexdatei
       
             KeyStr#    Schlüssel

      *)  

      szCmnd:='BK\' + szRecno + '\1';
      szCmnd:=szCmnd + '\' + kpuffer.NAME;
      szCmnd:=szCmnd + '\' + kpuffer.BRANCHE;
      szCmnd:=szCmnd + '\' + kpuffer.PLZ + kpuffer.ORT;

    End Else Begin

      (*
          "DL" Manipulate Deleted List

      *)  

      szCmnd:='DL\' + szRecno + '\S\1';
    End;

      dwFATSRecno:=FATSCALL(szCmnd, uFATSError, szFATSkey);

  until uFATSError <> 0;

  exitbuild:

  (*
     --------> Indexdatei schließen
  *) 

  szCmnd:='K\1';
  dwFATSRecno:=FATSCALL(szCmnd, uFATSError, szFATSkey);

  close(hKunden);

end.

© 2008  GCS Software, Udo Gertz