Ykdemo08 - HP XP P9500 Reference Manual

*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.) GOTO(DUPLEX)",
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* The line below shows how to execute YKRECVER.
* The situation in which you have to use this command is rare, but
* this command is useful when the primary site failed and a copy
* group between the primary and the secondary sites cannot be
* dissolved from the primary site. In such a case, YKRECVER should
* be used to forcibly dissolve a copy group from the secondary site.
*/
address TSO "YKRECVER STEM(DEMO_INFO.) MSG(DEMO_MSG.)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
say "#-- END YKDEMO07.";
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;

YKDEMO08

/* REXX
/**********************************************************************/
/*
/* All Rights Reserved. Copyright (C) 2009, 2010, Hitachi, Ltd.
/*
/**********************************************************************/
/*
/* YKDEMO08 - A sample demonstration script that illustrates
/* how to use the Business Continuity Manager's CLI commands to
"TIMEOUT(30)";
= " || DEMO_MSG.x.Text;
= " || DEMO_MSG.x.Value;
*/
*/
*/
*/
*/
*/
*/
Command details 283