HP XP P9500 HP StorageWorks P9000 for Business Continuity Manager Software Ref - Page 300

//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 Vnnnnnn 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