Format

      DEFINE  RECORD  record-name

              [ DESCRIPTION  IS /*text*/ ]   [ AUDIT  IS /*text*/ ]

              [ record-property ] ...

              [ constraint-clause ] ... .

              { included-name-clause  }
              { local-field-clause    }
              { structure-name-clause } ... .
              {                       }
              { variants-clause       }

              END [ record-name ] RECORD  .