Mount Command

[Cooper, Vickie]

I wanted to let you know that using rexx did the trick!  I wanted to be able to 
display how the root file system is mounted...and be able to toggle it back and forth 
from read to read/write (as needed for testing).

Here's my perl and rexx scripts to do this:

mountit.pl:
&DisplaySystemMount;                                           
print "\nDo you want to remount it?\n";                        
print "TYPE 'y' to REMOUNT it or Press <ENTER> to QUIT\n";     
$mountit = <STDIN>;                                            
chomp $mountit;                                                
for ($hfs) {                                                   
   # Starts and ends with ( )...keep what's in between ($2)    
   s/�(\()(.*)(\))$/$2/;                                       
}                                                              
if ($mountit eq "y") {                                         
  print `mountit.rexx $hfs`;                                   
  print "The system is now mounted: \n";                       
  &DisplaySystemMount;                                         
}                                                              
                                                               
sub DisplaySystemMount {                                       
@ListMounts = `df -v /`;                                       
($path, $hfs, $dummy, $dummy, $dummy, $dummy, $dummy) =        
split(' ',$ListMounts[1]);                                     
($dummy, $rw, $dummy, $dummy, $dummy, $dummy, $dummy) =        
split(' ',$ListMounts[2]);                                     
print "\n", $path, "\t", $hfs, " ", $rw, "\n";                 
}                 
                                             
mountit.rexx:
/* rexx */                                                              
trace(O)                                             
mount_point = arg(1)                                 
address SYSCALL "unmount (mount_point)" mtm_remount  


Vickie Cooper
OS/390 Web Services & FOCUS/EDA Technical Support
Phone:  (425) 957-5502
Email:   [EMAIL PROTECTED]