
  TYPE
    oct$header = record
      case oct$module_kind of
      = occ$cpu_object_module, occ$ppu_object_module, occ$load_module,
            occ$bound_module =
        identification: llt$identification,
        application_identifier: llt$application_identifier,
      = occ$program_description, occ$command_procedure, occ$function_procedure,
            occ$command_description, occ$function_description,
            occ$message_module, occ$panel_module =
        library_member_header: llt$library_member_header,
      = occ$applic_command_procedure, occ$applic_program_description,
            occ$applic_command_description =
        application_member_header: llt$application_member_header,
      casend,
    recend;

*copyc llt$application_identifier
*copyc llt$identification
*copyc llt$library_member_header
*copyc oct$module_kind
