DosError 2 ???

[AUGE_OHR]

hi,

ich bekomme das Beispiel aus dem Help File nicht zum laufen ?
wieso gibt er nicht den "gewünschten" DosError 2 raus ?

Code: Alles auswählen

PROCEDURE Main 
      LOCAL oError 
      LOCAL bErrorBlock := ErrorBlock( {|e| Break(e) } ) 

      BEGIN SEQUENCE 
         DosError(55)          // Aktuellen Fehlercode bestimmen 
         ? DosError()          // Ergebnis: 55 
         USE abcdefgh NEW      // Laufzeitfehler erzeugen 
 
      RECOVER USING oError 
         ? DosError()          // Ergebnis: 2 
         // Bedeutet: Datei nicht gefunden 
         IF DosError() == 2 
            ? "Die Datei", oError:Filename, "existiert nicht!" 
         ENDIF 
      END SEQUENCE 
      ErrorBlock(bErrorBlock) 

   RETURN 

Win XP, v1.9.331+patches.

bekommt jemand das Ergebniss "2" ???

[Martin Altmann]

Hallo Jimmy,
das ist schon seit langem so - ich glaube, seit 1.7 oder noch früher?

Viele Grüße,
Martin

[AUGE_OHR]

hi

das ist schon seit langem so - ich glaube, seit 1.7 oder noch früher?

also in der PDR finde ich nur (!!!) 4581 für "DosError" ...

warum ich darauf komme ? Naja ich hab da so eine Fehlermeldung ...

Code: Alles auswählen

if file(cfile)
...
  use (cfile)
  if neterr()

"angeblich" knallt es beim USE obwohl ich vorher per FILE() geprüft habe
und er gar nicht bis zum NETERR() kommt.

Ich habe dann angefangen ErrorBlock einzubauen und ihm während ich
im Debugger war die "cfile weg-gelöscht" um einen Fehler zu provozieren.

Leider gibt er mir kein DosError 2 (file not found) ... dafür aber 32 wenn
ich die "woandes die DBF Exclusiv" geöffnet habe.

Da es "nur" bei einer Workstation passiert ist und nur 1x an dem Tag
gehe ich davon aus das mit "der" Workstation (Hardware) was nicht
stimmt ... also mal wieder die Netzwerkkarte / Kabel etc ...

Auch der "Grund" ist "mir" klar : die PCs stehen auf so "schicken"
Ständern mit Rollen darunter. Das sollte nun beim Staubsaugen "helfen"
indem man die PCs "wegschieben" kann um mit dem Staubsauger unter
den PC zu kommen ... und immer druff ... schieb ...

Ein "rausgerissenes" Netzwerk Kabel kann man ja noch sehen, aber ich
hab es auch schon gehabt das die (externe) Netzwerkkarte halb aus dem
Slot "gerissen" wurde was man von aussen nicht sehen konnte.

trotzdem "nervt" es schon wieder wenn ein Alaska Help "Sample" nicht
läuft ... man lernt soviel dabei ...)