## 1.6.1 DICTIONARY Statement (VMS only)

The DICTIONARY statement incorporates OpenVMS common data dictionary (CDD) data definitions into the current Compaq Fortran 77 source program during compilation. The statement can occur anywhere in a Fortran source program that a STRUCTURE statement can occur.

The DICTIONARY statement takes the following form:

    DICTIONARY 'cdd-path [/[NO]LIST]'

cdd-path
  Is interpreted as the full or relative pathname of a CDD object.
/[NO]LIST
  Controls whether the source code representation of the resulting structure declaration is listed in a compilation source listing. The default is /NOLIST. /LIST and /NOLIST must be spelled completely.

Rules and Behavior

There are two types of CDD pathnames: full and relative. Their formation must conform to the rules for forming CDD pathnames.

A full CDD pathname begins with CDD$TOP and specifies the given names of all its descendants; it is a complete path to the record definition. Descendant names are separated from each other by a period.

A relative CDD pathname begins with any generation name other than CDD$TOP and specifies the given names of the descendants after that point. A relative path comes into existence when a default directory is established with a logical name.

Examples

In the following example, the logical name definition specifies the beginning of the CDD pathname; so, a relative pathname specifies the remainder of the path to the record definition:

    $ DEFINE CDD$DEFAULT CDD$TOP.FOR

The following examples illustrate how a CDD pathname beginning with CDD$TOP overrides the default CDD pathname. Consider a record with the pathname CDD$TOP.SALES.JONES.SALARY. If you define CDD$DEFAULT to be CDD$TOP.SALES.JONES, you can then specify a relative pathname; for example:

    DICTIONARY 'SALARY'

You can also specify this as a full pathname; for example:

    DICTIONARY 'CDD$TOP.SALES.JONES.SALARY'

For More Information:

- On specification statements, see Chapter 4.

- On CDD pathnames, see Using CDD/Repository on VMS Systems.

Previous Page Next Page Table of Contents