HP P9000 Business Continuity Manager Reference Guide (T5253-96058, September 2011)

*/
address TSO "YKQRYDEV STEM(DEMO.) DEVN("op_devn") MSG(MSG.)";
retcode = rc;
/*
* Check the return code of YKQRYDEV.
*/
if retcode /= 0
then do
/*
* Found errors during YKQRYDEV. Writing USR001E message with
* return code of the command to MCS console. Then, terminate
* the script.
*/
wtorc = YKWTOMSG("E", "USR001E YKQRYDEV error, rc=" || retcode);
exit retcode;
end;
else
nop;
/*
* Retrieve volume information successfully. Writing USR000I message
* with some command device related attributes to MCS console.
*/
wtorc = YKWTOMSG("I", ,
"USR000I YKQRYDEV rc=0", ,
" Device is valid? = " || DEMO.CDEV.INFO, ,
" Device status = " || DEMO.CDEV.STATUS, ,
" CDEV's APID = " || DEMO.CDEV.APID );
/*
* Terminate the sample script successfully.
*/
exit 0;
YKDEMO1S
//YKDEMO1S PROC DEVN=
//*********************************************************************
//*
//* All Rights Reserved. Copyright (C) 2009, 2010, Hitachi, Ltd. //*
//*********************************************************************
//YKDEMO1S EXEC PGM=IKJEFT01,TIME=1440,REGION=4096K,
// PARM='YKDEMO10 DEVN(&DEVN)'
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSABEND DD SYSOUT=*
//SYSEXEC DD DSN=HDSYK.Vnnnnnn.HDSYSAMT,DISP=SHR Samplib
// PEND
NOTE: The nnnnnn portion of Vnnnnnn in the sample-cataloged procedure, which differs
depending on the version.
YKDEMO11
/* REXX */
/**********************************************************************/
/* */
/* All Rights Reserved. Copyright (C) 2010, Hitachi, Ltd. */
/* */
/**********************************************************************/
/* */
/* YKDEMO11 is an example script for setting BCM environment */
/* variables to local variables and then printing them out. */
/* */
/* Below is a list of local variables that store BCM environment */
/* variables. The default value for each is "N/A". */
/* */
296 CLI Commands