{
{   The purpose of this routine is to return the file password for a file.  If
{ the user is not permitted to know this password, or if the file path is  not
{ a  file  the  caller  has  access to, osc$null_name will be returned for the
{ password.
{
{       PUP$GET_FILE_PASSWORD (FILE_PATH, PASSWORD)
{
{ FILE_PATH: (input) This parameter specifies the name of the  permanent  file
{       whose password is to be obtained.
{
{ PASSWORD:  (output)  This parameter returns the file password.  If any error
{       occurred, or if the requester is not permitted to  the  password  then
{       osc$null_name is returned.
{
