How To Programmatically Create Large Tables for Testing Purposes (170128)

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