HP XP P9500 Reference Manual page 269

/*
* 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
* structure.
*/
say "-------------------------------------";
do i = 1 to DEMO_INFO.PATH.0
say "Path "i": type
say "Path "i": share? = " || DEMO_INFO.PATH.i.shared;
end;
say "-------------------------------------";
/*
* Build the command device in the primary storage system first.
* You must specify the serial number of the storage system with
* "SN" parameter such as "SN(12345)".
*/
address TSO "YKBLDCMD SN(#####) MSG(DEMO_MSG.)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
= " || DEMO_INFO.PATH.i.type;
Command details 269