Re: Embedded sql how to test for no lines

Hi Brian,

your missing the from clause:

select '1'
into :existsFlag
from sysdummy1
where exists (select ...);

But I think you can get it even faster and easier:

select char(count(1))
into :existsFlag
from <your table>
where <your conditions>
limit 1;

This way you don't have to observe sqlcode=100 - because count() never emits 100. As the select is limited to 1 row, you can only get values 1 and 0 - and those are converted to char - and then to IND.

This is the tactic I use very often in my programs.

HTH
Daniel

Am 27.08.2024 um 19:18 schrieb Brian Garland via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx>:

If memory serves me correctly EXISTS is more efficient than COUNT.

DCL-S ExistsFlag IND;
ExistsFlag = '0'
SELECT '1' INTO :ExistsFlag WHERE EXISTS(SELECT......)

Brian