DEF TYPE

General Form:

DEF TYPE type = packspec
Where:

packspec = a string expression, a field, or a sym type expression

The DEF TYPE statement declares a FLD and a record based on the specified pack format. For example,

 00010 DEF TYPE telephone$ = "CHAR(30)"
     : 
     :

will define the following two variables:

 D .telephone$       (1, "CHAR(30)")
 D _telephone        30

this is similar to the effect of defining a record

 00010 DEFRECORD telephone
     :     FLD telephone$ = "CHAR(30)"
     :     END RECORD
     :