RE: RPG400-L Digest, Vol 13, Issue 127

Kevin,

Thanks, Kevin. You are correct and I am embarrassed. Such a simple thing and I didn't catch it. Thanks, again.

Thanks,

Marvin

------------------------------

message: 2
date: Fri, 21 Mar 2014 10:41:32 -0500
from: "Kevin Bucknum" <Kevin@xxxxxxxxxxxxxxxxxxx>
subject: RE: Embedded SQL in RPGLE

Closing the cursor you open over the prepared statement should release
it. Do you have some code (or pseudo code)?

From one of my quick and dirty reporting program over multiple libraries

where I prepare a new query for each library.

exec sql prepare badqry from :@Sql;
exec sql Declare BadCsr scroll cursor for BadQry;
exec sql Open BadCsr;
exec sql Fetch Next from BadCsr into :@Mhexds;
If Sqlcod = 0;
Dow Sqlcod = 0;
Except #Bad;
exec sql Fetch Next from BadCsr into :@Mhexds;
Leave;
EndDo;
EndIf;
exec sql Close BadCsr;

Notice: This e-mail transmission may contain information that is proprietary, privileged and/or confidential and is intended exclusively for the person(s) to whom it is addressed. This message may also contain Protected Health Information (PHI) and must be treated confidentially and handled in accordance with HIPAA and other federal and state privacy laws. Any use, copying, retention or disclosure by any person other than the intended recipient or the intended recipient's designees is strictly prohibited. If you are not the intended recipient or their designee, please notify the sender immediately and delete this e-mail (and any accompanying attachments).