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

       DTR> DECLARE PORT MY_YPORT USING CDD$TOP.DTR$LIB.DEMO.YACHT;
       DTR>