>
>
> into :tmppos do
>
> begin
>
> stm = 'pos' || :tmppos || '=1' ;
>
> execute statement stm;
>
> end
>
>
>

My solution (not tested, only a proposal) :

begin
case tmppos
when 1 then pos1 = 1;
when 2 then pos2 = 1;
when 3 then pos3 = 1;
when 4 then pos4 = 1;
when 5 then pos5 = 1;
when 6 then pos6 = 1;
when 7 then pos7 = 1;
when 8 then pos8 = 1;
end

good luck
Christian