HP StorageWorks P9000 - Page 273

* structure.
*/
say "-------------------------------------";
do i = 1 to DEMO_INFO.PATH.0
say "Path "i": type = " || DEMO_INFO.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;
else
nop;
/*
* Build the command device in the secondary storage system.
* 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;
else
nop;
/*
* YKQRYDEV retrieves the information about a volume device that was
* specified in its parameters. The following example retrieves the
* information about the command device in the primary storage system.
* The information is stored under "DEMO_CDEVP" as specified by the
* STEM parameter.
* The following code shows one way to use YKQRYDEV with SN, CU and
* CCA parameters, such as follows:
* "SN(12345) CU(10) CCA(20)"
*/
address TSO "YKQRYDEV STEM(DEMO_CDEVP.) SN(#####) CU(##) CCA(##)",
"MSG(DEMO_MSG.)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
Command details 273