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.