216 The Virtualization Cookbook for Red Hat Enterprise Linux 5.2
z/VM REXX EXECs and XEDIT macros
This section lists z/VM REXX EXECs and XEDIT macros.
The CPFORMAT EXEC
Following is the code for the EXEC that formats multiple disks using CPFMTXA (described in
4.6.1, “Formatting the paging volumes” on page 48):
/*+------------------------------------------------------------------+*/
/*| EXEC: CPFORMAT - wrapper around CPFMTXA to format many DASD |*/
/*| retVal: 0 - success |*/
/*| 1 - help was asked for or given |*/
/*| 2 - user is not sure |*/
/*| 3 - DASD (minidisk) range is not valid |*/
/*| 4 - at least one DASD (minidisk) is reserved to MAINT |*/
/*+------------------------------------------------------------------+*/
/* For details on how this EXEC is used, see one of the two books:
"z/VM and Linux on IBM System z: The Virtualization Cookbook for SLES 10 SP2"
on the Web at: http://www.redbooks.ibm.com/abstracts/SG247493.html
-or-
"z/VM and Linux on IBM System z: The Virtualization Cookbook for RHEL 5.2"
on the Web at: http://www.redbooks.ibm.com/abstracts/SG247492.html */
/*------------------------------------------------------------------
THE PROGRAM IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR
CONDITIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT
LIMITATION, ANY WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT,
MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
NEITHER RECIPIENT NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR
ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
THE USE OR DISTRIBUTION OF THE PROGRAM OR THE EXERCISE OF ANY RIGHTS
GRANTED HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES
-------------------------------------------------------------------*/
firstChar = 'M' /* change this for an LPAR ID other than 'M' */
parse upper arg dasds "AS " type
if ((dasds = '') | (dasds = '?')) then call help
labelPrefix = getLabelPrefix(firstChar type)
numDasd = parseDasd(dasds)
answer = areYouSure(type)
if (answer = 'Y') then /* the user is sure */
do
formatted = ""
retVal = doFormat(labelPrefix numDasd type)
call doReport retVal
end
else
retVal = 2
exit retVal
/*+------------------------------------------------------------------+*/
help: procedure
/*+------------------------------------------------------------------+*/
parse source . . fn .
say ''
say 'Synopsis:'
Komentarze do niniejszej Instrukcji