SQL Fetch

[B.Hauser]

Gerade deshalb mache ich das meist so:

dow 1=1;
exec sql fetch ...;
if SQLCOD <> *zero;
leave;
endif;
:
enddo;

Da passiert sowas dann gar nicht.

Ich würde allerdings nicht auf <> 0 abfragen weil:
1. Ein Fehler ausgegeben werden könnte
2. Eine Warnung ausgegeben werden könnte, bei der der Datensatz ausgegeben wird und verarbeitet werden kann.

Besser ist es auf = 100 und < *Zeros abzufragen:

...

  If SQLCOD = 100;
     Leave;
  ElseIf SQLCOD < *Zeros;
    //Fehlerbehandlung
    Iter/Leave - whatever
  EndIf;
  //Verarbeitung

Schöne Grüße von der Common Conference im sonnigen (wenn auch etwas kühlen) Kalifornien.

Birgitta