pxfchmod(3F)

NAME
     PXFCHMOD - Sets file modes for a named file

SYNOPSIS
     CHARACTER*n path
     INTEGER ilen, imode, ierror
     CALL PXFCHMOD(path, ilen, imode, ierror)

IMPLEMENTATION
     UNICOS, UNICOS/mk, and IRIX systems

STANDARDS
     IEEE standard interface for FORTRAN 77

DESCRIPTION
     On IRIX systems, this routine is in libfortran.so which is linked by
     default when compiling programs with the MIPSpro 7 Fortran 90 compiler
     or when compiling programs with the -craylibs option to the MIPSpro
     F77 compiler.

     The PXFCHMOD subroutine uses the chmod(2) function to set file modes
     for the named file.

     The value of imode indicates specific file modes.  chmod() changes the
     current file modes for the named file in path to the file mode
     specified in imode.

     When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
     UNICOS, UNICOS/mk, or IRIX system, all arguments must be of default
     kind unless documented otherwise.  On UNICOS and UNICOS/mk, default
     kind is KIND=8 for integer, real, complex, and logical arguments; on
     IRIX, the default kind is KIND=4.

     The following is a list of valid arguments for this subroutine:

     path      Input character variable or array element containing the
               name of a file.

     ilen      Input integer variable containing the length of path in
               characters.  If ilen is zero, all trailing blanks are
               removed before calling chmod().

     imode     Input integer variable containing the integer value of the
               symbolic constant for one or more of the following file
               modes:

               USER      READ permissions bit:  S_IRUSR
                         WRITE permissions bit:  S_IWUSR
                         SEARCH/EXECUTE permissions bit:  S_IXUSR
                         Inclusive OR of READ/WRITE/EXECUTE:  S_IRWXU

               GROUP     READ permissions bit:  S_IRGRP
                         WRITE permissions bit:  S_IWGRP
                         SEARCH/EXECUTE permissions bit:  S_IXGRP
                         Inclusive OR of READ/WRITE/EXECUTE:  S_IRWXG

               OTHER     READ permissions bit:  S_IROTH
                         WRITE permissions bit:  S_IWOTH
                         SEARCH/EXECUTE permissions bit:  S_IXOTH
                         Inclusive OR of READ/WRITE/EXECUTE:  S_IRWXO

               SETID     Set user ID on execution:  S_ISUID
                         Set group ID on execution:  S_ISGID

                         An integer value for each of these symbolic
                         constants is retrieved through the use of
                         PXFCONST(3F) or IPXFCONST(3F).  The integer values
                         may be combined through the use of a bitwise
                         inclusive OR function.

     ierror    Output integer variable that contains zero if the requested
               file mode bits are set or nonzero if the requested file mode
               bits are not set.

     In addition to the errors returned by the chmod(2) system call,
     PXFCHMOD may return the following errors:

     EINVAL    If ilen < 0 or ilen > LEN(path).

     ENOMEM    If PXFCHMOD is unable to obtain memory to copy path.

EXAMPLES
          program test
          character*(12) path
          integer ilen, imod, ierr, imodr, imodw
          path = 'testfile'
          imod = 0
          imodr = 0
          imodw = 0
          ilen = 0

          call pxfconst('S_IRUSR',imodr,ierr)
          if (ierr.ne.0) then
              print *,'FAIL: error from pxfconst S_IRUSR = ',ierr
              stop
          endif
          call pxfconst('S_IROTH',imodw,ierr)
          if (ierr.ne.0) then
              print *,'FAIL: error from pxfconst S_IWUSR = ',ierr
              stop
          endif
          imod = IOR(imodr,imodw)
          call pxfchmod(path,ilen,imod,ierr)
          if (ierr.ne.0) then
              print *,'FAIL: error from pxfchmod = ',ierr
          else
              print *,'PASS: No error from pxfchmod'
          endif
          end

SEE ALSO
     chmod(2)

     Application Programmer's Library Reference Manual for the printed
     version of this man page.