  TYPE
    oct$single_module_predictor_hdr = record
      predictor_size: oct$module_predictor_size,
      module_name: pmt$program_name,
      CASE kind: llt$library_module_kind OF
      = llc$load_module =
        last_section_ordinal: llt$section_ordinal,
        section_number_cv: REL (oct$module_predictor) ^oct$new_ordinal_list,
        length_normal_section_ocv: llt$section_ordinal,
        section_offset_cv: REL (oct$module_predictor)
          ^oct$section_offset_changes,
        length_binding_socv: llt$section_ordinal,
        binding_section_ordinal: llt$section_ordinal,
        binding_section_ocv: REL (oct$module_predictor)
          ^oct$offset_change_list,
        length_component_index_cv: 0 .. llc$max_components,
        component_index_cv: REL (oct$module_predictor) ^array [1 .. * ] of 0 .. llc$max_components,
      = llc$message_module =
        last_name_index: ost$message_template_index,
        length_message_template_cv: llt$section_ordinal,
        message_template_cv: REL (oct$module_predictor) ^oct$offset_change_list,
      = llc$ppu_object_module, llc$program_description, llc$command_procedure,
            llc$function_procedure, llc$panel_module =
        ,
      CASEND,
    recend,

    oct$module_predictor = SEQ ( * );

*copyc pmt$program_name
*copyc llt$section_address
*copyc llt$library_module_kind
*copyc oct$new_ordinal_list
*copyc oct$module_predictor_size
*copyc oct$section_offset_changes
*copyc oct$offset_change_list
*copyc ost$message_template_index
