When a UniVerse Table or File is created using command defaults, three things come into existence. These are the data portion of the file, the dictionary portion of the file, and the VOC entry that describes the physical location of the other two, as well as specifying the name that users use to access that file.

The data portion of the file, for most file types, contains nothing but data.

Below is a sample of a Pick Program to create Customer Table with Fieldnames or Dict Items:

* CREATE TABLE CUSTOMER
* Author: Eltas

* Lessons   Eltas Enterprises INC

TBLNAME = "CUSTOMER"
CMD = "CREATE TABLE ":TBLNAME:" (DYNAMIC, "
CMD = CMD:"CUSTID NUMERIC FMT '10R', "
CMD = CMD:"SAL  VARCHAR FMT '5T', "
CMD = CMD:"FNAME  VARCHAR FMT '25T', "
CMD = CMD:"LNAME  VARCHAR FMT '25T', "
CMD = CMD:"COMPANY  VARCHAR FMT '25T', "
CMD = CMD:"ADDR1  VARCHAR FMT '30T', "
CMD = CMD:"ADDR2  VARCHAR FMT '25T', "
CMD = CMD:"CITY  VARCHAR FMT '15T', "
CMD = CMD:"STATE  VARCHAR FMT '2L', "
CMD = CMD:"ZIP  VARCHAR FMT '9L', "
CMD = CMD:"PRIMARY KEY (CUSTID))"
CMD = CMD:@FM:'DATA'

CRT CMD
PERFORM CMD
RETURN

END

Compile The Program:

>BASIC BP CT-CUSTOMER

Compiling: Source = 'BP/CT-CUSTOMER', Object = 'BP.O/CT-CUSTOMER'

**

Compilation Complete.

>CATALOG BP CT-CUSTOMER

"*eehealth*CT-CUSTOMER" cataloged

>CT-CUSTOMER

CREATE TABLE CUSTOMER (DYNAMIC, CUSTID NUMERIC FMT '10R', SAL  VARCHAR FMT '5T', FNAME  VARCHAR FMT '25T', LNAME  VARCHAR FMT '25T', COMPANY  VARCHAR FMT '25T', ADDR1  VARCHAR FMT '30T', ADDR2  VARCHAR FMT '25T', CITY  VARCHAR FMT '15T', ST ATE  VARCHAR FMT '2L', ZIP  VARCHAR FMT '9L', PRIMARY KEY (CUSTID))þDATA

SQL+
Creating Table "CUSTOMER"
Adding Column "CUSTID"
Adding Column "SAL"
Adding Column "FNAME"
Adding Column "LNAME"
Adding Column "COMPANY"
Adding Column "ADDR1"
Adding Column "ADDR2"
Adding Column "CITY"
Adding Column "ZIP"
Adding Column "STATE"