  TYPE
    rat$psr_info = record
      ident: string (8),
      element: string (31),
    recend;

