SV: write to file with quick

[Jari.Kaljunen@teliasonera.com]

Hello again,

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.

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.


/Jari


screen test_writing_file menu stopscreen  

file *ik006002 designer
file asc600 designer

temp t_count

procedure internal write
  begin
     for 200
        begin
           let t_count = t_count + 1
           let rec600 = asc(t_count) &
                + " " + asc(systime) + " procedure internal write "
           put asc600 reset
        end
  end

procedure initialize
  begin
   let t_count = 0
   while retr ik006002 seq
     begin
       let rec600 = asc(t_count) &
                + " " + asc(systime) + " procedure initialize "
       put asc600 reset
       do internal write
     end
     return
  end
  
build

-----Ursprungligt meddelande-----
Från: Johnson, Harold A EDUC:EX
[mailto:Harold.A.Johnson@gems1.gov.bc.ca]
Skickat: den 15 september 2004 17:50
Till: Kaljunen, Jari S. /TSS - Sergel Kredittjänster /+46-8-4526435;
powerh-l@lists.sowder.com
Ämne: RE: write to file with quick


Are you sure the performance problem is with the writing and not with the
reading of the original data?   I would suspect a problem there instead.  


-----Original Message-----
From: powerh-l-admin@lists.sowder.com
[mailto:powerh-l-admin@lists.sowder.com]On Behalf Of
Jari.Kaljunen@teliasonera.com
Sent: 2004 September 15 8:41 AM
To: powerh-l@lists.sowder.com
Subject: write to file with quick


Hello,

I am writing to 

File: ASC600
Organization: SEQUENTIAL
Type: RMS
Open: ASC600
Record Format: Variable
Supersede: No
Records & Sizes: ASC600 600 bytes
Item Type Size Occ Offset
REC600 CHARACTER 600 

in quick using let and put as follows

let rec600 = "<HeaderRef2>" + asc(arnr of arenden,8) + asc(parmblnr,2) &
+ atgkod of atgkoder + "</HeaderRef2>"

put asc600 reset


The performance is very poor. The administrator believs that quick closes
and opens the file all the time. 
Can that be true?
What should I do?

We are creating an xml-file (it will be about 5 GB) with data from several
tables and our solution with qtp needed too many subfiles and sortings using
lots of space.

/Jari

= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.sowder.com
Subscribe: "subscribe" in message body to powerh-l-request@lists.sowder.com
Unsubscribe: "unsubscribe <password>" in message body to
powerh-l-request@lists.sowder.com
http://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.