
  PROCEDURE [INLINE] clp$check_valid_catalog
    (    path: pft$path;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      group: pft$group,
      info: pft$p_info,
      info_area: SEQ (pft$info_record_type, pft$info_record_body_size,
            pft$info_record_type, pft$info_record_body_size,
            pft$directory_array_entry, pft$info_record_type,
            pft$info_record_body_size, cell);

    status.normal := TRUE;

    info := ^info_area;
    RESET info;
    group.group_type := pfc$member;
    group.member_description.family := osc$null_name;
    group.member_description.account := osc$null_name;
    group.member_description.project := osc$null_name;
    group.member_description.user := osc$null_name;
    pfp$get_item_info (path, group, $pft$catalog_info_selections
          [pfc$catalog_directory], $pft$file_info_selections [], info, status);

  PROCEND clp$check_valid_catalog;

*copyc ost$status
?? POP ??
*copyc pfp$get_item_info
