
  FUNCTION [INLINE] pfp$system_privileged_catalog
    (    catalog: pft$name): boolean;

?? PUSH (LISTEXT := ON) ??

{   This function determines whether or not files may be created in and
{ deleted from the specified catalog by the system on behalf of the user,
{ regardless of any permits which may or may not exist.

    pfp$system_privileged_catalog := ((catalog = jmc$job_input_catalog)
{                                } OR (catalog = jmc$job_output_catalog)
{                                } OR (catalog = jmc$job_swap_catalog)
{                                } OR (catalog = jmc$sf_job_input_catalog)
{                                } OR (catalog = jmc$sf_job_output_catalog));

  FUNCEND pfp$system_privileged_catalog;

*copyc jmc$system_family
*copyc pft$name
?? POP ??
