HP StorageWorks P9000 - Page 272

* 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)",
"DAD(PRIM) ROUTE(DEMORLST) MSG(DEMO_MSG.)";
/*
* 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.)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Query for the information of the logical paths that were built
* in the previous call of YKBLDPTH. The updated information will be
* stored in the REXX variable under "DEMO_INFO.PATH".
* You may also check the return code for being larger than 4, as
* 4 also indicates successful completion of the command with some
* logical paths being identified to be in invalid condition.
*/
address TSO "YKQRYPTH 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;
/*
* Print the information in the Path Set structure about the logical
* paths that were built in the previous YKBLDPTH.
* Following lines print the path type and whether it is shared.
* Refer to the Business Continuity Manager Reference Guide for the
* full details about information items available in the Path Set
272 CLI Commands