PERMIT
.PROC,PERMIT*I,\
REALFN  ' ACTUAL FILE NAME                     ' =(*F), 
SYMFN   ' SYMBOLIC FILE NAME                   ' =(*F), 
. 
  
*CALL PSRLEV
  
.***** PERMIT 
.*
.*  THIS PROCEDURE PERMITS FILES CREATED DURING THE 
.*  BUILD PROCESS TO VARIOUS USER NAMES.  A SITE
.*  MAY ALTER THESE PERMISSIONS TO FIT THEIR OWN
.*  CONFIGURATION.  A SITE MAY ALSO ADD PERMIT
.*  CALLS TO THE PRODUCT INSTALLATION PROCEDURES
.*  FOR OTHER FILES THEY ARE INTERESTED IN.  EVERY
.*  PERMIT CALL ADDED TO THOSE PROCEDURES (E.G.,
.*  CHA1) REQUIRES A MATCHING IF TEST ADDED TO
.*  THIS PROCEDURE. 
.*
.*  SOME OF THE FILES, SUCH AS GLOBLIB, PRODUCT 
.*  AND SYSGEN, ARE CREATED IN SEMI-PRIVATE MODE. 
.*  THIS IS TO INSURE THAT IF INSTALLATION USER 
.*  NAMES ARE CHANGED, THESE FILES ARE AVAILABLE
.*  FOR UPGRADES. 
.*
  
*************** P E R M I T **********************
  
.IF, $SYMFN$ .EQ. $GLOBLIB$,PERMIT1.
  PERMIT(REALFN,NETADMN=R,SYSTEMX=R)
.ENDIF,PERMIT1. 
  
.IF, $SYMFN$ .EQ. $PRODUCT$,PERMIT2.
  PERMIT(REALFN,NETADMN=R)
.ENDIF,PERMIT2. 
  
.IF, $SYMFN$ .EQ. $NLFFILE$,PERMIT3.
  PERMIT(REALFN,NETOPS=R) 
.ENDIF,PERMIT3. 
  
.IF, $SYMFN$ .EQ. $HTF$,PERMIT4.
  PERMIT(REALFN,NETADMN=R)
.ENDIF,PERMIT4. 
  
.IF, $SYMFN$ .EQ. $HRF$,PERMIT5.
  PERMIT(REALFN,NETADMN=R)
.ENDIF,PERMIT5. 
  
.IF, $SYMFN$ .EQ. $HLF$,PERMIT6.
  PERMIT(REALFN,NETADMN=R)
.ENDIF,PERMIT6. 
  
.IF, $SYMFN$ .EQ. $SYSGEN$,PERMIT7. 
  PERMIT(REALFN,SYSTEMX=R)
.ENDIF,PERMIT7. 
  
REVERT.  PERMIT **********************************
EXIT. 
REVERT(ABORT)  PERMIT ****************************
*WEOR 
