DTR> SET DICTIONARY CDD$TOP.DTR$LIB.FORMS ;
       DTR> YACHTS uses an FMS/TDMS form, YACHTS_F uses a DECforms form
       DTR> SHOW YACHTS, YACHTS_F

 DOMAIN YACHTS USING CDD$TOP.DTR$LIB.DEMO.YACHT ON YACHT.DAT
     FORM IS YACHT IN DTR$LIBRARY:FORMS
 ;
 DOMAIN YACHTS_F
 USING CDD$TOP.DTR$LIB.DEMO.YACHT ON YACHT.DAT
 FORM IS YACHTS IN DTR$LIBRARY:YACHT.FORM ;

      DTR> FN$DISABLE_DECFORMS ;
      DTR> READY YACHTS ;
      DTR> SHOW FORMS ;

 Loaded forms:
     Form YACHT in SYS$COMMON:[DTR]FORMS.FLB; ( FMS )

     DTR> FN$ENABLE_DECFORMS ;
     DTR> READY YACHTS_F ;
     DTR> SHOW FORMS ;

 Loaded forms:
     Form YACHTS in SYS$COMMON:[DTR]YACHT.FORM; ( DECforms )

     Form YACHT in SYS$COMMON:[DTR]FORMS.FLB;  ( FMS )