SQLRPGLE Problem mit SQL Communication Area

[BenderD]

Ich mache das meist anders:

dow 1=1;
exec sql fetch ...;
if sqlcode <> *zero;
leave;
endif;
// tuwas (Hier kann SQLCOD ruhig verändert werden
sqlcode = *zero;
enddo;

dow liesWas();
machWas();
endDo;

P lieswas b
d result n inz(FALSE)
exec sqll fetch...
if sqlcode = 0;
result = TRUE;
return result;
p lieswas e

Turnschuhprogrammierung (in Memoriam Dirk) ganz ohne leave, iter und rettSQLCODE!

D*B