Ykdemo12 - HP XP P9500 Reference Manual

/*
/* Below is a list of local variables that store BCM environment
/* variables. The default value for each is "N/A".
/*
/* Local
/* Variable
/* --------------------------------------------------------------
/* HostID
/* LicDSN
/* BCMLog
/* CLILog
/*
/*
/**********************************************************************/
HostID = "N/A"
LicDSN = "N/A"
BCMLog = "N/A"
CLILog = "N/A"
/* Execute OUTTRAP function on the YKDSPENV-style output. All
/* statuses are stored in LINE.
push_trap = Outtrap()
void
Address TSO "YKENV"
save_retc = rc
void
/* Parse each line of the LINE array to get the status of the
/* environment variables.
If save_retc = 0 Then
Do i = 1 To line.0
Parse Var line.i text ':' value .
Select
When text == 'Host ID'
When text == 'License info DSN prefix' Then
When text == 'BCM log output method'
When text == 'CLI log output settings' Then
Otherwise Nop
End
End
Else
Nop
/* Finally, print all variables.
Say '1) Host ID
Say '2) License info DSN prefix
Say '3) BCM log output method
Say '4) CLI log output settings
Exit save_retc

YKDEMO12

/* REXX
/**********************************************************************/
/*
/* All Rights Reserved. Copyright (C) 2011, Hitachi, Ltd.
/*
/**********************************************************************/
/*
/* YKDEMO12 is an example script that demonstrates recovery of TC
/* pairs that became inconsistent because of interrupted FlashCopy
/* copy process. This script discovers CONSLOST copy pairs in the TC
/* group, deletes them, and then re-creates them.
Description
Host ID
Prefix of the license information dataset
Output method of the BCM log
Output setting for the CLI command-execution logs
= Outtrap("line.")
= Outtrap(push_trap)
/* YKENV indicates YKDSPENV-style output. */
Then
Then
= ' HostID
= ' LicDSN
= ' BCMLog
= ' CLILog
HostID = value
LicDSN = value
BCMLog = value
CLILog = value
*/
*/
*/
*/
*/
*/
*/
*/
*/
Command details 297
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/