
  PROCEDURE [XREF] pup$get_backup_cycle_info
    (VAR backup_file_id: put$file_identifier;
     VAR file_position: put$file_position;
     VAR cycle_array_entry: pft$cycle_array_entry_version_2;
     VAR p_file_media_descriptor: ^SEQ ( * );
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc pft$cycle_array_entry_version_2
*copyc put$file_identifier
*copyc put$file_position
?? POP ??
