Click above to get retro games delivered to your door ever month!

Syntax

MAKE_TABLE( cDbfname, aFields, aTypes, aLengths, ;
            aDecs [, lMesg[, cOlddbf ;
            [, lRemove[, cData ]]]] )

Purpose

Create a table from arrays of fieldnames and specs.

Arguments

     cDbfname -- name of table to create

     aFields -- array of field names

     aTypes -- array of field types

     aLengths -- array of field lengths

     aDecs -- array of decimal specs

     lMesg -- if passed, whether to announce itself on the status line,
                  else .F.

     cOlddbf -- if passed, DBF to start with

     lRemove -- if passed, whether to remove cOlddbf fields not in
                    aFields

     lData -- if passed, whether to copy data from cOlddbf

Setup

Field specifications are assumed valid.

Example

     LOCAL fields := { "Name", "Age" }, ;
           types  := { "C", "N" }
           lengths := { 30, 3 }, ;
           decs    := { 0, 0 }

     ? MAKE_TABLE( "new_cust", fields, types, lengths, decs )

Returns

.T. on successful creation, else .F.

Side Effects

Destroys any existing dbstruct.ext; makes cDbfname. All parameters
must be passed and must be the correct data types.

Artful Calls

POP_MSG

Source Files

AA_MKTBL.PRG, AM_MKTBL.PRG