×
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.
Host variables missing colon character.
Change: irpgm = case when #crfrnseqp = 0 then irpgm else #crfrnseqp end
To: irpgm = case when :#crfrnseqp = 0 then irpgm else :#crfrnseqp end
-----Original Message-----
message: 1
date: Mon, 9 Mar 2020 14:43:56 +0000
from: M?nica Anast?cio <monicaanastacio@xxxxxxxxx>
subject: Re: SQL ignore part of WHERE if parameter is null
exec sql // Declara o Cursor
declare c_tcinrely scroll Cursor for
Select irseq, irdseq, irdlsq, irpgm, iravis, tcirvins, irdatu, irhoru
From manastacio/tcinrely
where irseq >= :#crfrnseqp and
irpgm = case when #crfrnseqp = 0 then irpgm else #crfrnseqp end
Order By irseq, irdseq;
exec sql // Abre o Cursor
open c_tcinrely;
exec sql // Consulta a Informa??o e
Guarda na DS
fetch next from c_tcinrely for :wnnreg rows into :wsele;
sqlcode -501 in cursor <
http://ibmmainframes.com/about55937.html>
midrange.com
