{
{                common deck dmddate
{

  TYPE
    dmt$date = record
      year: 0 .. 4095,
      month: 1 .. 12,
      day: 1 .. 31,
    recend;
