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

cp_cmd LINK $source_id $source_mdisk $target_mdisk $link_mode $LINK_PASSWD
if [ $? != 0 ]; then
echo "cp_cmd link $source_id $source_mdisk $target_mdisk $link_mode failed -
exiting"
abort 1
fi
}
#+--------------------------------------------------------------------------+
function unlink_one
# This will unlink a minidisk from the current z/VM user id.
# Arg1: The target minidisk to unlink
#+--------------------------------------------------------------------------+
{
cp_cmd DETACH $1
return $?
}
#+--------------------------------------------------------------------------+
function copy_one
# Try to use z/VM FLASHCOPY to copy one disk to another. If that fails,
# call dd_copy() to fall back to the Linux DD command
# Arg 1: Source minidisk
# Arg 2: Target minidisk
#+--------------------------------------------------------------------------+
{
source_mdisk=$1
target_mdisk=$2
if [ "$CLONE_METHOD" == "AUTO" -o "$CLONE_METHOD" == "auto" ] ; then
cp_cmd FLASHCOPY $source_mdisk 0 END $target_mdisk 0 END
rc=$?
if [ $rc -ne 0 ]; then # FLASHCOPY failed
[ -n "$VERBOSE" ] && echo "FLASHCOPY $source_mdisk $target_mdisk failed with $rc -
using Linux dd"
else
return 0
fi
fi
dd_copy $source_mdisk $target_mdisk
[ $? -ne 0 ] && return 1
}
#+--------------------------------------------------------------------------+
function copy_disks
# Call copy_one to copy each disk passed in as an argument.
# Arg1-n: The minidisk address to copy
#+--------------------------------------------------------------------------+
{
[ -n "$VERBOSE" ] && echo "Copying minidisks..."
while [ $# -gt 0 ]; do
link_one $source_linux_id $1 $MASTER_LINK RR
link_one $target_linux_id $1 $CLONE_LINK W
copy_one $MASTER_LINK $CLONE_LINK
[ $? -eq 0 ] && echo "$1 disk copied ..."
unlink_one $MASTER_LINK
unlink_one $CLONE_LINK
shift
done
256 The Virtualization Cookbook for RHEL 6