doing something stupid

McKown, John

unread,

Mar 24, 2008, 10:26:39 AM3/24/08

to

I am trying to design a very simple "popup" type window to display the
ZSYSID variable. For some reason, instead of getting the value (LIH1),
it is remaining &ZSYSID. This seems too simple to mess up, but I've done
it. Help gratefully received:

<panel>
)BODY WINDOW(40,1)
You are running on system: &ZSYSID
)END
</panel>

<program language="REXX">
/* REXX */
ADDRESS ISPEXEC
ZWINTTL = "System Identifier"
"ADDPOP"
"DISPLAY PANEL(SYSID)"
"REMPOP"
</program>

The &ZSYSID variable is being correctly replaced with "LIH1" on another
panel.

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential. It is for intended addressee(s) only. If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense. If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.

Seibert, Dave

unread,

Mar 24, 2008, 10:41:30 AM3/24/08

to

Hi John,

I don't see what you're doing wrong. But...
Here's my (ancient) version of what you're doing:

)ATTR DEFAULT(%+_)
% TYPE(OUTPUT) INTENS(HIGH)
+ TYPE(TEXT) INTENS(LOW) skip(on)
_ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT)
~ TYPE(text) INTENS(high) CAPS(off) skip(on) color(green)
)BODY WINDOW(21,4)
DB2%Z +DB2I%Z +
CPU%Z + PROF%Z +
TSOE%tsoe+Ispf%env+
%Z +
)INIT
.HELP = HTROUBLE
.ZVARS = '(XDB2,DSNEOV01,zsysid,ZAPPLID,zos390rl)'
&throaway = trunc(&zenvir,5)
&env = .TRAIL
)END

/* rexx */

arg col_no row_no TR_parm

If Tr_parm <> '' then
do;trace_on=1;Tr_stmt='TRACE 'Tr_parm;interpret Tr_stmt;end
else trace_on = 0

If LENGTH(col_no) < 1 THEN
col_no = 70
If LENGTH(ROW_NO) < 1 THEN
ROW_NO = -2

zwinttl = Date('D')'/'time('L')
tsoe = sysvar(systsoe)

/* no longer using Zispfos variable. Acc. to Matt Seabold from ISPF
development, ZISPFOS is the release of OS/390 delivered with the
release of ISPF. So if OS/390 is released without a new ISPF
it'll be back-level. ZOS390RL is more reliable
*/

ADDRESS 'ISPEXEC'
'VGET (ZAPPLID zos390rl zispfos zsysid)'
'VGET (XDB2 DSNEOV01) PROFILE'

'ADDPOP COLUMN('col_no') ROW('row_no')'

'DISPLAY PANEL(SHOWV3)'
'REMPOP'
exit

Dave

The contents of this e-mail are intended for the named addressee only. It contains information that may be confidential. Unless you are the named addressee or an authorized designee, you may not copy or use it, or disclose it to anyone else. If you received it in error please notify us immediately and then destroy it.

John P Kalinich

unread,

Mar 24, 2008, 10:45:29 AM3/24/08

to

John Mckown of the ISPF discussion list <ISP...@LISTSERV.ND.EDU> wrote on
03/24/2008 09:17:33 AM:

> I am trying to design a very simple "popup" type window to display the
> ZSYSID variable. For some reason, instead of getting the value (LIH1),
> it is remaining &ZSYSID. This seems too simple to mess up, but I've done
> it. Help gratefully received:
>
> <panel>
> )BODY WINDOW(40,1)
> You are running on system: &ZSYSID
> )END
> </panel>
>
> <program language="REXX">
> /* REXX */
> ADDRESS ISPEXEC
> ZWINTTL = "System Identifier"
> "ADDPOP"
> "DISPLAY PANEL(SYSID)"
> "REMPOP"
> </program>
>
> The &ZSYSID variable is being correctly replaced with "LIH1" on another
> panel.
>

You need to VGET it from the SHARED pool in the )INIT section of the popup.

Regards,
John K

McKown, John

unread,

Mar 24, 2008, 10:51:59 AM3/24/08

to

Dave,

Thanks for the thought. I put in a )ATTR section with

@ TYPE(OUTPUT) INTENS(HIGH)

and replaced &ZSYSID with @ZSYSID and got the display that I wanted.
Good enough for me.

Mark Zelden

unread,

Mar 24, 2008, 10:58:36 AM3/24/08

to

On Mon, 24 Mar 2008 09:47:49 -0500, McKown, John
<John....@HEALTHMARKETS.COM> wrote:

>Dave,
>
>Thanks for the thought. I put in a )ATTR section with
>
>@ TYPE(OUTPUT) INTENS(HIGH)
>
>and replaced &ZSYSID with @ZSYSID and got the display that I wanted.
>Good enough for me.
>

Is your system z/OS 1.7 or above? If it is, why not use the SYSNAME
command? The only bad thing about it is there is no profile setting
to display it all the time so I have to issue the command each time
I logon. With 25+ LPARs I support (and usually I logon to all of them)
it is an easy way to see which LPAR I am on. I used to just execute
my own exec called "@" (as in "where am I at"). My @ exec also shows
a few other things (userid, sysclone, smfname, etc.) so I still
occasionally use it.

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:mark....@zurichna.com
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

Seibert, Dave

unread,

Mar 24, 2008, 11:07:10 AM3/24/08

to

Good catch, John.

