RE: SQL - Using Case in Where clause

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Why are you using ENDCASE?  It should just be "END" not "ENDCASE" I thought
I pointed that out already.
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Lim Hock-Chai
Sent: Monday, June 21, 2004 9:23 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: SQL - Using Case in Where clause

Bob:
I still getting the same error message.  Below is the actual code compiled
from wdsc with OS level V5R2.

     C/exec sql
     C+ declare C2 cursor for
     C+   select CLBLNO, CLCUNO, CLSFNO, CLCY, CLYR,
     C+          CLMO, CLDY, CLHR, CLMN, CLSC
     C+   from CSLOGPF
     C+   where
     C+      case
     C+         when filterType = 'FORM' then
     C+            CLFRMC = :SCFRMC
SQL0104: Position 27 Token = was not valid. Valid tokens: END. 
     C+         else
     C+            null
     C+         endcase
     C+   order by
     C+      case :sortType
     C+         when 'STD' then
     C+            CLBLNO, CLCUNO, CLSFNO, CLCY DESC, CLYR DESC,
     C+            CLMO DESC, CLDY DESC
     C+         else
     C+            null
     C+         endcase
     C/end-exec                    
  



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Bob Cozzi

Try this instead
-Bob Cozzi

Select * from FILEA
    where CASE 
        when field1Filter = '>' then
             FIELD1 > :screenField1
        when field1Filter = '>=' then
            FIELD1 >= :screenField1
         .....
        end

--
This is the RPG programming on the AS400 / 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.