HP XP P9500 Reference Manual page 270

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(##)",
/*
* 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 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?
say "CDEV(Primary) is status
say "CDEV(Primary)'s 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
270 CLI Commands
"MSG(DEMO_MSG.)";
= " || DEMO_CDEVP.Cdev.Info;
= " || DEMO_CDEVP.Cdev.Status;
= " || DEMO_CDEVP.Cdev.APID;