
  TYPE
    oct$sorted_xref_list = ^array [1 .. * ] of ^oct$external_reference_list;

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

*copyc pmt$program_name
