Helen,
Thank You.

You peeked at the docs :)

I assumed Current_TimeStamp would mean Current as Now This Moment

Now

CREATE PROCEDURE TESTTIME
RETURNS (CTIME TIMESTAMP )
AS
BEGIN
CTIME = CURRENT_TIMESTAMP;
SUSPEND;
END

along with

CREATE PROCEDURE TEST
RETURNS ( T1 TIMESTAMP
, T2 TIMESTAMP )
AS
BEGIN
SELECT CTIME FROM TESTTIME INTO :T1; // Avoid BUG
T2 = T1;
WHILE (T1 >= T2) DO
SELECT CTIME FROM TESTTIME INTO :T2; // Avoid BUG
SUSPEND;
END

works as great as your much shorter suggestion :)

Finally I can time my Procedures by replacing the
WHILE (T1 >= T2) DO with what ever coding I want to time.

> CREATE PROCEDURE TEST
> RETURNS ( T1 TIMESTAMP
> , T2 TIMESTAMP )
> AS
> BEGIN
> T1 = CURRENT_TIMESTAMP;
> T2 = T1
> /* Equal at start of loop
> WHILE (T1 >= T2) DO
> T2 = CURRENT_TIMESTAMP; /* No new value - T1 and T2 stay the same
>
> SUSPEND;
> END
>