Ykdemo02 - HP StorageWorks P9000 Reference Manual

nop;
/*
* Wait until all copy pairs in TCS copy group get fully dissolved.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.) GOTO(SIMPLEX)",
/*
* Check to see if the return code is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
call printCopyGroupStatus;
say "#-- END YKDEMO01."; /* The sample script completed.
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;
/*
* printCopyGroupStatus: This procedure prints the status information
* of copy pairs in the copy group "MYTCS".
*/
printCopyGroupStatus: procedure expose DEMO_INFO.
say DEMO_INFO.ID || " -- status information."
say "
say "
say "
return 0;

YKDEMO02

/* REXX
/**********************************************************************/
/*
/* All Rights Reserved. Copyright (C) 2007, 2010, Hitachi, Ltd.
/*
/**********************************************************************/
/*
/* YKDEMO02 - A sample demonstration script that illustrates how to
/* use the Business Continuity Manager's REXX CLI commands for
/* linkage with FlashCopy.
/*
/* This sample script uses the following CLI commands.
/* - YKFCSTAT
/* - YKSLEEP
"TIMEOUT(30)";
= " || DEMO_MSG.x.Text;
= " || DEMO_MSG.x.Value;
Simplex pairs = " || DEMO_INFO.SimplexCt;
Duplex pairs = " || DEMO_INFO.DuplexCt;
Suspend pairs = " || DEMO_INFO.SuspendOpCt;
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
Command details 269