Code:
- /* ---------------------------------------------------------------- */
- /* REMOUNT-This procedure will unmount/remount network file server */
- /* (NFS) directories. Useful for the VARYON, or when GDIHQ does a */
- /* Mimix switch. */
- /* */
- /* This procedure was written by R.Berendt of GDI. */
- /* Modification log: */
- /* 02/22/13-R.Berendt, CDP GDS, LLC */
- /* */
- /* ---------------------------------------------------------------- */
- PGM
-
-
- /* +
- | Unmount the standard mounted directories. Useful for a Mimix switch. +
- | Kind of senseless for the VARYON. But shouldn't cause an issue. +
- | No error is generated if the directory is already unmounted. +
- */
- UNMOUNT TYPE(*NFS) MNTOVRDIR('/gdihq/tmp')
- UNMOUNT TYPE(*NFS) MNTOVRDIR('/gdihq/accounting')
-
-
- /* Mount a nfs directory so that when an application on this machine tries +
- | to access the /gdihq/tmp directory it is really accessing the /tmp +
- | directory on GDIHQ. +
- | Changed from hard to soft on 3/21/2013 to help with H/A switches. +
- */
- /* MOUNT TYPE(*NFS) MFS('gdihq:/tmp') MNTOVRDIR('/gdihq/tmp') */
- MOUNT TYPE(*NFS) MFS('gdihq:/tmp') MNTOVRDIR('/gdihq/tmp') +
- OPTIONS('rw,suid,retry=5,rsize=32768,wsize=32768,timeo=20,retrans=5,+
- acregmin=30,acregmax=60,acdirmin=30,acdirmax=60,soft,async,+
- sec=sys,vers=3:2,nocache')
- /* MOUNT TYPE(*NFS) MFS('gdihq:/accounting') MNTOVRDIR('/gdihq/accounting') */
- MOUNT TYPE(*NFS) MFS('gdihq:/accounting') MNTOVRDIR('/gdihq/accounting') +
- OPTIONS('rw,suid,retry=5,rsize=32768,wsize=32768,timeo=20,retrans=5,+
- acregmin=30,acregmax=60,acdirmin=30,acdirmax=60,soft,async,+
- sec=sys,vers=3:2,nocache')
-
-
- END:
- DSPJOBLOG OUTPUT(*PRINT)
- ENDPGM
|
|