Ykdemo1 1 - HP StorageWorks P9000 Reference Manual

//*********************************************************************
//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
// PEND
NOTE: The nnnnnn portion of Vnnnnnn in the sample-cataloged procedure, which differs
depending on the version.

YKDEMO1 1

/* 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
/* --------------------------------------------------------------
/* 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.
300 CLI Commands
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)
Samplib
/* YKENV indicates YKDSPENV-style output. */
Then
Then
HostID = value
LicDSN = value
BCMLog = value
CLILog = value
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/