Hi Ann,
Remember to unset Forced Write before...
I think this will give more TNT....

Sincerely yours
Marco

--- In ib-support@y..., "Ann W. Harrison" <aharrison@i...> wrote:
> Runniive mng on my nearly three-year-old lap top, I
> stored 1,000,000 (1.000.000 for the non-US crowd)
> in 122 seconds. I used QLI, because I'm a troglodyte
> and don't intend to change. The time includes
> printing a thousand diagnostic messages.
>
> I then used that database to create a script, much
> like the one described and fed it to isql. That took
> 12 minutes to run, which is somewhat less than it
> took Word to load the file.
>
>
> Regards,
>
> Ann
>
>
> QLI> declare a long
> QLI> declare b char[1]
> QLI> declare c date
> QLI> declare d long
> QLI> declare e date
> QLI> a = 0
> QLI> b = 'A'
> QLI> c = '1 jan 2002'
> QLI>
> QLI> repeat 1000000 begin
> CON> insert into simple (ff1, ff2, ff3) values (a, b, c)
> CON> a = a + 1
> CON> d = a / 2
> CON> if (d * 2) = a b = 'A' else b = 'C'
> CON> c = c + 1
> CON> if c >= '1 jan 2003' c = '1 jan 2002'
> CON> d = a / 10000
> CON> if (d * 10000) = a begin e = 'now'
> CON> print a, e using x(25)
> CON> end
> CON> end
>
> A E
> =========== =========================
>
> 10000 30-OCT-2002 13:11:23.0000
> 20000 30-OCT-2002 13:11:24.0000
> ...
> 970000 30-OCT-2002 13:13:21.0000
> 980000 30-OCT-2002 13:13:23.0000
> 990000 30-OCT-2002 13:13:24.0000
> 1000000 30-OCT-2002 13:13:25.0000