|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.