Ykdemo04 - HP XP P9500 Reference Manual

*/
address TSO "YKDELCMD SN(#####) MSG(DEMO_MSG.) CU(##) CCA(##)",
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Delete the logical paths to clean up the configuration.
* If a logical path is defined and built as a "shared" path, the FORCE
* option must be specified to delete such path. When using this
* option, make sure that no one else is using the same path because
* deleting such a shared path will affect other users or applications
* who are using the same path.
*/
address TSO "YKDELPTH STEM(DEMO_INFO.) MSG(DEMO_MSG.)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
say "#-- END YKDEMO03."; /* The sample script completed.
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;

YKDEMO04

/* REXX
/**********************************************************************/
/*
/* All Rights Reserved. Copyright (C) 2007, 2010, Hitachi, Ltd.
/*
/**********************************************************************/
/*
/* YKDEMO04 - A sample demonstration script that illustrates how to
272 CLI Commands
"APID(####)";
= " || DEMO_MSG.x.Text;
= " || DEMO_MSG.x.Value;
*/
*/
*/
*/
*/
*/
*/