Re: SQL cursor defined two different ways?

David,

I don't think so...a static DECLARE CURSOR isn't executable, it's compiled.

Could you instead have a single cursor defined as a UNION ALL of the two
SELECT statements?

Probably need an extra variable

exec sql
declare myCursor cursor for
select FIELD2
from FILE1
where FIELD1 = :var1
and :option = 1
UNION ALL
select FIELD2
from FILE1
inner join FILE2
on FILE1.FIELD3 = FILE2.FIELD4
where FIELD5 = var2
and :option = 2;

Otherwise, you could use dynamic SQL.

Charles


Charles


On Wed, Nov 30, 2016 at 9:51 AM, David Gibbs <david@xxxxxxxxxxxx> wrote:

Folks:

I'm wondering if this is possible ... so far the compiler is saying no.

I have a two different queries that return the same type of data. I would
like to be able declare a cursor for the two different queries, conditional
on a parameter, and then just spin through the results.

Here's a mock-up of what I would like to do...

if var1 <> *blank;
exec sql
declare myCursor cursor for
select FIELD2
from FILE1
where FIELD1 = :var1;
else;
exec sql
declare myCursor cursor for
select FIELD2
from FILE1
inner join FILE2
on FILE1.FIELD3 = FILE2.FIELD4
where FIELD5 = var2;
endif;

When I compile, I get a message about a duplicate cursor.

Is there any way to accomplish what I want?

Thanks!

david

--
David Gibbs
midrange.com

* IBM Power Systems Champion

IBM i on Power Systems: For when you can't afford to be out of business!

I'm riding a metric century (100 km / 65 miles) in the American Diabetes
Association's Tour de Cure to raise money for diabetes research, education,
advocacy, and awareness. You can make a tax deductible donation to my ride
by visiting http://lsteml.diabetessucks.net. My goal is $6000 but any
amount is appreciated.

See where I get my donations from ... visit http://lsteml.diabetessucks.ne
t/map for an interactive map (it's a geeky thing).

I may have diabetes, but diabetes doesn't have me!
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.