|
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.