The Virtualization Cookbook for SLES 10 SP2 - z/VM - IBM

B.2 z/VM REXX EXECs and XEDIT macros
This section lists three z/VM REXX EXECs, one XEDIT macro and a sample parameter file.
B.2.1 The CPFORMAT EXEC
Following is the code for the EXEC that formats multiple disks using CPFMTXA (described in
section 4.6.1, “Formatting the paging volumes” on page 47):
/*+------------------------------------------------------------------+*/
/*| 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 11 SP1"
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 6"
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 = 'U' /* change this for an LPAR ID other than 'U' */
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 expose firstChar
/*+------------------------------------------------------------------+*/
parse source . . fn .
say ''
say 'Synopsis:'
244 The Virtualization Cookbook for RHEL 6