say "#-- END YKDEMO02.";
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;
YKDEMO03
/* REXX
/**********************************************************************/
/*
/* All Rights Reserved. Copyright (C) 2007, 2010, Hitachi, Ltd.
/*
/**********************************************************************/
/*
/* YKDEMO03 - A sample demonstration script that illustrates how to
/*
use the Business Continuity Manager's REXX CLI commands for
/*
establishing and deleting routes (command devices) and logical
/*
paths between two storage systems.
/*
This sample script first establishes logical paths from the
/*
primary storage system to the secondary storage system. Once
/*
the logical paths between two storage systems are established,
/*
the script will then build a command device in the primary
/*
storage system first, then a command device at the secondary
/*
storage system.
/*
Once the command devices are established, the sample script
/*
then deletes the command devices in reverse order, then finally */
/*
deletes the logical paths that it established in the beginning
/*
of the script.
/*
/*
This sample script uses the following CLI commands.
/*
- YKLOAD
/*
- YKBLDCMD
/*
- YKBLDPTH
/*
- YKDELCMD
/*
- YKDELPTH
/*
- YKQRYDEV
/*
- YKQRYPTH
/*
/*
This sample script assumes the following settings.
/*
/*
1) The definition files are stored in the dataset with the
/*
prefix "BCM.DEMO".
/*
2) The pathset ID is "DEMOPATH". "DEMOPATH" contains the
/*
definition of logical paths in one direction, from the
/*
primary storage system to the secondary storage system.
/*
3) The route list ID is "DEMORLST".
/*
4) The primary Device Address Domain ID is "PRIM".
/*
/**********************************************************************/
/* Sample script begins. */
say "#-- BEGIN YKDEMO03.";
address TSO "YKENV"
/*
= " || DEMO_MSG.x.Text;
= " || DEMO_MSG.x.Value;
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
Command details 271