Ykdemo03 - HP XP P9500 Reference Manual

*/
address TSO "YKFCSTAT STEM(DEMO_INFO.) MSG(DEMO_MSG.) DEVN(####)";
/* Check the return code of YKFCSTAT to see if it is 0 or not.
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* DEMO_INFO.TARGET.STATE0 shows the status of a FlashCopy pair.
* STATE0 = 0 means that there is no FlashCopy relationship so that
* the TrueCopy pairs can be resynchronized.
*/
if DEMO_INFO.TARGET.STATE0 = 0
then
outFlag = "OUTLOOP";
else do
/* Wait for 1 minute and re-enter the loop for YKFCSTAT.
address TSO "YKSLEEP MIN(1)";
if rc /= 0
then do
end;
else
end;
end;
if i > 10
then
say "FlashCopy processing has not completed.";
else
say "FlashCopy processing has completed.";
say "#-- END YKDEMO02.";
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;

YKDEMO03

/* REXX
/**********************************************************************/
/*
/* All Rights Reserved. Copyright (C) 2007, 2010, Hitachi, Ltd.
/*
/**********************************************************************/
/*
call printErrorMessage;
exit;
nop;
= " || DEMO_MSG.x.Text;
= " || DEMO_MSG.x.Value;
*/
*/
*/
*/
*/
*/
Command details 267