Ykdemo10 - HP StorageWorks P9000 Reference Manual

* the status of MYUR2 to HOLD.
*/
address TSO "YKRESYNC STEM(DEMO_INFO.MYUR1.) MSG(DEMO_MSG.)",
/*
* Check the return code of YKRESYNC.
*/
if rc /= 0
then do
call printErrorMessage
exit
end
else
nop
/*
* Wait for completion of copying from the primary site to
* the remote site.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYUR1.) MSG(DEMO_MSG.)",
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
call printErrorMessage
exit
end
else
nop
say "#-- END YKDEMO09."
exit
/*
* printErrorMessage: This procedure prints all of the error messages
* in the Message structure when a CLI command failed.
*/
printErrorMessage: procedure expose DEMO_MSG.
do x = 1 to DEMO_MSG.0
say "Severity = " || DEMO_MSG.x.Severity
say "Text
say "Value
end
return 0

YKDEMO10

/* REXX
/**********************************************************************/
/*
/* All Rights Reserved. Copyright (C) 2009, 2010, Hitachi, Ltd.
/*
/**********************************************************************/
/*
/* YKDEMO10 is a sample demonstration script of YKWTOMSG.
/* Using YKWTOMSG, a REXX script can pass a string to another script
/* through a MCS console.
/*
298 CLI Commands
"DELTAJNL"
"GOTO(DUPLEX) TIMEOUT(30)"
= " || DEMO_MSG.x.Text
= " || DEMO_MSG.x.Value
*/
*/
*/
*/
*/
*/
*/
*/
*/