HP XP P9500 Reference Manual page 268

/* 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"
/*
* YKLOAD should be called to load the information about a pathset
* and a route list into the REXX environment.
*/
call "YKLOAD" "STEM(DEMO_INFO.) PREFIX(BCM.DEMO) PATH(DEMOPATH)",
/*
* Make sure that YKLOAD completed successfully. If YKLOAD failed,
* the return value "result" is non-zero.
*/
if result /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Now build the logical paths between the primary and the secondary
* storage systems in direction from the primary storage system
* to the secondary storage system.
*/
address TSO "YKBLDPTH STEM(DEMO_INFO.) MSG(DEMO_MSG.)";
268 CLI Commands
"DAD(PRIM) ROUTE(DEMORLST) MSG(DEMO_MSG.)";
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/