
  FUNCTION [INLINE] fsp$file_is_$job_log
    (file: ^fst$file_reference) : boolean;

    CONST
      job_log_path_length = 16;

    fsp$file_is_$job_log := (file <> NIL) AND (STRLENGTH (file^) >=
          job_log_path_length) AND (file^ (1, job_log_path_length) =
          ':$LOCAL.$JOB_LOG');

  FUNCEND fsp$file_is_$job_log;

?? PUSH (LISTEXT := ON) ??
*copyc fst$file_reference
?? POP ??
