[firebase-br] erro

[Phulano G]

Alguem pode me ajudar..
Não consigo crirar o cursor... 

Não consigo encontrar onde estah o erro.
 


exec sql
declare CurNome cursor for
select codigo_cid,
  nome_cid,
  uf_cid
from   cidades
where  nome_cid like rtrim(:sql-string)
order by nome_cid
end-exec.
display sqlcode stop " ".


     if sqlstate not  = '00000'
            move  "Requisitante"                         to wsg-titulo 
            ADD   POW-DMOK POW-DMICONQUESTION  GIVING  wsg-estilo  
            INVOKE pow-self "DisplayMessage" USING  wsg-texto  wsg-titulo
wsg-estilo  
     end-if


     EXEC  SQL OPEN CurNome   END-EXEC.
     if sqlstate not  = '00000'
            move  "erro abertura, Tente Outra Vez" to wsg-texto 
            move  "Requisitante"                         to wsg-titulo 
            ADD   POW-DMOK POW-DMICONQUESTION  GIVING  wsg-estilo  
            INVOKE pow-self "DisplayMessage" USING  wsg-texto  wsg-titulo
wsg-estilo  
     end-if
     .


 P01.
     EXEC  SQL
         FETCH CurNome  INTO :codigo-cid, 
                             :nome-cid  , 
                             :uf-cid    ,
     END-EXEC 
     evaluate  true 
       when sqlstate  = '00000'    *> Achou o Registro, Cursor OK
add +1 to w-lido
move w-lido to "Caption" of Qtde-Lido
invoke pow-self "Refresh"


*--- Acha o Tamanho da String e Filtra pela Descricao -----------*
call "MONTA-LIST-VIEW"
if w-lido not > 100
go p01
end-if
       when sqlstate  =  '999SA'  or sqlstate not = '00000'  
            move  "Cursor Nao Aberto, Tente Outra Vez" to wsg-texto 
            move  "Requisitante"                         to wsg-titulo 
            ADD   POW-DMOK POW-DMICONQUESTION  GIVING  wsg-estilo  
            INVOKE pow-self "DisplayMessage" USING  wsg-texto  wsg-titulo
wsg-estilo  
            INVOKE Descricao "SetFocus"            
     end-evaluate.        


 
Grato
Ebert
Bauru-sp


_______________________________________________
Posso não lembrar, mas esquecer..........Jamais
Investir R$ em algo seguro, é comprar um cofre ?