
  TYPE
    oct$section_name_list = record
      name: pmt$program_name,
      segment_descriptor: ^oct$output_segment_descriptor,
      link: ^oct$section_name_list,
    recend;

*copyc pmt$program_name
*copyc oct$output_segment_descriptor
