Re: Embedded SQL

Tom,

How about using the BETWEEN clause? For example

Select one season:
    Declare c1 cursor for
      Select * from mstfil Where season  Between :season_low and :season_hi
        and company = :company_in
           Order by style

When the user is selecting a season, set both host variables to the same
season. When they want all seasons, set season_low to *LOVAL, and season_hi
to *HIVAL.

Regards,

John Taylor
Canada

----- Original Message -----
From: "Tom Tufankjian" <Tom_Tufankjian@hbltd.com>
To: <RPG400-L@midrange.com>
Sent: Friday, March 31, 2000 07:53
Subject: Embedded SQL


> I am using embedded SQL with a serial cursor using the declare, open,
> fetch, close commands.  Is there a way to change the WHERE statement
> <dynamically> in the rpg program?
>
> For example, we have a report where the user can select a season or all
> seasons.  If they choose a season then the WHERE clause includes the test
> for a matching season.  If they choose all seasons there is no need for
the
> season test at all.
> Here's an example:
>
> Select one season:
>    Declare c1 cursor for
>      Select * from mstfil Where season = :season_in     and company =
> :company_in
>           Order by style
>
> --or--  all seasons
>    Declare c2 cursor for
>      Select * from mstfil Where   company = :company_in
>
>
>
> I tried using an IF statement but you have to repeat the entire select
> statement and the cursor name must be different.  I'd like to keep the
> cursor name the same and just change the WHERE clause on the fly.
>
> Hope this is clearer than our company coffee.
>
> Thanks!
> Tom T
>           Order by style
>
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---