Ykdemo05 - HP StorageWorks P9000 Reference Manual

/*
* Check the return code to see if it is 6 or not. Note that the return
* code for YKCONMSG with OP(CLOSE) is 6 for successful completion.
*/
if rc /= 6
then do
say "YKCONMSG OP(CLOSE) failed.";
exit;
end;
else
nop;
say "#-- END YKDEMO04.";
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;

YKDEMO05

/* REXX
/**********************************************************************/
/*
/* All Rights Reserved. Copyright (C) 2007, 2010, Hitachi, Ltd.
/*
/**********************************************************************/
/*
/* YKDEMO05 - A sample demonstration script that illustrates how to
/* use the Business Continuity Manager's REXX CLI commands for
/* obtaining various copy group information.
/*
/* This sample script uses the following CLI commands.
/* - YKLOAD
/* - YKQUERY
/* - YKSTATS
/*
/* This sample script assumes the following settings.
/*
/* 1) The definition files are stored in the dataset with the
/* prefix "BCM.DEMO".
/* 2) TC-Async copy group is used. The copy group ID is "MYTCA".
/* 3) The route list ID is "DEMORLST".
/* 4) The primary Device Address Domain ID is "PRIM".
/*
/**********************************************************************/
/* Sample script begins. */
say "#-- BEGIN YKDEMO05.";
address TSO "YKENV"
/*
* YKLOAD should be called before manipulating MYTCA to make definition
* information of MYTCA available on the REXX environment.
*/
call "YKLOAD" "STEM(DEMO_INFO.) PREFIX(BCM.DEMO) GROUP(MYTCA)",
280 CLI Commands
= " || DEMO_MSG.x.Text;
= " || DEMO_MSG.x.Value;
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/