
Appendix B. REXX utility procedures 355
Parse Source . . myname . . . . omvs .
myname = Substr(myname,Lastpos("/",myname)+1)
Parse Arg grows aggregate_name .
If Verify(grows,"1234567890")<>0 | aggregate_name="" | grows=0 Then Do
Say "Syntax:" myname "grows aggregate_name"
Say "grows - number of grow runs to be performed"
Say "aggregate_name - name of the aggregate to be grown"
Exit 2
End
Do i=1 To grows
Say "Performing grow run" i||"..."
"zfsadm grow -aggregate" aggregate_name "-size 0"
If rc<>0 Then Do
Say ""
Say "The zfsadm grow was not successful; rc="||rc
Say "No further grow run will be processed, stopping..."
Exit rc
End
End
Exit 0
B.13 RXLSA ...