?? TITLE := 'clp$put_path_subtitle', EJECT ??

  PROCEDURE clp$put_path_subtitle
    (    file: clt$file;
         header: string ( * );
     VAR status: ost$status);


    IF NOT clv$subtitles_built THEN
      clp$get_path_name (file.local_file_name, osc$full_message_level,
            clv$path_display_string);
      clp$build_path_subtitle (clv$path_display_string,
            clp$trimmed_string_size (clv$path_display_string),
            (clv$page_width - STRLENGTH (header) - 1),
            clv$path_display_chunk_count, clv$path_display_chunks);
      clv$subtitles_built := TRUE;
    IFEND;

    clp$put_path_reference_subtitle ('', header, status);

  PROCEND clp$put_path_subtitle;
*copy clp$put_path_reference_subtitle
