                                                                                                              
  PROCEDURE [XREF] pfp$find_cycle_entry_version_2                                                             
    (    p_cycle_array: ^pft$cycle_array_version_2;                                                           
         cycle_selector: pft$cycle_selector;                                                                  
     VAR cycle_index: pft$array_index;                                                                        
     VAR status: ost$status);                                                                                 
                                                                                                              
?? PUSH (LISTEXT := ON) ??                                                                                    
*copyc pfe$error_condition_codes                                                                              
*copyc pfe$external_archive_conditions                                                                        
*copyc pfe$internal_error_conditions                                                                          
*copyc ost$status                                                                                             
*copyc pft$array_index                                                                                        
*copyc pft$cycle_array_version_2                                                                              
*copyc pft$cycle_selector                                                                                     
?? POP ??                                                                                                     
