Ykdemo1S; Ykdemo1 1 - HP XP P9500 Reference Manual

*/
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
" CDEV's 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,
//
//SYSTSPRT DD SYSOUT=*
//SYSTSIN
//SYSABEND DD SYSOUT=*
//SYSEXEC
//
NOTE: The nnnnnn portion of Vnnnnnn in the sample-cataloged procedure, which differs
depending on the version.

YKDEMO1 1

/* 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.
296 CLI Commands
= " || DEMO.CDEV.STATUS, ,
= " || DEMO.CDEV.APID
PARM='YKDEMO10 DEVN(&DEVN)'
DD DUMMY
DD DSN=HDSYK.Vnnnnnn.HDSYSAMT,DISP=SHR
PEND
,
,
);
Samplib
*/
*/
*/
*/
*/
*/
*/