Code: Select all
execute block (smallest int = :Smallest, largest int = :Largest)
returns (number int, square bigint, cube bigint, fourth bigint)
as
begin
number = smallest;
while (number <= largest) do
begin
square = number * number;
cube = number * square;
fourth = number * cube;
suspend;
number = number + 1;
end
end
Thanks for your help.
Jack Rodenhi