Da es den DO *HIVAL nicht mehr gibt, verwende ich grundsätzlich

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

Somit frage ich den SQLCODE nur da ab, wo ich ihn brauche.