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

*copyc pmt$program_name
