HP StorageWorks P9000

then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Print the information in the command device in the primary
* storage system.
* Refer to the Business Continuity Manager Reference Guide for the
* full details about information items available by YKQRYDEV.
*/
say "-------------------------------------";
say "CDEV(Primary) DKC's SSID = " || DEMO_CDEVP.SSID;
say "CDEV(Primary) is valid? = " || DEMO_CDEVP.Cdev.Info;
say "CDEV(Primary) is status = " || DEMO_CDEVP.Cdev.Status;
say "CDEV(Primary)'s APID = " || DEMO_CDEVP.Cdev.APID;
say "-------------------------------------";
/*
* The following example retrieves the information about the command
* device in the secondary storage system.
* The information is stored under "DEMO_CDEVS" 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_CDEVS.) SN(#####) CU(##) CCA(##)",
"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 command device in the secondary
* storage system.
*/
say "-------------------------------------";
say "CDEV(Secondary) DKC's SSID = " || DEMO_CDEVS.SSID;
say "CDEV(Secondary) is valid? = " || DEMO_CDEVS.Cdev.Info;
say "CDEV(Secondary) is status = " || DEMO_CDEVS.Cdev.Status;
say "CDEV(Secondary)'s APID = " || DEMO_CDEVS.Cdev.APID;
say "-------------------------------------";
/*
* Delete the command device in the secondary storage system.
* Note that the secondary command device is deleted first. This is
* because YKDELCMD command should be sent to the secondary site. If
* the primary command device was deleted first, there is no way for
* BC Manager to send the command to the secondary command device.
* The following code shows one way to use YKDELCMD with SN, CU, CCA
* and APID parameters, such as follows:
* "SN(12345) CU(10) CCA(20) APID(5613)"
274 CLI Commands