midrange.com code scratchpad
Name:
REMOUNT: Mounts IFS files. Called by 'clients'
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
04/05/2013 05:59:52 pm
IP:
Logged
Description:
The user was to lazy to give a description
Code:
  1. /* ---------------------------------------------------------------- */
  2. /* REMOUNT-This procedure will unmount/remount network file server  */
  3. /* (NFS) directories.  Useful for the VARYON, or when GDIHQ does a  */
  4. /* Mimix switch.                                                    */
  5. /*                                                                  */
  6. /* This procedure was written by R.Berendt of GDI.                  */
  7. /* Modification log:                                                */
  8. /* 02/22/13-R.Berendt, CDP   GDS, LLC                               */
  9. /*                                                                  */
  10. /* ---------------------------------------------------------------- */
  11. PGM
  12.  
  13.  
  14.     /*                                                                         +
  15.      | Unmount the standard mounted directories.  Useful for a Mimix switch.   +
  16.      | Kind of senseless for the VARYON.  But shouldn't cause an issue.        +
  17.      | No error is generated if the directory is already unmounted.            +
  18.     */
  19. UNMOUNT TYPE(*NFS) MNTOVRDIR('/gdihq/tmp')
  20. UNMOUNT TYPE(*NFS) MNTOVRDIR('/gdihq/accounting')
  21.  
  22.  
  23.     /* Mount a nfs directory so that when an application on this machine tries +
  24.      | to access the /gdihq/tmp directory it is really accessing the /tmp      +
  25.      | directory on GDIHQ.                                                     +
  26.      | Changed from hard to soft on 3/21/2013 to help with H/A switches.       +
  27.     */
  28. /* MOUNT TYPE(*NFS) MFS('gdihq:/tmp')        MNTOVRDIR('/gdihq/tmp') */
  29. MOUNT TYPE(*NFS) MFS('gdihq:/tmp')        MNTOVRDIR('/gdihq/tmp') +
  30.       OPTIONS('rw,suid,retry=5,rsize=32768,wsize=32768,timeo=20,retrans=5,+
  31.                acregmin=30,acregmax=60,acdirmin=30,acdirmax=60,soft,async,+
  32.                sec=sys,vers=3:2,nocache')
  33. /* MOUNT TYPE(*NFS) MFS('gdihq:/accounting') MNTOVRDIR('/gdihq/accounting') */
  34. MOUNT TYPE(*NFS) MFS('gdihq:/accounting') MNTOVRDIR('/gdihq/accounting') +
  35.       OPTIONS('rw,suid,retry=5,rsize=32768,wsize=32768,timeo=20,retrans=5,+
  36.                acregmin=30,acregmax=60,acdirmin=30,acdirmax=60,soft,async,+
  37.                sec=sys,vers=3:2,nocache')
  38.  
  39.  
  40. END:
  41. DSPJOBLOG OUTPUT(*PRINT)
  42. ENDPGM 
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css