Re: SQL cursor defined two different ways?

[Luis Rodriguez <luisro58@xxxxxxxxx>]

I have never tried it but, could you define the cursor using dynamic SQL?

Regards,

Luis

Sent from my Moto G phone. Please excuse my brevity.

On Nov 30, 2016 12:52 PM, "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.