DOCUMENT:Q170128  26-AUG-1999  [foxpro]
TITLE   :HOWTO: Programmatically Create Large Tables for Testing Purposes
PRODUCT :Microsoft FoxPro
PROD/VER:
OPER/SYS:
KEYWORDS:kbHWMAC kbvfp300 kbvfp500 kbvfp600

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b, 5.0, 5.0a, 6.0 
 - Microsoft FoxPro for Windows, version 2.6a 
 - Microsoft FoxPro for MS-DOS, version 2.6a 
 - Microsoft FoxPro for Macintosh, version 2.6a 
 - Microsoft Visual FoxPro for Macintosh, version 3.0b 
 - Microsoft FoxPro for UNIX, version 2.6 
-------------------------------------------------------------------------------

SUMMARY
=======

This code can be used as an example of how to create a large sample table to
test your programs. It is very basic and must be modified to meet your specific
design needs.

MORE INFORMATION
================

Create a program Lartable.prg and add the following sample code to create a
table containing any number of records. For this example, the program creates a
table containing 120 records. Remember not to allow the program to overwrite any
tables that have valid data.

      *Environment area.
      CLEAR
      CLOSE ALL

      * Create a table by substituting your table, field names, and data
      * types.

      CREATE TABLE LarTable (CharVal C(20), NumVal N(9.2), DateVal D)
      USE LarTable.DBF

      * m.NumRecord = the number of record you want to create in your table.
      * NOTE: The time that it takes to create a table will depend upon
      *       the size of the table and the availability of system
      *       resources.

      ******************
      m.NumRecord = 120
      ******************

      m.NumWide = LEN(ALLTRIM(STR(m.NumRecord)))
      * Variable seed for DateVal date field.

      m.dateval = DATE()

      * For loop to fill the table with a Character, Number, and Date
      * fields substitute your field names.

      FOR m.CurRecord  = 1 TO m.NumRecord
         INSERT INTO lartable (NumVal, CharVal, DateVal) ;
         VALUES ( RECCOUNT()+1, ;
         "Record " + PADL(ALLTRIM(STR(RECCouNt()+1, m.NumWide, 0)), ;
          m.NumWide, "0"), m.DateVal + m.CurRecord)
         ? RECNO()
      NEXT
      BROWSE

(c) Microsoft Corporation 1997, All Rights Reserved.
Contributions by Mike Fernald, Microsoft Corporation


Additional query words:

======================================================================
Keywords          : kbHWMAC kbvfp300 kbvfp500 kbvfp600 
Technology        : kbHWMAC kbOSMAC kbVFPsearch kbAudDeveloper kbFoxproSearch kbZNotKeyword3 kbFoxPro260aMac kbFoxPro260aDOS kbFoxPro260UNIX kbFoxPro260a kbVFP300bMac kbVFP300 kbVFP300b kbVFP500 kbVFP600 kbVFP500a
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1999.