The following example defines a port for transferring records
       between the YACHTS domain and an application program:

       DTR> DEFINE PORT YPORT USING CDD$TOP.DTR$LIB.DEMO.YACHT;
       DTR>