
  PROCEDURE [INLINE] pfp$allocate_archive_list
    (    archive_count: pft$archive_count;
         p_catalog_heap: pft$p_catalog_heap;
     VAR p_archive_list: pft$p_archive_list;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
    status.normal := TRUE;
    ALLOCATE p_archive_list: [1 .. archive_count] IN p_catalog_heap^;
    IF p_archive_list = NIL THEN
      osp$set_status_condition (pfe$catalog_full, status);
    IFEND;

  PROCEND pfp$allocate_archive_list;

*copyc pfe$error_condition_codes
*copyc pft$archive_count
*copyc pft$p_archive_list
*copyc pft$p_catalog_heap
*copyc osp$set_status_condition
?? POP ??
