
  PROCEDURE [XREF] pup$restore_cycle_content (
        new_file_name_path: pft$path;
        new_file_name_cycle_selector: pft$cycle_selector;
        password_selector: pft$password_selector;
        record_header: put$backup_file_record_header;
        label_exists: boolean;
        p_label: ^SEQ ( * );
        p_fmd: ^SEQ ( * );
        restore_selections: put$restore_data_selections;
    VAR mandated_modification_time: pft$mandated_modification_time;
    VAR backup_file_id: put$file_identifier;
    VAR file_position: put$file_position;
    VAR cycle_length: amt$file_length;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc pud$backup_file
*copyc amt$file_length
*copyc ost$name
*copyc ost$status
*copyc pft$cycle_selector
*copyc pft$mandated_modification_time
*copyc pft$password_selector
*copyc pft$path
*copyc put$file_identifier
*copyc put$file_position
*copyc put$restore_data_selections
?? POP ??
