SV: write to file with quick
Peter Bateman
ppfb@hotmail.com
Thu, 16 Sep 2004 16:01:38 -0300
<html><div style='background-color:'><DIV class=RTE>
<P>I would try 'file asc600 designer open append' It may be a machine specific option.</P>
<P>But I didn't see it in the manual though.</P>
<P>Regards,</P>
<P>Peter<BR><BR></P></DIV>
<DIV></DIV>>From: <Jari.Kaljunen@teliasonera.com>
<DIV></DIV>>To: <powerh-l@lists.sowder.com>
<DIV></DIV>>Subject: SV: write to file with quick
<DIV></DIV>>Date: Thu, 16 Sep 2004 12:22:20 +0200
<DIV></DIV>>
<DIV></DIV>>Hello again,
<DIV></DIV>>
<DIV></DIV>>a little test without reading database still very slow (actually no difference...). It takes 49 s to run this with 100 records on subfile. The result file is 20100 lines.
<DIV></DIV>>
<DIV></DIV>>I even wrote a test quiz reading the same subfile and having 200 defines, each including systime and some more, each defined item written on an own line. It takes quiz 3 s to write these 20000 lines.
<DIV></DIV>>
<DIV></DIV>>
<DIV></DIV>>/Jari
<DIV></DIV>>
<DIV></DIV>>
<DIV></DIV>>screen test_writing_file menu stopscreen
<DIV></DIV>>
<DIV></DIV>>file *ik006002 designer
<DIV></DIV>>file asc600 designer
<DIV></DIV>>
<DIV></DIV>>temp t_count
<DIV></DIV>>
<DIV></DIV>>procedure internal write
<DIV></DIV>> begin
<DIV></DIV>> for 200
<DIV></DIV>> begin
<DIV></DIV>> let t_count = t_count + 1
<DIV></DIV>> let rec600 = asc(t_count) &
<DIV></DIV>> + " " + asc(systime) + " procedure internal write "
<DIV></DIV>> put asc600 reset
<DIV></DIV>> end
<DIV></DIV>> end
<DIV></DIV>>
<DIV></DIV>>procedure initialize
<DIV></DIV>> begin
<DIV></DIV>> let t_count = 0
<DIV></DIV>> while retr ik006002 seq
<DIV></DIV>> begin
<DIV></DIV>> let rec600 = asc(t_count) &
<DIV></DIV>> + " " + asc(systime) + " procedure initialize "
<DIV></DIV>> put asc600 reset
<DIV></DIV>> do internal write
<DIV></DIV>> end
<DIV></DIV>> return
<DIV></DIV>> end
<DIV></DIV>>
<DIV></DIV>>build
<DIV></DIV>>
<DIV></DIV>>-----Ursprungligt meddelande-----
<DIV></DIV>>Från: Johnson, Harold A EDUC:EX
<DIV></DIV>>[mailto:Harold.A.Johnson@gems1.gov.bc.ca]
<DIV></DIV>>Skickat: den 15 september 2004 17:50
<DIV></DIV>>Till: Kaljunen, Jari S. /TSS - Sergel Kredittjänster /+46-8-4526435;
<DIV></DIV>>powerh-l@lists.sowder.com
<DIV></DIV>>Ämne: RE: write to file with quick
<DIV></DIV>>
<DIV></DIV>>
<DIV></DIV>>Are you sure the performance problem is with the writing and not with the
<DIV></DIV>>reading of the original data? I would suspect a problem there instead.
<DIV></DIV>>
<DIV></DIV>>
<DIV></DIV>>-----Original Message-----
<DIV></DIV>>From: powerh-l-admin@lists.sowder.com
<DIV></DIV>>[mailto:powerh-l-admin@lists.sowder.com]On Behalf Of
<DIV></DIV>>Jari.Kaljunen@teliasonera.com
<DIV></DIV>>Sent: 2004 September 15 8:41 AM
<DIV></DIV>>To: powerh-l@lists.sowder.com
<DIV></DIV>>Subject: write to file with quick
<DIV></DIV>>
<DIV></DIV>>
<DIV></DIV>>Hello,
<DIV></DIV>>
<DIV></DIV>>I am writing to
<DIV></DIV>>
<DIV></DIV>>File: ASC600
<DIV></DIV>>Organization: SEQUENTIAL
<DIV></DIV>>Type: RMS
<DIV></DIV>>Open: ASC600
<DIV></DIV>>Record Format: Variable
<DIV></DIV>>Supersede: No
<DIV></DIV>>Records & Sizes: ASC600 600 bytes
<DIV></DIV>>Item Type Size Occ Offset
<DIV></DIV>>REC600 CHARACTER 600
<DIV></DIV>>
<DIV></DIV>>in quick using let and put as follows
<DIV></DIV>>
<DIV></DIV>>let rec600 = "<HeaderRef2>" + asc(arnr of arenden,8) + asc(parmblnr,2) &
<DIV></DIV>>+ atgkod of atgkoder + "</HeaderRef2>"
<DIV></DIV>>
<DIV></DIV>>put asc600 reset
<DIV></DIV>>
<DIV></DIV>>
<DIV></DIV>>The performance is very poor. The administrator believs that quick closes
<DIV></DIV>>and opens the file all the time.
<DIV></DIV>>Can that be true?
<DIV></DIV>>What should I do?
<DIV></DIV>>
<DIV></DIV>>We are creating an xml-file (it will be about 5 GB) with data from several
<DIV></DIV>>tables and our solution with qtp needed too many subfiles and sortings using
<DIV></DIV>>lots of space.
<DIV></DIV>>
<DIV></DIV>>/Jari
<DIV></DIV>>
<DIV></DIV>>= = = = = = = = = = = = = = = = = = = = = = = = = = = =
<DIV></DIV>>Mailing list: powerh-l@lists.sowder.com
<DIV></DIV>>Subscribe: "subscribe" in message body to powerh-l-request@lists.sowder.com
<DIV></DIV>>Unsubscribe: "unsubscribe <password>" in message body to
<DIV></DIV>>powerh-l-request@lists.sowder.com
<DIV></DIV>>http://lists.sowder.com/mailman/listinfo/powerh-l
<DIV></DIV>>This list is closed, thus to post to the list you must be a subscriber.
<DIV></DIV>>
<DIV></DIV>>= = = = = = = = = = = = = = = = = = = = = = = = = = = =
<DIV></DIV>>Mailing list: powerh-l@lists.sowder.com
<DIV></DIV>>Subscribe: "subscribe" in message body to powerh-l-request@lists.sowder.com
<DIV></DIV>>Unsubscribe: "unsubscribe <password>" in message body to powerh-l-request@lists.sowder.com
<DIV></DIV>>http://lists.sowder.com/mailman/listinfo/powerh-l
<DIV></DIV>>This list is closed, thus to post to the list you must be a subscriber.
<DIV></DIV></div><br clear=all><hr>Don't just Search. Find! <a href="http://g.msn.com/8HMBENCA/2749??PS=47575">The new MSN Search: </a> Fast. Clear. Easy.</html>