
  TYPE
    pft$fmd = dmt$stored_fmd;

*copyc dmt$stored_fmd
