  TYPE
    oct$section_list = array [0 .. * ] of oct$section_item,

    oct$section_item = record
      found: boolean,
      allotted: boolean,
      kind: llt$section_kind,
      access_attributes: llt$section_access_attributes,
      name: pmt$program_name,
    recend;

*copyc llt$section_kind
*copyc llt$section_access_attributes
*copyc pmt$program_name
