$! If the devices in a cluster are not discovered by
$! the SCS polling process immediately, loop and wait
$! until the devices are found. This is a symptom of
$! a large dual boot node LAVc.
$!
$! 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
$ SEARCH_DISK:
$    WRITE SYS$OUTPUT "Searching for disk ''P1'..."
$    WAIT 00:00:30
$    IF .NOT. F$GETDVI("''P1'","EXISTS") THEN GOTO SEARCH_DISK
$ !
$ SET NOON
$ MOUNT/SYSTEM/NOASS 'P1' 'P2'
$ EXIT