Re: SQL0805 error

What release are you on? Exec sql went free format also. What's so ugly
about this?
Dow FetchCursor();
// putting the fetchcursor on the do loop allows the user of
// iter, and thus iter will not perform an infinite loop
// and no priming fetch, etc
// Put your normal processing here...
EndDo;

...
/eject
P FetchCursor B
D FetchCursor PI like(ReturnVar)
D ReturnVar s n
/free
EXEC SQL
Fetch C1 into :mykey, :myChar;
Select;
When sqlstt='00000';
// row was received, normal
exec sql update rob/a1sqlf set mykey=mykey*1
where current of C1;
ReturnVar=*on;
When sqlstt='02000';
// same as %eof, sooner or later this is normal
ReturnVar=*off;
Other;
// alert the troops!
ReturnVar=*off;
EndSl;
return ReturnVar;
/end-free
P FetchCursor E


Rob Berendt