Although, you apparently can also do the vget in the calling Rexx
program, as I do.

Dave

The contents of this e-mail are intended for the named addressee only. It contains information that may be confidential. Unless you are the named addressee or an authorized designee, you may not copy or use it, or disclose it to anyone else. If you received it in error please notify us immediately and then destroy it.

From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of

unread,

Mar 24, 2008, 2:38:35 PM3/24/08

to

On Mon, 24 Mar 2008 10:55:57 -0500, McKown, John
<John....@HEALTHMARKETS.COM> wrote:

>> -----Original Message-----
>> From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On
>> Behalf Of Rob Zenuk
>>
>>

>> OK, I'll bite... What is the SYSNAME command (aside from an
>> obvious facilit
>> y to provide the SYANAME value). I searched the zOS 1.8
>> bookshelf , z/OS 1.8
>> ISPF bookshelf and the z/OS 1.8 TSO bookshelf with no
>> cheese... I just
>> found references to the definition of SYSNAME and where it

>> appeared as well as

>> existing facility using MVSVAR.
>>
>> Rob
>

>I found it in the z/OS 1.9 manual below. IBM no longer seems to bother
>updating any "back level" manuals when the "back port" a function to a
>previous level of the software.
>
>http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ispzug60/4.1
>

Perhaps not in the 1.8 manual, but for the 3rd time in perhaps as many
weeks I'll recommend using the action bar "Help" --> "Changes for
this Release". It is documented in there under z/OS 1.7 subtopic
"ISPF PDF COMPONENT CHANGES".

The other thing that someone might not like about it besides the
fact that you can't save the setting across logons (it doesn't
bother me), is that the SYSNAME overlays "EDIT" or "VIEW" (and most
shops use a 4 character sysname since that is the SMF sysid limit).
But because I use the coloring program I am used to view having blue
sequence numbers as opposed to the green sequence numbers of edit.

Imbriale, Donald

unread,

Mar 24, 2008, 2:56:44 PM3/24/08

to

I haven't investigated how, but our setting of SYSNAME persists across
logons.

Don Imbriale

-----Original Message-----
From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of

Mark Zelden
Sent: Monday, March 24, 2008 10:56 AM
To: ISP...@LISTSERV.ND.EDU
Subject: Re: doing something stupid - please help

Is your system z/OS 1.7 or above? If it is, why not use the SYSNAME
command? The only bad thing about it is there is no profile setting
to display it all the time so I have to issue the command each time
I logon. With 25+ LPARs I support (and usually I logon to all of them)
it is an easy way to see which LPAR I am on. I used to just execute
my own exec called "@" (as in "where am I at"). My @ exec also shows
a few other things (userid, sysclone, smfname, etc.) so I still
occasionally use it.

***********************************************************************
Bear Stearns is not responsible for any recommendation, solicitation,
offer or agreement or any information about any transaction, customer
account or account activity contained in this communication.
***********************************************************************

Mark Zelden

unread,

Mar 24, 2008, 3:29:34 PM3/24/08

to

On Mon, 24 Mar 2008 14:50:11 -0400, Imbriale, Donald <DIMB...@BEAR.COM> wrote:

>I haven't investigated how, but our setting of SYSNAME persists across
>logons.
>

On every panel (IOW, did someone add it into a panel or multiple panels)?
Can you issue the SYSNAME command to turn it off (and will it save it
as off)? It could get turned on as part of your logon process.

Ryerse, Robin

unread,

Mar 24, 2008, 4:10:24 PM3/24/08

to

I SETTINGS --> IDENTIFIER --> SYSNAME makes it permanent across
logon/sessions

At one point I tracked down the ISPS profile variable that got set.

Imbriale, Donald

unread,

Mar 24, 2008, 4:11:12 PM3/24/08

to

It is on every panel.
There are no panel mods made to support it.
It can be turned off or on, and whatever is set is retained.
It is not turned on as part of the logon process (care of the logon
procs, CLISTs and execs is one of the hats I wear).

Further investigation is needed.

Don Imbriale

-----Original Message-----
From: ISPF discussion list [mailto:ISP...@LISTSERV.ND.EDU] On Behalf Of
Mark Zelden
Sent: Monday, March 24, 2008 3:24 PM
To: ISP...@LISTSERV.ND.EDU
Subject: Re: doing something stupid - please help

On Mon, 24 Mar 2008 14:50:11 -0400, Imbriale, Donald
<DIMB...@BEAR.COM> wrote:

>I haven't investigated how, but our setting of SYSNAME persists across
>logons.
>

On every panel (IOW, did someone add it into a panel or multiple

panels)?
Can you issue the SYSNAME command to turn it off (and will it save it
as off)? It could get turned on as part of your logon process.

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:mark....@zurichna.com
z/OS Systems Programming expert at
http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

***********************************************************************

Mark Zelden

unread,

Mar 24, 2008, 4:27:48 PM3/24/08

to

On Mon, 24 Mar 2008 16:07:37 -0400, Ryerse, Robin <robin....@EDS.COM> wrote:

>I SETTINGS --> IDENTIFIER --> SYSNAME makes it permanent across
>logon/sessions
>

Thanks. It's right where you would expect it to be with the other
similar toggle settings. Somehow I missed it.

Regards,

Hank Oerlemans

unread,

Mar 30, 2008, 8:42:05 PM3/30/08

to

Go to Settings->Identifier and set your default there.

Hank
ISPF