
  PROCEDURE [XREF] clp$convert_str_to_path_handle
    (    str: string ( * );
         delete_allowed: boolean;
         resolve_path: boolean;
         include_open_pos_in_handle: boolean;
*IF NOT $true(osv$unix)
     VAR path_handle_name: fst$path_handle_name;
*ELSE
     VAR path_handle_name: fst$path;
*IFEND
     VAR evaluated_file_reference: fst$evaluated_file_reference;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fsc$max_path_size
*copyc fst$evaluated_file_reference
*IF NOT $true(osv$unix)
*copyc fst$path_handle_name
*ELSE
*copyc fst$path
*IFEND
*copyc ost$status
?? POP ??
