HP XP P9500 Reference Manual page 273

/* use the Business Continuity Manager's REXX CLI commands for
/* using Extended C/T Group feature of TrueCopy Synchronous.
/* This script will continue monitoring for IEA494I message for
/* a suspended copy pair in the given TC-Sync copy group for 120
/* seconds.
/*
/* This sample script uses the following CLI commands.
/* - YKLOAD
/* - YKEWAIT
/* - YKCONMSG
/* - YKFREEZE
/* - YKSUSPND
/* - YKRUN
/*
/* This sample script assumes the following settings.
/*
/* 1) The definition files are stored in the dataset with the
/* prefix "BCM.DEMO".
/* 2) TC-Sync copy group is used. The copy group ID is "MYTCS".
/* 3) The route list ID is "DEMORLST".
/* 4) The primary Device Address Domain ID is "PRIM".
/*
/**********************************************************************/
/* Sample script begins. */
say "#-- BEGIN YKDEMO04.";
address TSO "YKENV"
/*
* YKLOAD should be called before manipulating MYTCS to make definition
* information of MYTCS available on the REXX environment.
*/
call "YKLOAD" "STEM(DEMO_INFO.) PREFIX(BCM.DEMO) GROUP(MYTCS)",
"DAD(PRIM) MSG(DEMO_MSG.) ROUTE(DEMORLST)";
/*
* Check the return code of YKLOAD to see if it is 0 or not.
*/
if result /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* As in YKDEMO01, YKEWAIT can be used to update the copy group
* status information quickly.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.) GOTO(SIMPLEX)",
"TIMEOUT(0) NOINVALIDCHECK";
/*
* Check the return code to see if it is bigger than 8.
*/
if rc > 8
then do
call printErrorMessage;
exit;
end;
else
nop;
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
Command details 273