
  PROCEDURE [INLINE] pfi$convert_password
    (    password: pft$password;
     VAR converted_password: pft$password;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    IF password = osc$null_name THEN
      converted_password := password;
      status.normal := TRUE;
    ELSE
      clp$validate_name (password, converted_password, status.normal);
      IF NOT status.normal THEN
        osp$set_status_abnormal (pfc$permanent_file_manager_id,
              pfe$bad_password, password, status);
      IFEND;
    IFEND;

  PROCEND pfi$convert_password;

*copyc clp$validate_name
*copyc osp$set_status_abnormal
*copyc pft$password
*copyc pfe$error_condition_codes
?? POP ??
