HP XP P9000 for Business Continuity Manager Software Reference Guide

/**********************************************************************/
/* Beginning of sample script. */
/*
* Parse DEVN operand of YKDEMO1S cataloged procedure.
*/
parse upper arg "DEVN("op_devn")";
/*
* Retrieve a volume information in the storage system. DEVN
* operand is specified a device number of volume for input. STEM
* operand is specified a variable of volume information for output.
*/
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, 2012, 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.
298 CLI Commands