RE: SQLRPGLE Invalid token Error

Note this is untried & may not work...

c                   eval      mainstatement = 
c                             'select * from guser02 where ' + 
c                             'gubcap like ''%?%''' + 
c                             ' order by gubusn for read only'  

Declare cursor mycursor for :mainstatement

Open mycursor

Fetch from mycursor using trim( :compny )



Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of PHarte@xxxxxxxxxx
Sent: Friday, December 09, 2005 10:02 AM
To: RPG400-L@xxxxxxxxxxxx
Subject: SQLRPGLE Invalid token Error 

Here's the situation......

 I have a prompt screen which I key a word to be searched for.

Here's the code which creates the SQL Statement

 * Create SQL Statement based on what's been keyed 
c                   eval      search ='%'+%trim(compny)+'%' 
c                   eval      mainstatement = 
c                             'select * from guser02 where ' + 
c                             'gubcap like ' + 
c                             '''' + %trim(search) + '''' + 
c                             ' order by gubusn for read only' 
 * 
Works like a charm 'til I key the search word which contains an 
apostrophe, for example St. John's, then I get an invalid token error 
based on the statement below.

select * from guser02 where gubcap like '%ST. JOHN'S%' order
 by gubusn for read only 

Any suggestions...TIA 
Pat.