execute block
returns(p varchar(4), t1 integer, t2 integer, t3 integer )
do
begin
for select distinct num1 from tablex into :p do
    begin
    select sum(value) from tablex where num2='1t' and num1=:p into :t1;
    select sum(value) from tablex where num2='2t' and num1=:p into :t2;
    select sum(value) from tablex where num2='3t' and num1=:p into :t3;
suspend;
    end
end