Sv: Creating a Subfile of Sequential Numbers

[Ole Hansen, ScanConsult]

Hi Colin,

I would suggest the combined use of QTP and QUICK as follows:

1. Make your subfile with QTP (or QUIZ) :
-----------------------------------------
access m-users
choose rrs-userid "MGR"   ; will give 1 record
                          ; Use any master file and choose any record
temporary largenumber int*6
subfile testx keep include largenumber
item largenumber initial 1
GO

2. Enlarge the subfile with QUICK:
----------------------------------
screen dummy
file *testx
temporary i int*6
procedure initialize
 begin
   let i=2              ; the number 1 is there already
   while i < 100        ; set to 1000000 for 'production run'
    begin
      let largenumber of testx = i
      put testx reset
      let i=i+1
    end
   return
 end
GO


/Ole

====================================================================
E-mail: oh@scanconsult.dk                Cell Phone: +45 40 40 11 50
====================================================================
ScanConsult IT-Partners ApS                Voice   : +45 87 38 74 74
Jegstrupvej 96A                            Fax     : +45 87 38 74 75
DK-8361 Hasselager                  Support : support@scanconsult.dk
Denmark                             Sales   :   sales@scanconsult.dk
                     http://www.scanconsult.dk
===     ParaSuite :  A Suite of Air Cargo Handling solutions     ===
===     ParaSafe  :  A Suite of IT-Security solutions            ===
===  We partner with  Hewlett-Packard, Cognos, Lotus and others  ===

-----Oprindelig meddelelse-----
Fra: Colin Glass <cglass@mlcc.mb.ca>
Til: powerh-l@lists.swau.edu <powerh-l@lists.swau.edu>
Dato: 25. september 2001 17:55
Emne: Creating a Subfile of Sequential Numbers


>Using PowerHouse version 8.19.C5 on an HP3000 with an Image database.
>
>How can I create a subfile of sequential numbers from 1 to 999999?  We do
>not have any datasets or files that have that many records in it to access. 
>
>
>Thank you in advance.
>
>_______________________________
>Colin Glass - cglass@mlcc.mb.ca
>Senior Programmer/Analyst
>Manitoba Liquor Control Commission
>Ph:  (204) 474-5597
>
>= = = = = = = = = = = = = = = = = = = = = = = = = = = =
>Mailing list: powerh-l@lists.swau.edu
>Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
>Unsubscribe: "unsubscribe" in message body to powerh-l-request@lists.swau.edu
>http://lists.swau.edu/mailman/listinfo/powerh-l
>This list is closed, thus to post to the list you must be a subscriber.
>