Ykdemo09 - HP StorageWorks P9000 Reference Manual

/*
* Close the EMCS console interface that was opened by the previous
* YKCONMSG OP(OPEN) call. Note that the return code for YKCONMSG with
* the OP(CLOSE) parameter is 6 if it completed successfully.
*/
address TSO "YKCONMSG OP(CLOSE) HANDLE(x'"HandlerValue"')"
/*
* Check the return code to see if it is 6 or not. Note that the return
* code for YKCONMSG with the OP(CLOSE) parameter is 6 for
* successful completion.
*/
if rc /= 6
then do
say "YKCONMSG OP(CLOSE) failed."
exit
end
else
nop
say "#-- END YKDEMO08."
exit
/*
* printErrorMessage: This procedure prints all of the error messages
* in the Message structure when a CLI command failed.
*/
printErrorMessage: procedure expose DEMO_MSG.
do x = 1 to DEMO_MSG.0
say "Severity = " || DEMO_MSG.x.Severity
say "Text
say "Value
end
return 0

YKDEMO09

/* REXX
/**********************************************************************/
/*
/* All Rights Reserved. Copyright (C) 2009, 2010, Hitachi, Ltd.
/*
/**********************************************************************/
/*
/* YKDEMO09 - A sample demonstration script that illustrates
/* how to use the Business Continuity Manager's CLI commands to
/* perform fail-back operations in a 2DC configuration with
/* HyperSwap and UR.
/* This script can be used when DKC at the primary site has been
/* stopped for a DKC maintenance or because a DKC failure has
/* occurred.
/*
/* This sample script assumes the following settings:
/*
/* 1) The definition files are stored in the dataset with the
/* prefix "BCM.DEMO".
/* 2) The TC copy group's copy group ID is MYTCHS.
/* 3) The copy group ID between the primary and
/* remote sites is MYUR1.
/* 4) The copy group ID between the local and
/* remote sites is MYUR2.
/* 5) The route list ID is "DEMORLST".
/* 6) The primary Device Address Domain ID is "PRIM".
/*
= " || DEMO_MSG.x.Text
= " || DEMO_MSG.x.Value
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
Command details 293