[Tustep-Liste] ACCESS READ

[Reeg, Gottfried]

Lieber Thomas,

 vielen Dank für den Vorschlag, den ich dann umsetzte. Ich erinnerte mich dann auch, dass ich von diesem READ/CECK irgendwann einmal gehört hatte.

Trotzdem frage ich mich, ob es nicht sinnvoll sein könnte, daß man diese Fehlerflag auch abfragen könnte? 
Mit ERROR/RESET kann ich es ja zurücksetzen, weshalb kann ich es aber nicht abfragen?

Gruß aus Berlin
Gottfried

-----Ursprüngliche Nachricht-----
Von: tustep-liste-bounces at lists.uni-wuerzburg.de [mailto:tustep-liste-bounces at lists.uni-wuerzburg.de] Im Auftrag von Thomas Kollatz
Gesendet: Samstag, 12. Februar 2011 22:12
An: tustep-liste at itug.de
Betreff: Re: [Tustep-Liste] ACCESS READ

Diskussionsforum Tustep-Liste
Weitere Informationen: www.itug.de
------------------------------------------------------------

Lieber Gottfried, 

dieses Fehlerflag hat mich auch schon mal beschäftigt, gefunden habe ich dann READ/CHECK dass feststellt ob ein Satz vorhanden ist. 
READ/CHECK dB

Nur für TUSTEP-Dateien: Prüft, ob die Texteinheit mit der aktuellen
Satznummer in der TUSTEP-Datei vorhanden ist. Ob die Texteinheit vorhanden
ist, kann mit einer nachfolgenden IF-Anweisung mit der Bedingung EXIST
abgefragt werden.

- EXIST
Bei der vorangehenden READ/CHECK-Anweisung waren entsprechende Daten
vorhanden.
 
Wichtig ist da auch bei UPDATE/STRUCTURES 
denn wenn der Satz noch nicht da ist, 
muss mit 
WRITE db 
geschrieben werden, 
wenn er schon da ist, 
mit 
WRITE/UPDATE db
geändert werden. 

In deinem Fall nun sollte es so funktionieren:

$$ MODE TUSCRIPT

SET satznr=13
ACCESS db: READ/STRUCTURES $datei nr, struktur
  SET nr=satznr
  READ/CHECK db
	IF (exist) THEN
        READ db
        ELSE 
        MODE DATA 
        <div>
        <fieldset><legend>Hinweis</legend>
        Der angefragte Satz mit der Nummer {satnzr} existiert (noch) nicht. 
        </fieldset>
        $$ MODE TUSCRIPT
        ENDIF
ENDACCESS

ein schönes Wochenende wünscht
THOMAS KOLLATZ

drs Thomas Kollatz  - wissenschaftlicher Mitarbeiter / research assistant
* Salomon Ludwig Steinheim-Institut fuer deutsch-juedische Geschichte
  D-47057 Duisburg  Geibelstr. 41 T 0203-370071  F 0203-373380
* CV  <http://www.steinheim-institut.de/wiki/index.php/Mitarbeiter:Thomas_Kollatz>
* Epigraphische Datenbank <http://www.steinheim-institut.de/cgi-bin/epidat>
* TextGrid <http://www.textgrid.de/>
* Rosetta Code <http://rosettacode.org/wiki/Category:TUSCRIPT>

------------------------------------------------------------
Tustep-Liste at itug.de
https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste