$! If a disk device in a cluster has not already been discovered by the SCS
$! polling process immediately, wait for up to 5 minutes until the device
$! is found.
$
$! In a cluster, device configuration is asynchronous, and the system startup
$! procedures might be executed before all disks have been located.  This is
$! often the case for SYLOGICALS.COM, where disks needed by startup procedures
$! should be mounted.
$!
$! To invoke this procedure to mount disk FERGIE$DUA0 with
$! label FERGIE_SYS, you would type:
$!
$!     @SYS$MANAGER:CLU_DISK_MOUNT  "FERGIE$DUA0"  "FERGIE_SYS"
$!
$!
$ SET NOON
$ COUNT = 0
$ SEARCH_DISK:
$    IF F$GETDVI("''P1'","EXISTS") THEN GOTO FOUND_DISK
$    IF COUNT .EQ. 0 THEN WRITE SYS$OUTPUT "Searching for disk ''P1'..."
$    COUNT = COUNT + 1
$    IF COUNT .GT. 300 THEN GOTO NOT_FOUND
$    WAIT 00:00:01.00
$    GOTO SEARCH_DISK
$ !
$ FOUND_DISK:
$ SET NOON
$ MOUNT/SYSTEM/NOASSIST 'P1' 'P2'
$ EXIT
$
$ NOT_FOUND:
$ WRITE SYS$OUTPUT "Disk ''P1' did not appear within 5 minutes..."
$ EXIT 2312     !SS$_NOSUCHDEV