HP P9000 Business Continuity Manager Reference Guide (T5253-96058, September 2011)

/* Local */
/* Variable Description */
/* -------------------------------------------------------------- */
/* HostID Host ID */
/* LicDSN Prefix of the license information dataset */
/* BCMLog Output method of the BCM log */
/* CLILog Output setting for the CLI command-execution logs */
/* */
/* */
/**********************************************************************/
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 = Outtrap("line.")
Address TSO "YKENV" /* YKENV indicates YKDSPENV-style output. */
save_retc = rc
void = Outtrap(push_trap)
/* 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' Then HostID = value
When text == 'License info DSN prefix' Then LicDSN = value
When text == 'BCM log output method' Then BCMLog = value
When text == 'CLI log output settings' Then CLILog = value
Otherwise Nop
End
End
Else
Nop
/* Finally, print all variables. */
Say '1) Host ID = ' HostID
Say '2) License info DSN prefix = ' LicDSN
Say '3) BCM log output method = ' BCMLog
Say '4) CLI log output settings = ' CLILog
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. */
/* */
/* This sample script assumes the following settings. */
/* */
/* 1) The definition files are stored in the dataset with the */
Command details 297