how to generate records to fill up a table

[Johnson, Harold A EDUC:EX]

oops, sry - it's all in quiz not qtp.  : \

-----Original Message-----
From: powerh-l-admin@lists.sowder.com
[mailto:powerh-l-admin@lists.sowder.com]On Behalf Of Johnson, Harold A
EDUC:EX
Sent: 2005 March 8 9:31 AM
To: 'Chris Sharman'; powerh-l@lists.sowder.com
Subject: RE: how to generate records to fill up a table


Try a "set file counting open share".  : )

-----Original Message-----
From: powerh-l-admin@lists.sowder.com
[mailto:powerh-l-admin@lists.sowder.com]On Behalf Of Chris Sharman
Sent: 2005 March 8 9:27 AM
To: powerh-l@lists.sowder.com
Subject: Re: how to generate records to fill up a table


shulbert@littlejohnfrazer.com wrote:
> try this in quiz. it will add as many records as you want to a subfile.
from the subfile you can append to the table using qtp.
> qtp won't do this because it reads all the records in before it starts
processing them; ie it won't read records it's just written.
> this is tested under aix, but i seem to remember that under mpe and vms
the eof condition is read differently, and you can get away with only pass.

On 7.10G3 on VMS 7.3, it doesn't work much - I'd be surprised if it 
doesn't have similar problems on most systems.

Chris

> Q U I Z   (7.10.G3)
> Copyright 1998 COGNOS INC. (ALPHA)
> Licensed PH-AXP-RUNTIME-WITH-REPORTING for customer: 7053780001 CCA
STATIONERY LIMITED 2/300
> 
> Qz> cancel clear
> Qz> set report nolimit
> Qz> def counter integer size 4 = 1
> Qz> set subfile keep name counting
> Qz> rep sum counter
> Qz> go
> 
> Records selected: 0
> Records written:  1
> 
> Qz> access *counting
> Qz> def counter2 integer size 4 = counter + 1
> Qz> set subfile append name counting
> Qz> rep sum counter2
> Qz> go
> *W* Data access error. (COUNTING)
> %RMS-E-FLK, file currently locked by another user
> %SYSTEM-W-ACCONFLICT, file access conflict
> Qz> access *counting
> Qz> def limit1 integer size 4 = parm prompt "Limit [1000]:"
> Qz> def limit2 integer size 4 = 1000 &
> Qz>                          if limit1 = 0 &
> Qz>                        else limit1
> Qz> def counter2 integer size 4 = counter + 2
> Qz> select counting if counter < limit2 - 1
> Qz> set subfile append name counting
> Qz> rep sum counter2
> Qz> go
> 
> Limit [1000]:
> *W* Data access error. (COUNTING)
> %RMS-E-FLK, file currently locked by another user
> %SYSTEM-W-ACCONFLICT, file access conflict



-----------------------------------------------------------------------

Any views expressed in this message are those of the sender and not
necessarily those of CCA Group.  The unauthorized use, disclosure,
copying or alteration of this message is forbidden.  The contents of
this message may be confidential and/or privileged, copyright CCA Group
and are intended solely for the use of the individual or entity to whom
they are addressed.  Whilst this message has been scanned, CCA Group
cannot guarantee that it is virus free or compatible with your systems
and accepts no responsibility for any loss or damage arising from its
use. The recipient is advised to run their own anti-virus software. If
you receive this message in error please contact
postmaster@ccagroup.co.uk immediately, destroy any copies and delete it
from your computer systems.
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.