Re: REXX code for UR

2011-01-06 Thread Jeff Gribbin 
Hi Frank,
I have code buried somewhere in my attic that does exactly this - saving the
status in GLOBALV. Robert's DEFINE is good if you only need to, 'stack' one
level - apart from anything else it's guaranteed to be release-independent -
but if you'd like me to go climbing around in the rafters and hunt down
those routines for you then I'd be happy to do so - just contact me off-list
and I'll be on my way :-)

Regards
Jeff Gribbin

Re: REXX code for UR

2011-01-05 Thread Hodge, Robert L 
Following is example of what I have used in the past.

'CP DEFINE 00E 0EE'
'CP DEFINE PRT 00E'
.
.
.
'CP DETACH 00E'
'CP DEFINE 0EE 00E'

It is so simple, that never felt it required being a callable routine.

Basically 00E is saved as 0EE, and redefine back to 00E later.


From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf 
Of Frank M. Ramaekers
Sent: Wednesday, January 05, 2011 10:04 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: EXTERNAL: REXX code for UR

Does someone have (before I try to reinvent the wheel) have code that will do 
the following

PUSHUR   RDR | PUN | PRT | ccuu Remembers the virtual UR 
settings
POPUR RDR | PUN | PRT | ccuu Recalls the virtual UR 
settings


 Frank M. Ramaekers Jr.





[cid:image001.gif@01CBACC8.46E96A50]


Systems Programmer


MCP, MCP+I, MCSE  RHCE




American Income Life Insurance Co.


Phone: (254)761-6649




1200 Wooded Acres Dr.


Fax: (254)741-5777




Waco, Texas  76701







_ This message contains 
information which is privileged and confidential and is solely for the use of 
the intended recipient. If you are not the intended recipient, be aware that 
any review, disclosure, copying, distribution, or use of the contents of this 
message is strictly prohibited. If you have received this in error, please 
destroy it immediately and notify us at privacy...@ailife.com.

Re: REXX code for UR

2011-01-05 Thread Frank M. Ramaekers 
Hmmm...that's a thought, I'll consider this approach.

 

Thanks,

 

Frank M. Ramaekers Jr.

 

 



From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of Hodge, Robert L
Sent: Wednesday, January 05, 2011 11:37 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: REXX code for UR

 

Following is example of what I have used in the past.

 

'CP DEFINE 00E 0EE'

'CP DEFINE PRT 00E'

.

 nb sp;  .

.

'CP DETACH 00E'

'CP DEFINE 0EE 00E'

 

It is so simple, that never felt it required being a callable routine.

 

Basically 00E is saved as 0EE, and redefine back to 00E later.

 

 

From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of Frank M. Ramaekers
Sent: Wednesday, January 05, 2011 10:04 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: EXTERNAL: REXX code for UR

 

Does someone have (before I try to reinvent the wheel) have code that
will do the following

 

PUSHUR   RDR | PUN | PRT | ccuu Remembers the
virtual UR settings

POPUR RDR | PUN | PRT | ccuu Recalls the virtual
UR settings

 

 Frank M. Ramaekers Jr.

 



Systems Programmer

MCP, MCP+I, MCSE  RHCE

 

American Income Life Insurance Co.

Phone: (254)761-6649

 

1200 Wooded Acres Dr.

Fax: (254)741-5777 /o:p

 

Waco, Texas  76701

 

 

 

_ This message
contains information which is privileged and confidential and is solely
for the use of the intended recipient. If you are not the intended
recipient, be aware that any review, disclosure, copying, distribution,
or use of the contents of this message is strictly prohibited. If you
have received this in error, please destroy it immediately and notify us
at privacy...@ailife.com. 


_
This message contains information which is privileged and confidential and is 
solely for the use of the
intended recipient. If you are not the intended recipient, be aware that any 
review, disclosure,
copying, distribution, or use of the contents of this message is strictly 
prohibited. If you have
received this in error, please destroy it immediately and notify us at 
privacy...@ailife.com.