
  PROCEDURE [XREF] clp$validate_new_file_name
    (    file_name: string ( * <= fsc$max_path_element_size);
     VAR validated_file_name: ost$name;
     VAR name_is_valid_new_file_name: boolean);

?? PUSH (LISTEXT := ON) ??
*copyc fsc$max_path_element_size
*copyc ost$name
?? POP ??

