
  TYPE
    oct$name_list = record
      name: pmt$program_name,
      link: ^oct$name_list,
    recend;

*copyc pmt$program_name
