HP P9000, Reference Manual

Page: 300 / 399

//*********************************************************************
//YKDEMO1S EXEC PGM=IKJEFT01,TIME=1440,REGION=4096K,
// PARM='YKDEMO10 DEVN(&DEVN)'
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSABEND DD SYSOUT=*
//SYSEXEC DD DSN=HDSYK.Vnnnnnn.HDSYSAMT,DISP=SHR Samplib
// PEND
NOTE: The nnnnnn portion of
V
nnnnnn in the sample-cataloged procedure, which differs
depending on the version.
YKDEMO11
/* REXX */
/**********************************************************************/
/* */
/* All Rights Reserved. Copyright (C) 2010, Hitachi, Ltd. */
/* */
/**********************************************************************/
/* */
/* YKDEMO11 is an example script for setting BCM environment */
/* variables to local variables and then printing them out. */
/* */
/* Below is a list of local variables that store BCM environment */
/* variables. The default value for each is "N/A". */
/* */
/* 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. */
300 CLI Commands