Right, LPAR name is not automatically set in a static symbol. I guess in nearly 20 years of sysplex we've never needed Rexx access to that name. However, it would be a simple matter to set an installation symbol like this in IEASYMxx:
SYSDEF LPARNAME(lpar-name) /* For this LPAR */ SYMDEF(pppLPAR=lpar-name) /* Set installation symbol */ where 'lpar-name' is the name of an LPAR and 'ppp' (optional) is an installation-specific prefix used in all locally defined symbols. I recommend using the SHARE installation code here. There would be one pair of such statements for each LPAR that shares IEASYMxx. In a Rexx, MVSVAR(pppLPAR) would return the name of the current LPAR. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile [email protected] From: John McKown <[email protected]> To: [email protected], Date: 09/02/2014 03:27 PM Subject: Re: z/OS SMTP server Sent by: IBM Mainframe Discussion List <[email protected]> On Tue, Sep 2, 2014 at 4:09 PM, Skip Robinson <[email protected]> wrote: > SMFID is <= 4 characters and is independent of SYSNAME, which is <= 8 > characters. They may be set the same by the installation. MVSVAR(SYSNAME) > returns the LPAR name. Not really the LPAR name. That name is defined in the IOCDS at the hardware level. The MVSVAR can return: (1) the SYSSMFID which is <= 4 characters in length and defined in the SMFPRMxx member of PARMLIB; (2) the SYSNAME which is defined in the IEASYSnn member of PARMLIB and is normally used to specify the system name in a sysplex and in DFP SMS constructs. The LPAR name does not appear to be available using TSO REXX. You can see it in the output of the z/OS operator command: D M=CPU . It is >=1 & <= 8 just like the SYSNAME, but need not have the same value. This value can be gotten via the CSRSI macro in HLASM or the CSRSI callable service in an HLL. At my shop, we set all 3 to the same value. > > . > . > J.O.Skip Robinson > Southern California Edison Company > Electric Dragon Team Paddler > SHARE MVS Program Co-Manager > 626-302-7535 Office > 323-715-0595 Mobile > [email protected] > -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
