× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.