
  PROCEDURE [XREF] pfp$put_archive_entry (
        path: pft$path;
        cycle_selector: pft$cycle_selector;
        p_archive_array_entry: pft$p_archive_array_entry;
        p_amd: pft$p_amd;
    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$cycle_selector
*copyc pft$p_amd
*copyc pft$p_archive_array_entry
*copyc pft$path
?? POP ??
