date:20161012

>>Put the address of the new ACEE in ASCBSENV and/or TCBSENV as appropriate?

>>J R

>I think it's ASXBSENV. 

>For my test application TCBSENV is 0.

>I get a S0C4 when I do attempt to replace ASXBSENV despite being authorized 
>and in supervisor mode.  It feels like there is a RACROUTE macro or 
>>equivalent that says "start using this ACEE" which will put the value in 
>ASXBSENV and probably update ASXBUSER?  

>I see references to the RACINIT macro which has similar parameters but it 
>appears to be a parallel function to RACROUTE ENVIR=CREATE and not a 
>>sequencing thing, that is you aren't supposed to do RACROUTE ENVIR=CREATE and 
>then RACINIT ENVIR=CREATE. 

>For what I'm trying to do, that is create a new secondary ACEE and run under 
>this new ACEE's authority, would the RACINIT macro be more >appropriate?

>Janet

Aha, I just released I have to be in Key 0 to store into the ASXB.  Can someone 
confirm that to change the ACEE in use, I have to update ASXBSENV? That there 
is no macro that will do this for me?

Janet

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Changing the primary AUTHID using RACROUTE

>Put the address of the new ACEE in ASCBSENV and/or TCBSENV as appropriate?

>J R

I think it's ASXBSENV. 

For my test application TCBSENV is 0.

I get a S0C4 when I do attempt to replace ASXBSENV despite being authorized and 
in supervisor mode.  It feels like there is a RACROUTE macro or equivalent that 
says "start using this ACEE" which will put the value in ASXBSENV and probably 
update ASXBUSER?  

I see references to the RACINIT macro which has similar parameters but it 
appears to be a parallel function to RACROUTE ENVIR=CREATE and not a sequencing 
thing, that is you aren't supposed to do RACROUTE ENVIR=CREATE and then RACINIT 
ENVIR=CREATE. 

For what I'm trying to do, that is create a new secondary ACEE and run under 
this new ACEE's authority, would the RACINIT macro be more appropriate?

Janet

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How set CVTLSO?

2016-10-12 Thread George Kozakos

On 12/10/2016 07:53 PM, Paul Gilmartin wrote:
> I understand that the TOD clock continues to be updated during that spin.
> Are processes otherwise quiesced or may they continue to execute until
> they do (e.g.) STCK?
>
> What happens to the clock comparator and to other STIMER-queued events?
> Someone may want to wait for two seconds physical time; someone else may
> want to wait until two seconds after midnight.

All CPUs are interrupted to process the external interrupt for the leap
second change.

The leap second change is applied to TOD (LT) and GMT real/wait TQEs.

George Kozakos
z/OS Software Service, Level 2 Supervisor



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Changing the primary AUTHID using RACROUTE

2016-10-12 Thread J R

Put the address of the new ACEE in ASCBSENV and/or TCBSENV as appropriate?

Sent from my iPhone

On Oct 12, 2016, at 21:36, Janet Graff 
<004dc9e91b6d-dmarc-requ...@listserv.ua.edu> wrote:

>> Thanks for the info. It helps a bit, but not enough. 
> 
>> First, just to make sure you know, you can't do a RACROUTE REQUEST=VERIFY 
>> while running in cross-memory mode. You would need to create a >request for 
>> another task running in your server primary, queue the request to the task, 
>> and suspend the cross-memory task until you have an >answer.
> 
>> Next, doing a VERIFY for a user ID is not  really sufficient in the general 
>> case, as there are many other aspects of the user's security environment 
>> >that could affect the answer to an authorization check (group name, 
>> terminal name or other port of entry, SECLABEL etc.). At a minimum you 
>> should >use the UTOKEN as input to the VERIFY (if you have to create a new 
>> ACEE) but even that is not sufficient in some cases. So, if you're doing 
>> this for a >product (as opposed to a bit of home-grown code just for your 
>> own company's use) then you need to rethink how much data you capture. For 
>> >example, it may be much better to use a RACROUTE REQUEST=EXTRACT 
>> TYPE=ENVRXTR to get a copy of the user's ACEE, and then recreate it in >your 
>> address space using RACROUTE REQUEST=VERIFY that specifies ENVIRIN.
> 
>> But even before that, what kind of checks do you plan to make using the ACEE 
>> once you have it? (What resource class, for example?) If you're lucky >they 
>> will be checks that you could perform using the existing user's ACEE rather 
>> than rebuilding one. That would be both more efficient, and give you >a much 
>> simpler overall design.
> 
> -- 
>> Walt
> 
> Walt,
> 
> Thanks for the reply!
> 
> The cross memory mode for the system level task code is all written and has 
> been in the field for many years.  (chances are I'm going to bolix up this 
> explanation but I'll give it a go) The system level code uses an RACROUTE 
> FASTAUTH or AUTH to verify General Resource Profiles with a pointer to the 
> callers ACEE for it's own use.  It doesn't EXTRACT anything from the ACEE but 
> uses it for authorization checks. In any case my little test program doesn't 
> get involved in all that.  
> 
> What I'm trying to write is a stand alone assembler test program, that runs 
> in Batch under a userid.  The test program creates a secondary ACEE using a 
> hard coded userid and password that is just used for testing purposes.  Then 
> using this secondary ACEE it invokes the cross memory services support to the 
> system level task that will eventually use either the primary or the 
> secondary ACEE to validate access to resources.
> 
> So I've got the return zero creating the secondary ACEE, but it appears that 
> after that, when I invoke the cross memory services it's done using the ACEE 
> from the primary id.  What do I have to do to switch to using the secondary 
> ACEE?
> 
> Janet
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Changing the primary AUTHID using RACROUTE

>Thanks for the info. It helps a bit, but not enough. 

>First, just to make sure you know, you can't do a RACROUTE REQUEST=VERIFY 
>while running in cross-memory mode. You would need to create a >request for 
>another task running in your server primary, queue the request to the task, 
>and suspend the cross-memory task until you have an >answer.

>Next, doing a VERIFY for a user ID is not  really sufficient in the general 
>case, as there are many other aspects of the user's security environment >that 
>could affect the answer to an authorization check (group name, terminal name 
>or other port of entry, SECLABEL etc.). At a minimum you should >use the 
>UTOKEN as input to the VERIFY (if you have to create a new ACEE) but even that 
>is not sufficient in some cases. So, if you're doing this for a >product (as 
>opposed to a bit of home-grown code just for your own company's use) then you 
>need to rethink how much data you capture. For >example, it may be much better 
>to use a RACROUTE REQUEST=EXTRACT TYPE=ENVRXTR to get a copy of the user's 
>ACEE, and then recreate it in >your address space using RACROUTE 
>REQUEST=VERIFY that specifies ENVIRIN.

>But even before that, what kind of checks do you plan to make using the ACEE 
>once you have it? (What resource class, for example?) If you're lucky >they 
>will be checks that you could perform using the existing user's ACEE rather 
>than rebuilding one. That would be both more efficient, and give you >a much 
>simpler overall design.

-- 
>Walt

Walt,

Thanks for the reply!

The cross memory mode for the system level task code is all written and has 
been in the field for many years.  (chances are I'm going to bolix up this 
explanation but I'll give it a go) The system level code uses an RACROUTE 
FASTAUTH or AUTH to verify General Resource Profiles with a pointer to the 
callers ACEE for it's own use.  It doesn't EXTRACT anything from the ACEE but 
uses it for authorization checks. In any case my little test program doesn't 
get involved in all that.  

What I'm trying to write is a stand alone assembler test program, that runs in 
Batch under a userid.  The test program creates a secondary ACEE using a hard 
coded userid and password that is just used for testing purposes.  Then using 
this secondary ACEE it invokes the cross memory services support to the system 
level task that will eventually use either the primary or the secondary ACEE to 
validate access to resources.

So I've got the return zero creating the secondary ACEE, but it appears that 
after that, when I invoke the cross memory services it's done using the ACEE 
from the primary id.  What do I have to do to switch to using the secondary 
ACEE?

Janet

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Changing the primary AUTHID using RACROUTE

I am by no means an expert on this topic but keep in mind of course -- in 
addition to Walt's excellent tips -- that not every customer uses RACF: some 
use CA TSS and some use CA ACF2. While a lot of the behavior of the three 
subsystems is the same, some behavior is definitely different. Does it affect 
what you are doing here? I don't know. The three systems are surprisingly 
compatible in many ways (and totally different in others). I don't know enough 
to warn you of specific gotchas, but at the very least you should be aware that 
they could exist and think about testing in the TSS and ACF2 environments.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Janet Graff
Sent: Wednesday, October 12, 2016 4:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Changing the primary AUTHID using RACROUTE

>It would help to know why you want to do that, and what you intend to do after 
>you have the ACEE. It's possible that there are alternatives that >would be 
>better, which we might recommend if  we had some more information.

>However, you don't _need_ a  TERMID unless you're doing a RACROUTE 
>REQUEST=VERIFY for a user's TSO session. It's certainly not related to the 
>>error message you're getting, which is quite clearly due to an invalid user 
>ID. You probably got that error message because you've said that the >ength of 
>the user ID is 8, but MYUSER is only 6 characters long. That won't work.

>--
>Walt

Walt,

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Changing the primary AUTHID using RACROUTE

2016-10-12 Thread Walt Farrell

On Wed, 12 Oct 2016 18:53:29 -0500, Janet Graff  wrote:

>I am writing a test program for a system level task.  The system level task 
>accepts cross memory service calls from various address spaces including CICS, 
>IDMS and IMS so it needs to be able to handle secondary ACEEs.  Instead of 
>bringing up a more complicated subsystem in my automation tests I'd like to 
>write a neat standalone assembler program that creates a secondary ACEE and 
>then uses it to make the cross memory services call.
>
>With your's and Charles' help I now have the ENVIR=CREATE working and I've 
>determined that the ENVIR=CHANGE does me no good because it can only modify 
>the GROUP and the not the userid.
>
>I expected that the ENVIR=CREATE would create the ACEE and start using it.  
>However I'm still getting indications after the ENVIR=CREATE that the cross 
>memory services call is still using the initial userid and not the userid from 
>the secondary ACEE.
>
>Is there another step I should do before performing the cross memory services 
>call to make the new ACEE active?  I also expected to get a message from RACF 
>indicating the switch to the new ACEE with maybe an ICH message showing the 
>new userid, which I'm not getting and is leading me to believe that I haven't 
>actually switched to the new ACEE.

Thanks for the info. It helps a bit, but not enough. 

First, just to make sure you know, you can't do a RACROUTE REQUEST=VERIFY while 
running in cross-memory mode. You would need to create a request for another 
task running in your server primary, queue the request to the task, and suspend 
the cross-memory task until you have an answer.

Next, doing a VERIFY for a user ID is not  really sufficient in the general 
case, as there are many other aspects of the user's security environment that 
could affect the answer to an authorization check (group name, terminal name or 
other port of entry, SECLABEL etc.). At a minimum you should use the UTOKEN as 
input to the VERIFY (if you have to create a new ACEE) but even that is not 
sufficient in some cases. So, if you're doing this for a product (as opposed to 
a bit of home-grown code just for your own company's use) then you need to 
rethink how much data you capture. For example, it may be much better to use a 
RACROUTE REQUEST=EXTRACT TYPE=ENVRXTR to get a copy of the user's ACEE, and 
then recreate it in your address space using RACROUTE REQUEST=VERIFY that 
specifies ENVIRIN.

But even before that, what kind of checks do you plan to make using the ACEE 
once you have it? (What resource class, for example?) If you're lucky they will 
be checks that you could perform using the existing user's ACEE rather than 
rebuilding one. That would be both more efficient, and give you a much simpler 
overall design.

-- 
Walt

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Changing the primary AUTHID using RACROUTE

2016-10-12 Thread Tony Harminc

On 12 October 2016 at 18:25, Janet Graff
<004dc9e91b6d-dmarc-requ...@listserv.ua.edu> wrote:

> I changed the TERMID to point to a D'0' but I'm getting the same error message
>
> ICH408I JOB(JIGRACF ) STEP(RUN )  944
>   LOGON/JOB INITIATION - USER AT TERMINAL  NOT RACF-DEFINED
> IRR012I  VERIFICATION FAILED. USER PROFILE NOT FOUND.
>
> Which I think implies that it thinks I'm a terminal user, even though it has 
> binary zeros for the TERMINAL value in the ICH408I message.

It *does* think you're a terminal user, but that's because you used
TERMID= in the first place. Just don't specify it at all. If you
specify it as D'0', RACINIT (invoked by RACROUTE) will generate a
non-zero pointer to it, and then it will get mentioned in any
messages, and possibly used as part of logon checking. But as Walt
points out, the problem is not with the TERMID, but with the userid.
One could argue that the ICH408I message is a bit unclear, but it's
the standard "userid not found" that happens to mention the (null)
terminal name in passing.

Also... These are problematic if they are this way in your actual
source. (Of course I understand you may have posted an abbreviated
example here):

 MVC   USERLEN,8
 MVC   USERID,=CL8'MYUSER   '
 MVC   PSWLEN,8
 MVC   PASSWD,=CL8''

Those two length MVCs should almost certainly be MVIs. Or you can use
MVC with =FL1'8' if you prefer. (While you're there, turn on the HLASM
option "PAGE0". I know it has saved me much debugging angst, and it
may do the same for you some day even if this isn't part of the
current problem.) And the length you tell RACF for the userid (and
password, for that matter) must match the actual userid's length - not
that of the blank-padded field it's in.

> Also I suspect I might be archaic by using RELEASE=1.9.2, is there a more 
> appropriate value for this decade?

I've been using 7730 for some time. Certainly 7730 is of this
millennium, but it's probably time that I looked into its antiquity
too.

Tony H.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

I'm going to try to walk a delicate line here. I don't want to offend the fine 
folks at IBM, and IBM's compiler people are a bright, bright bunch of folks up 
in Toronto. They know more about compilers than I ever will. But, that said ...

I agree with you on testing. A recompile of unedited source code demands a full 
regression test IMHO. Who knows what might have changed: a PTF, an environment 
variable, you only thought it was unedited (you forgot about Fred) -- whatever. 
Heck, on our product, we do a partial regression test after a re-link of 
unchanged object code "just to make sure."

So I raise my eyebrows at the assertion that since the ABO is just a massage of 
the existing compiled object code no re-testing is necessary. I don't deny it; 
I just raise my eyebrows: IBM's compiler team knows a lot more about this stuff 
than I do.

Yes, "we can't find the source code" or "we found 17 versions of the source 
code and we don't know which one is in production" is apparently a reality -- a 
very scary reality IMHO, but certainly a justification for ABO.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Karl S Huf
Sent: Wednesday, October 12, 2016 3:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ABO Automatic Binary Optimizer

In our experience the need for PDSE datasets was far from the only difficulty 
in migrating to COBOL V5 (and that really wasn't the hard part).  Many compiles 
take drastically more CPU time as well as require more region.  While this is 
documented we were stunned by the orders of magnitude.  Compiles that had 
previously taken single digit CPU seconds suddenly needed minutes (this is on a 
z13).  Similarly where a 4MB Region default had been adequate those compiles 
routinely failed; we were directed to specify 200MB but found even that 
frequently failed and threw up our hands and told everybody to use REGION=0 
(personal peeve of mine).  We also did find some incompatibilities for which we 
opened up PMR's and received APAR's.

Within the context of the thread topic, ABO . . . I discussed this quite a bit 
with my account team.  Our developers are required to do regression testing on 
their changes - even if it is just recompiling
with no source code changes.They initially argued (well, not
initially, it went on way too long) that there's no need to do such testing 
when using ABO.  Technically they may be right; technically one probably 
shouldn't have to do complete regression testing when recompiling the same 
source.  None of that makes any difference if the stated requirement in the 
development standards they have to follow says they DO have to do that testing. 
 Knowing that, then, they would be similarly required to do that testing for an 
ABO optimized module we questioned the benefit of licensing another product to 
do the same thing the compiler can do.  Now, if there's a substantial amount of 
executing COBOL code that consumes a fair amount of resources AND the source is 
missing/unavailable then maybe ABO is in play - but that's not our situation.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Changing the primary AUTHID using RACROUTE

>It would help to know why you want to do that, and what you intend to do after 
>you have the ACEE. It's possible that there are alternatives that >would be 
>better, which we might recommend if  we had some more information.

>However, you don't _need_ a  TERMID unless you're doing a RACROUTE 
>REQUEST=VERIFY for a user's TSO session. It's certainly not related to the 
>>error message you're getting, which is quite clearly due to an invalid user 
>ID. You probably got that error message because you've said that the >ength of 
>the user ID is 8, but MYUSER is only 6 characters long. That won't work.

>-- 
>Walt

Walt,

I am writing a test program for a system level task.  The system level task 
accepts cross memory service calls from various address spaces including CICS, 
IDMS and IMS so it needs to be able to handle secondary ACEEs.  Instead of 
bringing up a more complicated subsystem in my automation tests I'd like to 
write a neat standalone assembler program that creates a secondary ACEE and 
then uses it to make the cross memory services call.

With your's and Charles' help I now have the ENVIR=CREATE working and I've 
determined that the ENVIR=CHANGE does me no good because it can only modify the 
GROUP and the not the userid.

I expected that the ENVIR=CREATE would create the ACEE and start using it.  
However I'm still getting indications after the ENVIR=CREATE that the cross 
memory services call is still using the initial userid and not the userid from 
the secondary ACEE.

Is there another step I should do before performing the cross memory services 
call to make the new ACEE active?  I also expected to get a message from RACF 
indicating the switch to the new ACEE with maybe an ICH message showing the new 
userid, which I'm not getting and is leading me to believe that I haven't 
actually switched to the new ACEE.

Thanks!
Janet

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How set CVTLSO?

On Wed, 12 Oct 2016 18:52:09 -0400, George Kozakos wrote:
>
>z/OS does not affect the hardware TOD clock. If the leap second change is
>positive, Timer processing spins on all CPUs for the amount of the leap
>second change and CVTLSO is updated. STCK time does not change but UTC/GMT
>jumps backward due to the change in CVTLSO.
>
I understand that the TOD clock continues to be updated during that spin.
Are processes otherwise quiesced or may they continue to execute until they
do (e.g.) STCK?

What happens to the clock comparator and to other STIMER-queued events?
Someone may want to wait for two seconds physical time; someone else may
want to wait until two seconds after midnight.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How set CVTLSO?

Got it! Thanks much.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of George Kozakos
Sent: Wednesday, October 12, 2016 3:52 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How set CVTLSO?

On 12/10/2016 05:45:48 PM, , Charles Mills wrote:
> @George, thanks. I'm looking at the from a software development point 
> of view, not a sysprog point of view.
>
> So if a shop is using an ETS and does not schedule the change then the
TOD
> clock will be steered into reflecting the leap seconds, right? The TOD 
> clock will slow down until it falls back to the correct time, right?

Yes, the TOD is steered to reflect the change in the ETS. This takes about
7 hours, the steering rate is 7 hours per second of adjustment.

> For a "Time Control Parameter Change event" where does the leap second
get
> reflected? Still in the hardware TOD clock? It effectively stops for 
> one second? Or in CVTLSO?

z/OS does not affect the hardware TOD clock. If the leap second change is
positive, Timer processing spins on all CPUs for the amount of the leap
second change and CVTLSO is updated. STCK time does not change but UTC/GMT
jumps backward due to the change in CVTLSO.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM Education Assistance for z/OS - Useful??

2016-10-12 Thread Edward Gould

> On Oct 12, 2016, at 3:35 PM, Marna WALLE  wrote:
> 
> Hello IBM-MAINers,
> I wanted to ask about the usefulness of the IBM Education Assistance (IEA) 
> for z/OS.
> 
> A little background:  IEA is found here:  
> http://www.redbooks.ibm.com/redbooks.nsf/pages/IBMIEAV22avail?Open and 
> provides concise and technical information about a specific function 
> introduced in z/OS.  For instance, there is a module there for Dynamic Logrec 
> in z/OS V2.2.It is intended to be a "one stop shopping" location for new 
> enhancements in a z/OS release.  Of course, all information can also be found 
> in the appropriate z/OS books.  We've had IEA for both z/OS V2.1 and V2.2.
> 
> My questions are:
> 1)  is this is still a good way to provide this information to you?
> 2) with all the other ways to learn about new functions, is IEA still needed 
> by you?
> 3) are there particular topics in IEA that you like and want to continue to 
> see in the future?  if so, which ones?
> 
> Thanks in advance for any opinions you'd like to share.
> -Marna WALLE
> z/OS Installation, IBM Poughkeepsie

Marne:
1. Yes!
2. Yes!
3.  A better way to config an IOCP

No remote learning. I went to one and after 1 day asked for the money to be 
refunded.
I have given classes and the *ONLY* way to figure out if your getting the point 
across is to look at the faces of the students. 
Don’t hire instructors that are inflexible. I had several over the years and if 
you contradict what is in the handouts and you prove it, the instructor should 
be prepared to take corrections in the course.

Ed
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Running USS with locale other than 1047

2016-10-12 Thread Lindy Mayfield

"Eeek" pretty much sums it all.  Even between latin1, latin9 and utf-8 is a 
huge eek.  They got their own problems, too.

ISPF-L, no, MVS-OE list, yes.  But since it's often a system wide setting that 
IBM may or may not recommend, that’s why I chose IBM-Main first to ask.  It 
affect the entire machine, not just OMVS guys.  

I thought about x-posting, but everyone always says, "sorry for x-posting, 
but...".  Seems like a bad thing, so I thought to get the big picture from here 
first then go to the OMVS list for specifics.  

Kind regards,
Lindy

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: keskiviikkona 12. lokakuuta 2016 23.28
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Running USS with locale other than 1047


Should some of this be on ISPF-L or MVS-OE?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

2016-10-12 Thread Tony Harminc

On 12 October 2016 at 13:56, Kirk Wolf  wrote:
> You are correct: you don't need an LE environment to use the BPX kernel 
> service calls.

Indeed. I do it from non-LE assembler all the time.

> REXX doesn't have/use an LE environment AFAIK. I don't know
> much about the System REXX environment, but I would assume kernel service
> calls would work fine.   The REXX SYSCALL environment uses these, so I'm
> not sure why it wouldn't work.

I think the problem will come if there's a question of file access
permissions. For that the kernel has to ask RACF/ACF2/TSS, and that
requires a userid, which may not always be present, or may not have a
UNIX UID, GID, etc. Depends on how it's invoked, I think.

Tony H.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMS Volume Status

2016-10-12 Thread Graham Harris

You could save yourself a lot of trouble and do a SAVESCDS before you make
your ACS routine changes.

On 12 October 2016 at 18:08, Chuck Kreiter  wrote:

> Thanks for the reply.
>
> The problem I'm having is that the definition for each volume as defined
> in the storage group doesn't show up on this list as best I can tell . The
> status that is shown is the current status of the volume.  I need to
> identify those that have a status different than what they were defined I
> the CDS as.
>
> I'm probably going to end up displaying the volumes in SDSF, save those
> off and create Naviquest cards to update the CDS with the current status.
> That way, everything will be as it is today.
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Elardus Engelbrecht
> Sent: Wednesday, October 12, 2016 11:04 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SMS Volume Status
>
> Chuck Kreiter wrote:
>
> > What has happened over time is that some volumes have been DISNEW'ed to
> clear them or ENABLED (from DISNEW) to allow for new allocations.  These
> were all done via the VARY SMS,VOLUME(xx),DISABLE,NEW type commands.
>
> Others gave you good and interesting replies.
>
> If you want to know when that VARY command is issued, you can use SMF to
> see who and when was that VARY command issued. (RACF class OPERCMDS,
> profile MVS.VARY.*)
>
> >System/Sys SMS VOL MVS Vol  SMS G
> >Group Name Status  Status   Status
> >--- ---  --
> >SYS1   DISNEW  ONLINE   ENABLE
>
> >I'm really looking for this info in a batch (ideally) report.  I've
> looked through Naviquest but not seen anything that reports this yet.
>
> Print above list out (look at pulldown menu in ISMF) Then use DFSORT or
> ICETOOL to filter out your output dataset.
>
> To see all volsers where first Status is different from second Status try
> out this ICETOOL statement:
>
> INCLUDE COND=(,6,CH,NE, STATUS>,6,CH)
>
> Groete / Greetings
> Elardus Engelbrecht
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How set CVTLSO?

2016-10-12 Thread George Kozakos

On 12/10/2016 05:45:48 PM, , Charles Mills wrote:
> @George, thanks. I'm looking at the from a software development point of
> view, not a sysprog point of view.
>
> So if a shop is using an ETS and does not schedule the change then the
TOD
> clock will be steered into reflecting the leap seconds, right? The TOD
> clock will slow down until it falls back to the correct time, right?

Yes, the TOD is steered to reflect the change in the ETS. This takes about
7 hours, the steering rate is 7 hours per second of adjustment.

> For a "Time Control Parameter Change event" where does the leap second
get
> reflected? Still in the hardware TOD clock? It effectively stops for one
> second? Or in CVTLSO?

z/OS does not affect the hardware TOD clock. If the leap second change is
positive, Timer processing spins on all CPUs for the amount of the leap
second change and CVTLSO is updated. STCK time does not change but UTC/GMT
jumps backward due to the change in CVTLSO.

Regards,
George Kozakos

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

2016-10-12 Thread Karl S Huf

In our experience the need for PDSE datasets was far from the only
difficulty in migrating to COBOL V5 (and that really wasn't the hard
part).  Many compiles take drastically more CPU time as well as require
more region.  While this is documented we were stunned by the orders of
magnitude.  Compiles that had previously taken single digit CPU seconds
suddenly needed minutes (this is on a z13).  Similarly where a 4MB
Region default had been adequate those compiles routinely failed; we
were directed to specify 200MB but found even that frequently failed and
threw up our hands and told everybody to use REGION=0 (personal peeve of
mine).  We also did find some incompatibilities for which we opened up
PMR's and received APAR's.

Within the context of the thread topic, ABO . . . I discussed this quite
a bit with my account team.  Our developers are required to do
regression testing on their changes - even if it is just recompiling
with no source code changes.They initially argued (well, not
initially, it went on way too long) that there's no need to do such
testing when using ABO.  Technically they may be right; technically one
probably shouldn't have to do complete regression testing when
recompiling the same source.  None of that makes any difference if the
stated requirement in the development standards they have to follow says
they DO have to do that testing.  Knowing that, then, they would be
similarly required to do that testing for an ABO optimized module we
questioned the benefit of licensing another product to do the same thing
the compiler can do.  Now, if there's a substantial amount of executing
COBOL code that consumes a fair amount of resources AND the source is
missing/unavailable then maybe ABO is in play - but that's not our
situation.



___
Karl S Huf | Senior Vice President | World Wide Technology
50 S LaSalle St, LQ-18, Chicago, IL  60603 | phone (312)630-6287 |
k...@ntrs.com
Please visit northerntrust.com
CONFIDENTIALITY NOTICE: This communication is confidential, may be
privileged and is meant only for the intended recipient. If you are not
the intended recipient, please notify the sender ASAP and delete this
message from your system.  NTAC:3NS-20

P Please consider the environment before printing this e-mail.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Lizette Koehler
> Sent: Wednesday, October 12, 2016 11:38 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ABO Automatic Binary Optimizer
>
> The only difficulty in migration to Cobol V5 and above is the need for
PDS/E
> datasets.
>
> Since z/OS V2.2 is providing a way to not have to UPDATE all
production JCL
> with PDS/E datasets, that issue with migration, imo, is greatly
reduced.
>
> So once z/OS V2.2 is installed, migration plans to COBOL V5 and above
should
> be able to begin.
>
> Lizette
>
>
> > -Original Message-
> > From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Norman Hollander on Desertwiz
> > Sent: Wednesday, October 12, 2016 9:26 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: ABO Automatic Binary Optimizer
> >
> > 2 Thoughts to consider:
> >
> > - ABO only runs on z/OS 2.1 and above
> > - ABO creates a new load module that (IMHO) needs as much Q/A
testing
> > as compiling in the newest compiler.
> > IIRC, back in the day, going to Enterprise COBOL, there was less
than
> > 8% of COBOL source that needed
> > to be remediated.  That is, certain COBOL verbs needed to be
updated
> > to new ones.  Things like INSPECT
> > may have been flagged.
> >
> > A good Life Cycle Management tool (did I say Endevor?) could help
with
> > an easy migration to a new compiler.
> > You could try a minor application and see how difficult in may be...
> >
> > zN
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Charles Mills
> > Sent: Wednesday, October 12, 2016 8:48 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: ABO Automatic Binary Optimizer
> >
> > Nope. Agree 100% with what @Tom says. The ABO is not a source code
> > migration tool, it is a compiler. Really -- a very weird compiler.
> > Most compilers take source code in and produce object code out. The
> > ABO is a compiler that takes object code in and produces object code
> > out. What good is that? It takes System 370 object code in and
produces z13
> object code out.
> >
> > Why is that useful? Because the speed gains in the last several
> > generations of mainframe are not in clock/cycle speed. System 370
> > object code does not run any faster on a z13 than on a z10. The
gains are in
> new instructions.
> > The same functionality as that S/370 object code expressed in z13
> > object code runs a lot faster.
> >
> > (Please, no quibbles. Many shortcuts and generalizations in the

Re: Changing the primary AUTHID using RACROUTE

Was I being clear? You asked "where do I get the TERMID?" and I meant "why not 
pick up your current TERMID from your existing ACEE?

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Janet Graff
Sent: Wednesday, October 12, 2016 3:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Changing the primary AUTHID using RACROUTE

>From your current ACEE?

>http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r
>1.ichb200/ich2b2_ACEE_and_related_control_blocks.htm

>52 (34) ADDRESS 4 ACEETRMP Address that points to the terminal ID. The 
>field is zero for non-terminal users.

>Charles

Yes, the Batch job is run under the job's userid.  I want to then 
programmatically change to a second userid and create an ACEE.

Do I have to get hold of my current ACEE and update the USERID/PASSWRD/GROUP 
fields or can I just issue the code I specified in my original post?

I changed the TERMID to point to a D'0' but I'm getting the same error message

ICH408I JOB(JIGRACF ) STEP(RUN )  944
  LOGON/JOB INITIATION - USER AT TERMINAL  NOT RACF-DEFINED  
IRR012I  VERIFICATION FAILED. USER PROFILE NOT FOUND.

Which I think implies that it thinks I'm a terminal user, even though it has 
binary zeros for the TERMINAL value in the ICH408I message.
Janet

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Running USS with locale other than 1047

On 2016-10-12 15:20, R.S. wrote:
> 
> Well, I always use non-US codepage on my 3270 emulator. Reason: I'm Pole, 
> speak Polish, sometimes write Polish naational characters. ;-) Usually I use 
> CP 870, but there is also similar codepage with EURO sign. For C programming 
> I've used to use CP 1047 [brackets].
> However we don't set anything in USS. It's not needed for text (with polish 
> characters) writing or reading.
> 
> BTW: Polish codepage is a little bit tricky even on MVS side, REXX 
> concatenation sign, usually called pipe: ||
> In Polish 3270 I see exclamation, so I have to code !!
> Note, the exclamation mark is not part of Polich characer set, it's just 
> punctuation mark, like in other languages (maybe with exception for Spain)
> 
Does this look right?  (I hope LISTSERV allows Unicode):
*** Top of Data 
**
-CAUTION- Data contains invalid (non-display) characters. Use command
  ===> FIND P'.' to position cursor to these
Host: IBM-1047  output: from_IBM-870
  0  16  32  48  64  80  96 112 128 144 160 176 192 208 224 240
  0  10  20  30  40  50  60  70  80  90  a0  b0  c0  d0  e0  f0

   0  0   &   -   ˇ   ˘   °   ą   ·   {   }   \   0
   1  1   é   /   É   a   j   ~   Ą   A   J   ÷   1
   2  2   â   ę   Â   Ę   b   k   s   ż   B   K   S   2
   3  3   ä   ë   Ä   Ë   c   l   t   Ţ   C   L   T   3
   4  4   ţ   ů   ˝   Ů   d   m   u   Ż   D   M   U   4
   5  5   á   í   Á   Í   e   n   v   §   E   N   V   5
   6  6   ă   î   Ă   Î   f   o   w   ž   F   O   W   6
   7  7   č   ľ   Č   Ľ   g   p   x   ź   G   P   X   7
   8  8   ç   ĺ   Ç   Ĺ   h   q   y   Ž   H   Q   Y   8
   9  9   ć   ß   Ć   `   i   r   z   Ź   I   R   Z   9
  10  a   [   ]   |   :   ś   ł   Ś   Ł      Ě   ď   Ď
  11  b   .   $   ,   #   ň   ń   Ň   Ń   ô   ű   Ô   Ű
  12  c   <   *   %   @   đ   š   Đ   Š   ö   ü   Ö   Ü
  13  d   (   )   _   '   ý   ¸   Ý   ¨   ŕ   ť   Ŕ   Ť
  14  e   +   ;   >   =   ř   ˛   Ř   ´   ó   ú   Ó   Ú
  15  f   !   ^   ?   "   ş   ¤   Ş   ×   ő   ě   Ő
** Bottom of Data 

 
┌──┐
 │ CHARS '.' - not found on any  lines (cols 1 to 
255). │
 
└──┘
The "invalid ... characters" message is spurious.  It was fixed by PTF for CP 
1047.
It appears it must be fixed individually for CP 870 and all additional code 
pages.

This was a UTF-8 UNIX file, tagged UTF-8 and containing the Unicode values of
the Polish alphabet.  The behavior is less likely to occur with a Classic data 
set.

What's x'CA'?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Changing the primary AUTHID using RACROUTE

2016-10-12 Thread Walt Farrell

On Wed, 12 Oct 2016 15:58:12 -0500, Janet Graff  wrote:

>I have an application and I want to change the the userid.  I have the RACF 
>macros coded but I'm having trouble coming up with the >source of TERMID.  
>Where do I get the TERMID?

It would help to know why you want to do that, and what you intend to do after 
you have the ACEE. It's possible that there are alternatives that would be 
better, which we might recommend if  we had some more information.

However, you don't _need_ a  TERMID unless you're doing a RACROUTE 
REQUEST=VERIFY for a user's TSO session. It's certainly not related to the 
error message you're getting, which is quite clearly due to an invalid user ID. 
You probably got that error message because you've said that the length of the 
user ID is 8, but MYUSER is only 6 characters long. That won't work.

-- 
Walt

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Changing the primary AUTHID using RACROUTE

>From your current ACEE?

>http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ichb200/ich2b2_ACEE_and_related_control_blocks.htm
> 

>52 (34) ADDRESS 4 ACEETRMP Address that points to the terminal ID. The field is
>zero for non-terminal users.

>Charles

Yes, the Batch job is run under the job's userid.  I want to then 
programmatically change to a second userid and create an ACEE.

Do I have to get hold of my current ACEE and update the USERID/PASSWRD/GROUP 
fields or can I just issue the code I specified in my original post?

I changed the TERMID to point to a D'0' but I'm getting the same error message

ICH408I JOB(JIGRACF ) STEP(RUN )  944
  LOGON/JOB INITIATION - USER AT TERMINAL  NOT RACF-DEFINED  
IRR012I  VERIFICATION FAILED. USER PROFILE NOT FOUND.

Which I think implies that it thinks I'm a terminal user, even though it has 
binary zeros for the TERMINAL value in the ICH408I message.
Janet

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How set CVTLSO?

On 2016-10-12 15:45, Charles Mills wrote:
> @George, thanks. I'm looking at the from a software development point of
> view, not a sysprog point of view.
> 
> So if a shop is using an ETS and does not schedule the change then the TOD
> clock will be steered into reflecting the leap seconds, right? The TOD clock
> will slow down until it falls back to the correct time, right?
>  
(which takes about a third of a day.)  Provided that CVTLSO was initially set
to 0.  If it's set to any other value, TIME GMT will give a correct result.
but STCK will give a surprising value.

> For a "Time Control Parameter Change event" where does the leap second get
> reflected? Still in the hardware TOD clock? It effectively stops for one
> second? Or in CVTLSO?
>
The latter.  z/OS adds one second to CVTLSO to "make the leap second adjustment"
while it has the CPUs spinning for one second so no user process ever perceives
an anachronistic sequence of STCK values.  The TOD clock inexorably runs at
4,096,000,000 ticks per second (as best STP can steer it).

(This would appear to be a one-second timed spin loop?.)

> -Original Message-
> From: George Kozakos
> Sent: Wednesday, October 12, 2016 1:29 PM
...
> If you do schedule the leap second, then STP generates a "Time Control
> Parameter Change event" external interrupt that gets processed by z/OS to
> make the leap second adjustment. If it is a positive change, z/OS spins on
> all CPUs for the amount of the positive leap second change to ensure there
> are no duplicate UTC time stamps and updates CVTLSO. No steering is required
> as STP UTC time remained accurate with the ETS.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM Education Assistance for z/OS - Useful??

2016-10-12 Thread R.S.


W dniu 2016-10-12 o 22:35, Marna WALLE pisze:

Hello IBM-MAINers,
I wanted to ask about the usefulness of the IBM Education Assistance (IEA) for 
z/OS.

A little background:  IEA is found here:  
http://www.redbooks.ibm.com/redbooks.nsf/pages/IBMIEAV22avail?Open and provides concise 
and technical information about a specific function introduced in z/OS.  For instance, 
there is a module there for Dynamic Logrec in z/OS V2.2.It is intended to be a 
"one stop shopping" location for new enhancements in a z/OS release.  Of 
course, all information can also be found in the appropriate z/OS books.  We've had IEA 
for both z/OS V2.1 and V2.2.

My questions are:
1)  is this is still a good way to provide this information to you?
2) with all the other ways to learn about new functions, is IEA still needed by 
you?
3) are there particular topics in IEA that you like and want to continue to see 
in the future?  if so, which ones?


I know it and it's useful for me.
I treat it as "another source of SHARE presentations" - the format and 
content are quite similar.

This is good idea to keep it.
However I see some risk for the future: navigation. The more 
presentations will be the more complex task will be to find relevant 
topic. I don't know good solution for that, maybe except google-like 
search.
BTW: The presentations usually DON'T get outdated - if you STILL don't 
know the feature XYZ introduced in z/OS "8 years old", the presentation 
about it usually will still be very interesting for you.


Regards
--
Radoslaw Skorupka
Lodz, Poland






---
Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie 
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem 
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania 
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być 
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie 
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość 
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
www.mBank.pl, e-mail: kont...@mbank.pl
Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru 
Sądowego, nr rejestru przedsiębiorców KRS 025237, NIP: 526-021-50-88. 
Według stanu na dzień 01.01.2016 r. kapitał zakładowy mBanku S.A. (w całości 
wpłacony) wynosi 168.955.696 złotych.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How set CVTLSO?

@George, thanks. I'm looking at the from a software development point of
view, not a sysprog point of view.

So if a shop is using an ETS and does not schedule the change then the TOD
clock will be steered into reflecting the leap seconds, right? The TOD clock
will slow down until it falls back to the correct time, right?

For a "Time Control Parameter Change event" where does the leap second get
reflected? Still in the hardware TOD clock? It effectively stops for one
second? Or in CVTLSO?

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of George Kozakos
Sent: Wednesday, October 12, 2016 1:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How set CVTLSO?

> Ah! I am starting to understand. Leap Second steering is accomplished
with
> the PTFF instruction and is independent of CVTLSO. PTFF appears to 
> slow
down
> the physical clock.
>
> So ... steering and CVTLSO are essentially alternatives, right? CVTLSO 
> should not include any leap seconds that were previously (or were 
> about
to
> be) "steered" -- is that right? And if a shop is using STP it is 
> probably not modifying CVTLSO: CVTLSO is probably either zero, or at least
stable.
Am
> I getting this right?
>
> Charles

No, you have it wrong. Steering has nothing to do with leap seconds. STP
checks the external time source (ETS) at regular intervals and makes
adjustments via steering to keep accurate with the ETS.

It just so happens that if you don't schedule the leap second at the
appropriate time via the STP panel, when the leap second occurs, the STP UTC
time will be 1 second ahead of the ETS and so steering will occur to correct
it.

If you do schedule the leap second, then STP generates a "Time Control
Parameter Change event" external interrupt that gets processed by z/OS to
make the leap second adjustment. If it is a positive change, z/OS spins on
all CPUs for the amount of the positive leap second change to ensure there
are no duplicate UTC time stamps and updates CVTLSO. No steering is required
as STP UTC time remained accurate with the ETS.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Changing the primary AUTHID using RACROUTE

>From your current ACEE?

http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ichb200/ich2b2_ACEE_and_related_control_blocks.htm
 

52 (34) ADDRESS 4 ACEETRMP Address that points to the terminal ID. The field is
zero for non-terminal users.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Janet Graff
Sent: Wednesday, October 12, 2016 1:58 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Changing the primary AUTHID using RACROUTE

I have an application and I want to change the the userid.  I have the RACF 
macros coded but I'm having trouble coming up with the source of TERMID.  Where 
do I get the TERMID?

The code in question looks like this:

 MODESET MODE=SUP
 LAR7,RACFWORK
 MVC   RACRWORK,RACRLIST
 MVC   USERLEN,8
 MVC   USERID,=CL8'MYUSER   '
 MVC   PSWLEN,8
 MVC   PASSWD,=CL8''
 MVC   MYACEE,=F'0'
 MVC   MYTERM,=CL8''  < clearly I need a value here

 LAR5,USERLEN
 LAR6,PSWLEN
 LAR8,MYACEE
 LAR9,MYTERM
 RACROUTE REQUEST=VERIFY,WORKA=(R7),SYSTEM=YES,PASSCHK=YES,X
   ENVIR=CREATE,USERID=(R5),PASSWRD=(R6),ACEE=(R8), 
   X
   TERMID=(R9), 
   X
   RELEASE=1.9.2,MF=(E,RACRWORK)
 STR15,RC
...
 MVC   RACRWORK,RACRLIS2
 LAR8,MYACEE
 RACROUTE REQUEST=VERIFY,WORKA=(R7),SYSTEM=YES,PASSCHK=NO, X
   ENVIR=CHANGE,ACEE=(R8),  
   X
   RELEASE=1.9.2,MF=(E,RACRWORK)
 STR15,RC
 MODESET MODE=PROB

The error I'm getting is this

ICH408I JOB(JIGRACF ) STEP(RUN )  790
  LOGON/JOB INITIATION - USER AT TERMINAL  NOT RACF-DEFINED  

Which clearly says I need to provide a TERMID (or equivalent) on the 
ENVIR=CREATE.

Where do I get the TERMID?

Also I suspect I might be archaic by using RELEASE=1.9.2, is there a more 
appropriate value for this decade?

Janet

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Running USS with locale other than 1047

2016-10-12 Thread R.S.

W dniu 2016-10-12 o 19:26, Lindy Mayfield pisze:

Hello,

I read in places where IBM gives both pros and cons to running USS with a code
page other than 1047, if for example your 3270 terminal emulator is set to
Danish. I also find instructions such as this, though I'm not sure if this is
all that is necessary to switch USS encoding:

http://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.bpxb200/danish.htm

I'm curious how common it is for people to system wide set USS to be in a code
page other than 1047 which matches their 3270 emulator?

If so, is this statement true for code points that don't match? The shell
script will fail if it has $ or curly braces or brackets, etc., characters
outside of that cp.

What happens if I use putty or similar ssh client and then edit a shell script
using vi? Would that be the same as using ISHELL to edit the same shell
script, and my 3270 emulator is set to 1143?

Apologies if my questions aren't clear, as this topic isn't very clear to me at
the moment. Hopefully someone with experience with this will help me
understand it better.

Well, I always use non-US codepage on my 3270 emulator. Reason: I'm
Pole, speak Polish, sometimes write Polish naational characters. ;-)
Usually I use CP 870, but there is also similar codepage with EURO sign.
For C programming I've used to use CP 1047 [brackets].
However we don't set anything in USS. It's not needed for text (with
polish characters) writing or reading.

BTW: Polish codepage is a little bit tricky even on MVS side, REXX
concatenation sign, usually called pipe: ||

In Polish 3270 I see exclamation, so I have to code !!
Note, the exclamation mark is not part of Polich characer set, it's just
punctuation mark, like in other languages (maybe with exception for Spain)

--
Radoslaw Skorupka
Lodz, Poland

---
Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku
przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie
jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem
niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania
adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie
lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by
karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie
zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo
wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is
intended solely for business use of the addressee. This e-mail may only be
received by the addressee and may not be disclosed to any third parties. If you
are not the intended addressee of this e-mail or the employee authorized to
forward it to the addressee, be advised that any dissemination, copying,
distribution or any other similar activity is legally prohibited and may be
punishable. If you received this e-mail by mistake please advise the sender
immediately by using the reply facility in your e-mail software and delete
permanently this e-mail including any copies of it either printed or saved to
hard drive.

mBank S.A. z siedzib w Warszawie, ul. Senatorska 18, 00-950 Warszawa,
www.mBank.pl, e-mail: kont...@mbank.pl
Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru
Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88.
Wedug stanu na dzie 01.01.2016 r. kapita zakadowy mBanku S.A. (w caoci
wpacony) wynosi 168.955.696 zotych.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM Education Assistance for z/OS - Useful??

2016-10-12 Thread wjanulin

I never heard of it, either.

Sent from my Verizon 4G LTE Smartphone

-- Original message--
From: Bonnie C Barthel
Date: Wed, Oct 12, 2016 5:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU;
Subject:Re: IBM Education Assistance for z/OS - Useful??

Noone on my team has heard of this.  Sounds good but we'll check it out 
and give feedback.  Thanks, Bonnie

Bonnie Barthel | z/OS Support |  IBM Strategic Outsourcing Delivery | 
720.396.6755 |  pager: cobon...@vtext.com 

From:   Marna Walle/Poughkeepsie/IBM@IBMUS
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   10/12/2016 02:35 PM
Subject:IBM Education Assistance for z/OS - Useful??
Sent by:IBM Mainframe Discussion List 

Hello IBM-MAINers,
I wanted to ask about the usefulness of the IBM Education Assistance (IEA) 
for z/OS.

A little background:  IEA is found here:  
http://www.redbooks.ibm.com/redbooks.nsf/pages/IBMIEAV22avail?Open and 
provides concise and technical information about a specific function 
introduced in z/OS.  For instance, there is a module there for Dynamic 
Logrec in z/OS V2.2.It is intended to be a "one stop shopping" 
location for new enhancements in a z/OS release.  Of course, all 
information can also be found in the appropriate z/OS books.  We've had 
IEA for both z/OS V2.1 and V2.2.

My questions are:
1)  is this is still a good way to provide this information to you?
2) with all the other ways to learn about new functions, is IEA still 
needed by you?
3) are there particular topics in IEA that you like and want to continue 
to see in the future?  if so, which ones?

Thanks in advance for any opinions you'd like to share.
-Marna WALLE
z/OS Installation, IBM Poughkeepsie

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM Education Assistance for z/OS - Useful??

2016-10-12 Thread Bonnie C Barthel

Noone on my team has heard of this.  Sounds good but we'll check it out 
and give feedback.  Thanks, Bonnie

Bonnie Barthel | z/OS Support |  IBM Strategic Outsourcing Delivery | 
720.396.6755 |  pager: cobon...@vtext.com 

From:   Marna Walle/Poughkeepsie/IBM@IBMUS
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   10/12/2016 02:35 PM
Subject:IBM Education Assistance for z/OS - Useful??
Sent by:IBM Mainframe Discussion List 

Hello IBM-MAINers,
I wanted to ask about the usefulness of the IBM Education Assistance (IEA) 
for z/OS.

A little background:  IEA is found here:  
http://www.redbooks.ibm.com/redbooks.nsf/pages/IBMIEAV22avail?Open and 
provides concise and technical information about a specific function 
introduced in z/OS.  For instance, there is a module there for Dynamic 
Logrec in z/OS V2.2.It is intended to be a "one stop shopping" 
location for new enhancements in a z/OS release.  Of course, all 
information can also be found in the appropriate z/OS books.  We've had 
IEA for both z/OS V2.1 and V2.2.

My questions are:
1)  is this is still a good way to provide this information to you?
2) with all the other ways to learn about new functions, is IEA still 
needed by you?
3) are there particular topics in IEA that you like and want to continue 
to see in the future?  if so, which ones?

Thanks in advance for any opinions you'd like to share.
-Marna WALLE
z/OS Installation, IBM Poughkeepsie

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM Education Assistance for z/OS - Useful??

2016-10-12 Thread Gord Tomlin


On 2016-10-12 16:35, Marna WALLE wrote:

Hello IBM-MAINers,
I wanted to ask about the usefulness of the IBM Education Assistance (IEA) for 
z/OS.

A little background:  IEA is found here:  
http://www.redbooks.ibm.com/redbooks.nsf/pages/IBMIEAV22avail?Open and provides concise 
and technical information about a specific function introduced in z/OS.  For instance, 
there is a module there for Dynamic Logrec in z/OS V2.2.It is intended to be a 
"one stop shopping" location for new enhancements in a z/OS release.  Of 
course, all information can also be found in the appropriate z/OS books.  We've had IEA 
for both z/OS V2.1 and V2.2.

My questions are:
1)  is this is still a good way to provide this information to you?
2) with all the other ways to learn about new functions, is IEA still needed by 
you?
3) are there particular topics in IEA that you like and want to continue to see 
in the future?  if so, which ones?

Thanks in advance for any opinions you'd like to share.
-Marna WALLE
z/OS Installation, IBM Poughkeepsie



I can only speak for myself, but I had no knowledge that IEA even 
existed. I've now skimmed a few of the presentations and they look useful.


The page referenced by your link shows only 2.2 items. I don't see any 
benefit to removing items for all but the latest release.


--

Regards, Gord Tomlin
Action Software International
(a division of Mazda Computer Corporation)
Tel: (905) 470-7113, Fax: (905) 470-6507

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Changing the primary AUTHID using RACROUTE

I have an application and I want to change the the userid.  I have the RACF 
macros coded but I'm having trouble coming up with the source of TERMID.  Where 
do I get the TERMID?

The code in question looks like this:

 MODESET MODE=SUP
 LAR7,RACFWORK
 MVC   RACRWORK,RACRLIST
 MVC   USERLEN,8
 MVC   USERID,=CL8'MYUSER   '
 MVC   PSWLEN,8
 MVC   PASSWD,=CL8''
 MVC   MYACEE,=F'0'
 MVC   MYTERM,=CL8''  < clearly I need a value here

 LAR5,USERLEN
 LAR6,PSWLEN
 LAR8,MYACEE
 LAR9,MYTERM
 RACROUTE REQUEST=VERIFY,WORKA=(R7),SYSTEM=YES,PASSCHK=YES,X
   ENVIR=CREATE,USERID=(R5),PASSWRD=(R6),ACEE=(R8), 
   X
   TERMID=(R9), 
   X
   RELEASE=1.9.2,MF=(E,RACRWORK)
 STR15,RC
...
 MVC   RACRWORK,RACRLIS2
 LAR8,MYACEE
 RACROUTE REQUEST=VERIFY,WORKA=(R7),SYSTEM=YES,PASSCHK=NO, X
   ENVIR=CHANGE,ACEE=(R8),  
   X
   RELEASE=1.9.2,MF=(E,RACRWORK)
 STR15,RC
 MODESET MODE=PROB

The error I'm getting is this

ICH408I JOB(JIGRACF ) STEP(RUN )  790
  LOGON/JOB INITIATION - USER AT TERMINAL  NOT RACF-DEFINED  

Which clearly says I need to provide a TERMID (or equivalent) on the 
ENVIR=CREATE.

Where do I get the TERMID?

Also I suspect I might be archaic by using RELEASE=1.9.2, is there a more 
appropriate value for this decade?

Janet

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

On Wed, Oct 12, 2016 at 3:31 PM, Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Wed, 12 Oct 2016 14:27:58 -0500, John McKown wrote:
>
> >On Wed, Oct 12, 2016 at 2:17 PM, Gibney, Dave  wrote:
> >> HLQ (tousercat) .varname.value
> >
> >What if "value" is does not adhere to a DSN node restrictions?...
> >
> What would the dreaded DISABLE(DSNCHECK) do for you?
>

I am pretty sure that I'm just going to use bpxwunix() in a TSO server to
do "wild and crazy" things using UNIX files. That is, if I even really
needs to. Most of what the CA-OPS/MVS global variables are being used for
is to be able to send a message to production control if one or more
selected jobs do not start "on time". This is done by setting a global
variable like GLOBAL. to "1" when a job runs (IEF403I message
issued), then a TOD rule to check if the same variable is set to "1" and do
a SEND command if it is not. Just something to help the production person
stay aware of possible problems during the night (she works a split shift -
morning, then evening).

>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

IBM Education Assistance for z/OS - Useful??

2016-10-12 Thread Marna WALLE

Hello IBM-MAINers,
I wanted to ask about the usefulness of the IBM Education Assistance (IEA) for 
z/OS.

A little background:  IEA is found here:  
http://www.redbooks.ibm.com/redbooks.nsf/pages/IBMIEAV22avail?Open and provides 
concise and technical information about a specific function introduced in z/OS. 
 For instance, there is a module there for Dynamic Logrec in z/OS V2.2.It 
is intended to be a "one stop shopping" location for new enhancements in a z/OS 
release.  Of course, all information can also be found in the appropriate z/OS 
books.  We've had IEA for both z/OS V2.1 and V2.2.

My questions are:
1)  is this is still a good way to provide this information to you?
2) with all the other ways to learn about new functions, is IEA still needed by 
you?
3) are there particular topics in IEA that you like and want to continue to see 
in the future?  if so, which ones?

Thanks in advance for any opinions you'd like to share.
-Marna WALLE
z/OS Installation, IBM Poughkeepsie

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

On Wed, 12 Oct 2016 14:27:58 -0500, John McKown wrote:

>On Wed, Oct 12, 2016 at 2:17 PM, Gibney, Dave  wrote:
>> HLQ (tousercat) .varname.value
>
>What if "value" is does not adhere to a DSN node restrictions?...
>
What would the dreaded DISABLE(DSNCHECK) do for you?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How set CVTLSO?

2016-10-12 Thread George Kozakos

> Ah! I am starting to understand. Leap Second steering is accomplished
with
> the PTFF instruction and is independent of CVTLSO. PTFF appears to slow
down
> the physical clock.
>
> So ... steering and CVTLSO are essentially alternatives, right? CVTLSO
> should not include any leap seconds that were previously (or were about
to
> be) "steered" -- is that right? And if a shop is using STP it is probably
> not modifying CVTLSO: CVTLSO is probably either zero, or at least stable.
Am
> I getting this right?
>
> Charles

No, you have it wrong. Steering has nothing to do with leap seconds. STP
checks
the external time source (ETS) at regular intervals and makes adjustments
via
steering to keep accurate with the ETS.

It just so happens that if you don't schedule the leap second at the
appropriate time via the STP panel, when the leap second occurs, the STP
UTC
time will be 1 second ahead of the ETS and so steering will occur to
correct it.

If you do schedule the leap second, then STP generates a "Time Control
Parameter
Change event" external interrupt that gets processed by z/OS to make the
leap
second adjustment. If it is a positive change, z/OS spins on all CPUs for
the
amount of the positive leap second change to ensure there are no duplicate
UTC
time stamps and updates CVTLSO. No steering is required as STP UTC time
remained
accurate with the ETS.

George Kozakos
z/OS Software Service, Level 2 Supervisor



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Running USS with locale other than 1047

On Wed, 12 Oct 2016 17:26:47 +, Lindy Mayfield wrote:

>Hello,
>
>I read in places where IBM gives both pros and cons to running USS with a code 
>page other than 1047, if for example your 3270 terminal emulator is set to 
>Danish.   I also find instructions such as this, though I'm not sure if this 
>is all that is necessary to switch USS encoding:
>
>http://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.bpxb200/danish.htm
>
>I'm curious how common it is for people to system wide set USS to be in a code 
>page other than 1047 which matches their 3270 emulator?
>
Eek!:

o Underreaching.  This ought to be as simple as the users' issuing the locale 
command
  to choose their preferred character sets.

o The instructions seem to be for a system-wide setting.  What if you nave a 
far-flung
  user base with one user preferring Danish (277) and another preferring Polish 
(870)?

>If so, is this statement true for code points that don't match?  The shell 
>script will fail if it has $ or curly braces or brackets, etc., characters 
>outside of that cp.
>
>What happens if I use putty or similar ssh client and then edit a shell script 
>using vi?  Would that be the same as using ISHELL to edit the same shell 
>script, and my 3270 emulator is set to 1143?
> 
Do tagging and autoconversion help?  Or is autoconversion limited to 
819<-->1047?
(or is that actually 819<-->[site's configured locale]?)

>Apologies if my questions aren't clear, as this topic isn't very clear to me 
>at the moment.  Hopefully someone with experience with this will help me 
>understand it better.
>
ISPF Edit under ISPF 3.17 seems to deal splendidly with UTF-8 (at least when the
terminal code page is 1047 and all the UTF-8 characters are displayable).  But I
tried setting my terminal to Russian (880) and only Latin characters display
correctly.  Can't experiment much further.  My x3270 claims to support Finnish 
(278),
Icelandic (871) and Norwegian (277), but not Danish.  Wait! the URL you cited 
calls
Danish 277?  Are they the same?

Should some of this be on ISPF-L or MVS-OE?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

2016-10-12 Thread Gibney, Dave

Valid point :) 
For another wild idea, use ENQ :)

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of John McKown
> Sent: Wednesday, October 12, 2016 12:28 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: System REXX and UNIX
> 
> On Wed, Oct 12, 2016 at 2:17 PM, Gibney, Dave  wrote:
> 
> > HLQ (tousercat) .varname.value
> >
> 
> What if "value" is does not adhere to a DSN node restrictions? Using
> bpxwunix() in a TSO REXX environment seems to be the way to go, at least at
> present. I can do things like:
> 
> stdin.0=0
> stdout.0=0
> stderr.0=0
> rc=bpxwunix("echo 'value'
> >/usr/SystemREXX/values/GLOBAL.VARNAME",stdin.,stdout.,stderr.);
> 
> rc=bpxwunix("cat
> /usr/SystemREXX/values/GLOBAL.VARNAME",stdin.,stdout.,stderr.)
> if stdout.0 = 0 then signal NOVALUE
> say "value is:"stdout.1
> 
> rc=bpxunix('rm
> /usr/SystemREXX/values/GLOBAL.VARNAME",stdin.,stdout.,stderr.)
> 
> Just seems easier than messing with the z/OS catalog. This seems to work OK.
> I just wish that I could do things more directly / efficiently.
> 
> --
> Heisenberg may have been here.
> 
> Unicode: https://urldefense.proofpoint.com/v2/url?u=http-
> 3A__xkcd.com_1726_=DQIFaQ=C3yme8gMkxg_ihJNXS06ZyWk4EJm8L
> drrvxQb-Je7sw=u9g8rUevBoyCPAdo5sWE9w=fIHPzrWdnNLkzakE4g6z-
> BxzNhlNvt3yr6MFTtXI7O4=NizCQvkU4qYZTIK08037_9o7QgWJui59krehTEt
> 83Gw=
> 
> Maranatha! <><
> John McKown
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: RFE 73512 - "Better use of ISPF screen names in SDSF"

2016-10-12 Thread Dana Mitchell

Robert,

I was adding to your code the new panels that are available in z/OS 2.1.  It 
looks like now there are some that do not have unique display values:

RES and RM  both display RESOURCE
SP and SO both display SPOOL...

So I tried this instead.  Self maintaining and relatively easily understood:

 zscrname = left(display,7)  

Dana


On Sun, 2 Oct 2016 12:00:40 +, Robert Prins  
wrote:

>
>Thanks to those who replied, I've currently got this
>
>zscrname = word('SDSF ISF@ST  ISF@O   ISF@DA  ISF@H   ISF@I',
>  'ISF@LOG ISF@SR  ISF@MAS ISF@JC  ISF@SE',
>  'ISF@PS  ISF@INI ISF@PR  ISF@PUN',
>  'ISF@RDR ISF@LIN ISF@NOD ISF@SO  ISF@ULG',,
> wordpos(display, 'STATUS  OUTPUT DA HELD INPUT',
>  'SYSLOG SYSTEM MAS JOB SCHEDULING',
>  'PROCESS INITIATOR PRINTER PUNCH',
>  'READER LINE NODE SPOOL ULOG') + 1)
>
>But that's way from complete according to the manual. ;)
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

On Wed, Oct 12, 2016 at 2:17 PM, Gibney, Dave  wrote:

> HLQ (tousercat) .varname.value
>

What if "value" is does not adhere to a DSN node restrictions? Using
bpxwunix() in a TSO REXX environment seems to be the way to go, at least at
present. I can do things like:

stdin.0=0
stdout.0=0
stderr.0=0
rc=bpxwunix("echo 'value'
>/usr/SystemREXX/values/GLOBAL.VARNAME",stdin.,stdout.,stderr.);

rc=bpxwunix("cat
/usr/SystemREXX/values/GLOBAL.VARNAME",stdin.,stdout.,stderr.)
if stdout.0 = 0 then signal NOVALUE
say "value is:"stdout.1

rc=bpxunix('rm
/usr/SystemREXX/values/GLOBAL.VARNAME",stdin.,stdout.,stderr.)

Just seems easier than messing with the z/OS catalog. This seems to work
OK. I just wish that I could do things more directly / efficiently.

-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

2016-10-12 Thread Gibney, Dave

HLQ (tousercat) .varname.value

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of John McKown
> Sent: Wednesday, October 12, 2016 9:59 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: System REXX and UNIX
> 
> On Wed, Oct 12, 2016 at 11:44 AM, Rob Schramm
>  wrote:
> 
> > Create/delete catalog entries in a dedicated usercat.
> >
> 
> Hum, would be difficult to store a value into the catalog entry. But a DEFINE 
> &
> DELETE should be fairly quick, at least compared to actually creating a data
> set.
> 
> 
> 
> >
> > Rob Schramm
> >
> >
> 
> --
> Heisenberg may have been here.
> 
> Unicode: https://urldefense.proofpoint.com/v2/url?u=http-
> 3A__xkcd.com_1726_=DQIBaQ=C3yme8gMkxg_ihJNXS06ZyWk4EJm8L
> drrvxQb-
> Je7sw=u9g8rUevBoyCPAdo5sWE9w=Tez2u4JYGYk0ZXNXOuwsldzpqph
> awlmnYtvSO5CUU90=kGEXCu5ofO4XQ8RRC9UICJgniEBKRMkPAjPdq7wqEs
> E=
> 
> Maranatha! <><
> John McKown
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

2016-10-12 Thread Kirk Wolf

On Wed, Oct 12, 2016 at 10:41 AM, Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> IIRC, I've used BPXWUNIX from IRXJCL.  I was trying to invent a smarter
> BPXBATCH.  Worked well.  I was able to allocate stdout and stderr to
> SYSOUT in the era before BPXBATCH supported that, and with SDSF to tail
> those SYSOUTs in real time.  (I suppose Co:Z might now provide a better
> solution.)
>
> Gil,
>From you this is high praise ;-)
Co:Z Batch is a tiny little 10-year old utility that simply does what
BPXBATCH should have done.
It is free to use and trivial to install with a register-free download.
https://dovetail.com/products/cozbatch.html

You are correct: you don't need an LE environment to use the BPX kernel
service calls. REXX doesn't have/use an LE environment AFAIK. I don't know
much about the System REXX environment, but I would assume kernel service
calls would work fine.   The REXX SYSCALL environment uses these, so I'm
not sure why it wouldn't work.   I would ask this on MVS-OE; Bill Schoen
might see it there and clarify.

Kirk Wolf
Dovetailed Technologies

PS> We are always interested in suggestions for improvement.   The last
change to Co:Z Batch
was a few years ago when we added support for JES System symbols.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

2016-10-12 Thread Anne & Lynn Wheeler

l...@garlic.com (Anne & Lynn Wheeler) writes:
> count of latency to memory (& cache miss), when measured in count of
> processor cycles is comparable to 60s latency to disk when measured in
> count of 60s processor cycles.

re:
http://www.garlic.com/~lynn/2016f.html#91 ABO Automatic Binary Optimizer

science center ... some past posts
http://www.garlic.com/~lynn/subtopic.html#545tech

had done virtual machines, virtual memory, paging, etc operating systems
in the 60s ... as well as lots of performance monitoring and
optimization technology. we gave POK some tutorials in the 70s when they
were migrating from os/360 to VS2 on the subject.

One of the performance optimizating technologies done by the scientific
center was eventually released to customers as "VS/Repack" ... it did
semi-optimated program organization for paging environment. These days,
caches are the modern memory, and cache misses are the modern page
faults, and latency to memory (when measured in processor cycles) is
comparable to access to paging devices.

In the 70s, lots of OS/VS products used the internal version of
VS/Repack for adapting their products to virtual memory environment
(also for use on general performance optimization ... since a of the
tools that could feed into VS/Repack and program organization could be
used for hot-spot analysis)

-- 
virtualization experience starting Jan1968, online at home since Mar1970

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

2016-10-12 Thread Tom Conley


On 10/12/2016 12:29 PM, Jesse 1 Robinson wrote:

IBM is wrong. Tom is right. He lives for moments like this. ;-)



I resemble that remark ;-)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Running USS with locale other than 1047

2016-10-12 Thread Lindy Mayfield

Hello,

I read in places where IBM gives both pros and cons to running USS with a code 
page other than 1047, if for example your 3270 terminal emulator is set to 
Danish.   I also find instructions such as this, though I'm not sure if this is 
all that is necessary to switch USS encoding:

http://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.bpxb200/danish.htm

I'm curious how common it is for people to system wide set USS to be in a code 
page other than 1047 which matches their 3270 emulator?

If so, is this statement true for code points that don't match?  The shell 
script will fail if it has $ or curly braces or brackets, etc., characters 
outside of that cp.

What happens if I use putty or similar ssh client and then edit a shell script 
using vi?  Would that be the same as using ISHELL to edit the same shell 
script, and my 3270 emulator is set to 1143?

Apologies if my questions aren't clear, as this topic isn't very clear to me at 
the moment.  Hopefully someone with experience with this will help me 
understand it better.

Kind regards,
Lindy Mayfield

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: z/OS V2.2 and using IEFOPZxx

2016-10-12 Thread Tom Conley


On 10/12/2016 12:35 PM, Lizette Koehler wrote:

Since this was added, is anyone using it?

What I am curious about is does the JCL or SMF Records indicate what library the
program was loaded from when executed?

Would I report on it like I would a Steplib/Joblib process?  Or is there a
different process?

My thought is a production batch abends, the programmers keep looking at their
STEPLIB and not realize I have taken control with IEAOPZxx.  I would need a way
for them to see this easily and not call me at 2am.


We are not there yet, so I cannot validate this question.




Lizette,

You'll see it in the allocation messages.

Regards,
Tom Conley

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMS Volume Status

Thanks for the reply.  

The problem I'm having is that the definition for each volume as defined in the 
storage group doesn't show up on this list as best I can tell . The status that 
is shown is the current status of the volume.  I need to identify those that 
have a status different than what they were defined I the CDS as.  

I'm probably going to end up displaying the volumes in SDSF, save those off and 
create Naviquest cards to update the CDS with the current status.  That way, 
everything will be as it is today.  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Wednesday, October 12, 2016 11:04 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMS Volume Status

Chuck Kreiter wrote:

> What has happened over time is that some volumes have been DISNEW'ed to clear 
> them or ENABLED (from DISNEW) to allow for new allocations.  These were all 
> done via the VARY SMS,VOLUME(xx),DISABLE,NEW type commands.  

Others gave you good and interesting replies.

If you want to know when that VARY command is issued, you can use SMF to see 
who and when was that VARY command issued. (RACF class OPERCMDS, profile 
MVS.VARY.*)

>System/Sys SMS VOL MVS Vol  SMS G
>Group Name Status  Status   Status
>--- ---  --
>SYS1   DISNEW  ONLINE   ENABLE

>I'm really looking for this info in a batch (ideally) report.  I've looked 
>through Naviquest but not seen anything that reports this yet.

Print above list out (look at pulldown menu in ISMF) Then use DFSORT or ICETOOL 
to filter out your output dataset.

To see all volsers where first Status is different from second Status try out 
this ICETOOL statement:

INCLUDE COND=(,6,CH,NE,,6,CH)

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: System REXX and UNIX

2016-10-12 Thread Dyck, Lionel B. (TRA)

You could write a routine to use system name/token pairs for the info.

Here is an article I wrote at the turn of the century about them

http://www.lbdsoftware.com/Using_System_Name-Token_Pairs.pdf

--
Lionel B. Dyck (TRA Contractor)
Mainframe Systems Programmer 
Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
VA OI Service Delivery & Engineering


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Wednesday, October 12, 2016 11:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: System REXX and UNIX

On Wed, Oct 12, 2016 at 11:44 AM, Rob Schramm  wrote:

> Create/delete catalog entries in a dedicated usercat.
>

Hum, would be difficult to store a value into the catalog entry. But a DEFINE & 
DELETE should be fairly quick, at least compared to actually creating a data 
set.



>
> Rob Schramm
>
>

--
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

On Wed, Oct 12, 2016 at 11:44 AM, Rob Schramm  wrote:

> Create/delete catalog entries in a dedicated usercat.
>

Hum, would be difficult to store a value into the catalog entry. But a
DEFINE & DELETE should be fairly quick, at least compared to actually
creating a data set.

>
> Rob Schramm
>
>

-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

2016-10-12 Thread Rob Schramm

Create/delete catalog entries in a dedicated usercat.

Rob Schramm

On Wed, Oct 12, 2016, 11:42 AM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Wed, 12 Oct 2016 09:02:28 -0500, John McKown wrote:
>
> >On Wed, Oct 12, 2016 at 8:56 AM, Itschak Mugzach wrote:
> >
> >> John, try calling bpxwunix. Works great for me. What is great he the
> that
> >> results are returned in an array stem variable).
> >
> >I'll try that. I wonder if I can do that in a non-TSO server. I'm trying
> >to avoid TSO based servers due to the limited number.
> >
> IIRC, I've used BPXWUNIX from IRXJCL.  I was trying to invent a smarter
> BPXBATCH.  Worked well.  I was able to allocate stdout and stderr to
> SYSOUT in the era before BPXBATCH supported that, and with SDSF to tail
> those SYSOUTs in real time.  (I suppose Co:Z might now provide a better
> solution.)
>
> OTOH, assembler interfaces are available to all the UNIX kernel services.
>
> The Gripping Hand is whether kernel services are available whatever in
> System Rexx, with the added complication of making addresses of Rexx
> variables available to those assembler interfaces.  That would depend
> on (undocumented?) details of Rexx storage management.
>
> LE?  I don't believe kernel services have LE entanglements.
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
-- 

Rob Schramm

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

2016-10-12 Thread Jesse 1 Robinson

Many useful replies here. Just a note of caution. Automation that depends on 
starting a new address space will probably work fine 99% of the time. We 
previously used a product like that. The problem is when automation needs to 
take action to recover from a resource shortage. Spool full and ASM shortage 
come to mind. In the case of ASM shortage, another member of the same sysplex 
might be able to handle the situation, but in a monoplex you have no helper. In 
the case of spool full, all members are likely affected in the same way. In 
such situations, you need to have an already-running task to take action 
without have to start something new. If you need that capability anyway, best 
to design it that way from the beginning. 

I have not touched TSSO in many years, but the price is right and may well meet 
the criteria above. 

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-302-7535 Office
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Wednesday, October 12, 2016 5:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):System REXX and UNIX

OK, so I'm weird. That should be well known around here . I'm really 
getting into System REXX to help replace what CA-OPS/MVS does in our shop 
(remember we're dying and OPS license expires in Feb 2017).

What I am doing is using the MPFLSTxx member of PARMLIB to run a user exit, 
given to me by Dana Mitchell, called MPF2REXX which sets up some REXX variables 
then uses the AXREXX facility to run a System REXX program.

What would make some coding easier would be if I could do an ADDRESS SYSCALL. 
Unfortunately, this environment is not on the list of environments available in 
either (TSO & non-TSO) server. What I'm trying to do is emulate the use of 
"global" CA-OPS/MVS variables. I.e. variables which can be created in any rule 
and read / modified / deleted in any other rule. The easiest way that I've 
thought of is to have a UNIX directory dedicated to this functionality. I could 
then use the SYSCALL functions to create / read / write / delete files in this 
directory. The name of the file in the directory would be the same as the 
CA-OPS/MVS "global" variable.

Unfortunately, all that I can think of to do is to use System REXX's
axrcmd() function to do a START command to run an STC which is a batch TMP to 
run yet another REXX command to process the message. Passing all the data to 
the new STC may be a bit of a bother too. You need to know that I'm stuck on 
z/OS 1.12 and don't have a lot of the nice new JCL facilities (such as being 
able to programmatically read JCL symbols from // SET statements).

Does anyone have a different idea how to emulate CA-OPS/MVS global variables in 
System REXX programs, preferably in a non-TSO server?

--
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

Well, I'm still going to disagree on the level of "testing" required.

You (now) need to check for the stupid out-of-order PERFORM ... THRU ... but 
otherwise you are good to go.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

The only difficulty in migration to Cobol V5 and above is the need for PDS/E
datasets.

Since z/OS V2.2 is providing a way to not have to UPDATE all production JCL with
PDS/E datasets, that issue with migration, imo, is greatly reduced.

So once z/OS V2.2 is installed, migration plans to COBOL V5 and above should be
able to begin.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Norman Hollander on Desertwiz
> Sent: Wednesday, October 12, 2016 9:26 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ABO Automatic Binary Optimizer
> 
> 2 Thoughts to consider:
> 
> - ABO only runs on z/OS 2.1 and above
> - ABO creates a new load module that (IMHO) needs as much Q/A testing as
> compiling in the newest compiler.
>   IIRC, back in the day, going to Enterprise COBOL, there was less than 8%
> of COBOL source that needed
>   to be remediated.  That is, certain COBOL verbs needed to be updated to
> new ones.  Things like INSPECT
>   may have been flagged.
> 
> A good Life Cycle Management tool (did I say Endevor?) could help with an easy
> migration to a new compiler.
> You could try a minor application and see how difficult in may be...
> 
> zN
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Charles Mills
> Sent: Wednesday, October 12, 2016 8:48 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ABO Automatic Binary Optimizer
> 
> Nope. Agree 100% with what @Tom says. The ABO is not a source code migration
> tool, it is a compiler. Really -- a very weird compiler. Most compilers take
> source code in and produce object code out. The ABO is a compiler that takes
> object code in and produces object code out. What good is that? It takes
> System 370 object code in and produces z13 object code out.
> 
> Why is that useful? Because the speed gains in the last several generations of
> mainframe are not in clock/cycle speed. System 370 object code does not run
> any faster on a z13 than on a z10. The gains are in new instructions.
> The same functionality as that S/370 object code expressed in z13 object code
> runs a lot faster.
> 
> (Please, no quibbles. Many shortcuts and generalizations in the above. If I
> had been perfectly precise it would have read like a legal document. The
> general points are correct.)
> 
> Charles
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Lopez, Sharon
> Sent: Wednesday, October 12, 2016 7:51 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: ABO Automatic Binary Optimizer
> 
> Does anyone know if this product, Automatic Binary Optimizer, will actually
> migrate Cobol V4 to V6 for you?  Our IBM reps are telling us that it will
> actually do the migration for you.  Based on what I've read, it is a
> performance product and I didn't see that capability.
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

z/OS V2.2 and using IEFOPZxx

Since this was added, is anyone using it?

What I am curious about is does the JCL or SMF Records indicate what library the
program was loaded from when executed?

Would I report on it like I would a Steplib/Joblib process?  Or is there a
different process?

My thought is a production batch abends, the programmers keep looking at their
STEPLIB and not realize I have taken control with IEAOPZxx.  I would need a way
for them to see this easily and not call me at 2am.
 

We are not there yet, so I cannot validate this question.


Lizette Koehler
statistics: A precise and logical method for stating a half-truth inaccurately

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

2016-10-12 Thread Jesse 1 Robinson

IBM is wrong. Tom is right. He lives for moments like this. ;-)

Optimization occurs at the load module end only. You might view ABO as a 
stop-gap on the road to compiler upgrade. You get savings now even while (you 
may be) upgrading at the source end. ABO-optimized code is not as efficient as 
V5/V6, but it can be substantially better than native V4 code. 

Note that Tom's reference to 'program object' does not mean that you must 
necessarily use PDSE. As discussed here before, one compiler upgrade problem 
that some shops have is historically sharing load libraries across sysplex 
boundaries. Convenient but not advisable even for PO. PDSEs cannot be shared 
that way. In order to migrate production load modules to multiple PDSEs, the 
whole migration process might have to be rewritten. That could take more work 
than the compiler upgrade itself. 

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-302-7535 Office
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Conley
Sent: Wednesday, October 12, 2016 8:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: ABO Automatic Binary Optimizer

On 10/12/2016 10:50 AM, Lopez, Sharon wrote:
> Does anyone know if this product, Automatic Binary Optimizer, will actually 
> migrate Cobol V4 to V6 for you?  Our IBM reps are telling us that it will 
> actually do the migration for you.  Based on what I've read, it is a 
> performance product and I didn't see that capability.
>
> Thanks to everyone in advance.
>

ABO only creates an optimized LOAD MODULE (program object).  It does not 
convert your source to V6, and it will not give you all the optimizations of 
V6.  Your biggest payback is if you upgrade your CPU, then you can run your 
load modules through ABO and get some of the optimization provided by the new 
hardware.

Regards,
Tom Conley

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

2016-10-12 Thread Anne & Lynn Wheeler

charl...@mcn.org (Charles Mills) writes:
> Why is that useful? Because the speed gains in the last several generations
> of mainframe are not in clock/cycle speed. System 370 object code does not
> run any faster on a z13 than on a z10. The gains are in new instructions.
> The same functionality as that S/370 object code expressed in z13 object
> code runs a lot faster.

count of latency to memory (& cache miss), when measured in count of
processor cycles is comparable to 60s latency to disk when measured in
count of 60s processor cycles.

claim is that over half of per processor improvement from z10 to z196
was introduction of latency masking technology (that have been in other
platforms for decades), out-of-order execution (proceed with other
instructions while waiting for cache miss), speculative execution and
branch prediction (start executing instructions before condition for
branch is available), etc. (aka basically do other things while waiting
on memory).

z196->ec12 is supposedly further refinements in memory latency masking
features (again have been in other platforms for decades).

z900, 16 processors, 2.5BIPS (156MIPS/proc), Dec2000
z990, 32 processors, 9BIPS, (281MIPS/proc), 2003
z9, 54 processors, 18BIPS (333MIPS/proc), July2005
z10, 64 processors, 30BIPS (469MIPS/proc), Feb2008
z196, 80 processors, 50BIPS (625MIPS/proc), Jul2010
EC12, 101 processors, 75BIPS (743MIPS/proc), Aug2012

z13 published refs is 30% more throughput than EC12 (or about 100BIPS)
with 40% more processors ... or about 710MIPS/proc

I've told story before about after FS imploded there was mad rush
to get stuff back into product pipelines ... some past posts
http://www.garlic.com/~lynn/submain.html#futuresys

303x and 3081 were kicked off in parallel, 3031&3032 were 158&168
repackaged to work with channel director ... and 3033 started out 168
logic mapped to some warmed over FS chips that were 20% faster.

we had a project to do 16-way SMP multiprocessor and had con'ed the 3033
processor engineers to work on it in their spare time (lot more
interesting than 3033), many in POK thot it was really neat ... until
somebody told the head of POK that it could be decades before the POK
favorite son operating system had effective 16-way support ... then some
of us were instructed to never visit POK again (and the 3033 processor
engineers were told to stop getting distracted). 16-way finally ships
almost 25yrs later (Dec2000).

-- 
virtualization experience starting Jan1968, online at home since Mar1970

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

2016-10-12 Thread Norman Hollander on Desertwiz

2 Thoughts to consider:

- ABO only runs on z/OS 2.1 and above
- ABO creates a new load module that (IMHO) needs as much Q/A testing as
compiling in the newest compiler.
IIRC, back in the day, going to Enterprise COBOL, there was less
than 8% of COBOL source that needed
to be remediated.  That is, certain COBOL verbs needed to be updated
to new ones.  Things like INSPECT
may have been flagged.  

A good Life Cycle Management tool (did I say Endevor?) could help with an
easy migration to a new compiler.
You could try a minor application and see how difficult in may be...

zN

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Charles Mills
Sent: Wednesday, October 12, 2016 8:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ABO Automatic Binary Optimizer

Nope. Agree 100% with what @Tom says. The ABO is not a source code migration
tool, it is a compiler. Really -- a very weird compiler. Most compilers take
source code in and produce object code out. The ABO is a compiler that takes
object code in and produces object code out. What good is that? It takes
System 370 object code in and produces z13 object code out.

Why is that useful? Because the speed gains in the last several generations
of mainframe are not in clock/cycle speed. System 370 object code does not
run any faster on a z13 than on a z10. The gains are in new instructions.
The same functionality as that S/370 object code expressed in z13 object
code runs a lot faster.

(Please, no quibbles. Many shortcuts and generalizations in the above. If I
had been perfectly precise it would have read like a legal document. The
general points are correct.)

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lopez, Sharon
Sent: Wednesday, October 12, 2016 7:51 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ABO Automatic Binary Optimizer

Does anyone know if this product, Automatic Binary Optimizer, will actually
migrate Cobol V4 to V6 for you?  Our IBM reps are telling us that it will
actually do the migration for you.  Based on what I've read, it is a
performance product and I didn't see that capability.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

2016-10-12 Thread Feller, Paul

Having done some testing with ABO and COBOL V6, you will find that ABO (ARCH10) 
runs better than COBOL V4 and COBOL V6 (ARCH10) runs better then ABO.  When you 
start using ABO you need to keep using ABO for new compiles (compile/link/ABO) 
or convert to COBOL V6.  Depending on the size of the LOAD module ABO can use 
up some memory and CPU to perform its work.  


Thanks..

Paul Feller
AGT Mainframe Technical Support


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Wednesday, October 12, 2016 11:03
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ABO Automatic Binary Optimizer

I suppose the cunning thing to do would be to write it into the contract, then 
you get IBM to do the migration to V6 "for free"...

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

Fix list for ABO.

http://www-01.ibm.com/support/docview.wss?uid=swg27047229#28062016

Looks good... except for one thing: 
http://www-01.ibm.com/support/docview.wss?uid=swg1PI68138

"


* USERS AFFECTED: Users of the IBM Automatic Binary Optimizer  *
* (ABO) for z/OS, v1.1 where the original  *
* source program has PERFORM B THRU A  *
* statements where paragraph B appears after   *
* A.   *

* PROBLEM DESCRIPTION: Input programs that contain PERFORM B   *
*  THRU A statements where paragraph B *
*  appears after A may be incorrectly  *
*  optimized by ABO. This usually results  *
*  in a data exception (0C7) when running  *
*  the optimized program but other abends  *
*  or error conditions are also possible.  *

* RECOMMENDATION: Apply the provided PTF.  *
*  *

ABO was fixed to correctly optimize input programs that contain
these specific kinds of PERFORMs.

Problem conclusion

ABO was modified to correctly optimize the input program, and
the resulting optimized program no longer produces the data
exception nor other abends or conditions not present in the
original program."

More "sales" talk: "incorrectly optimizes" - well, the program broke, I suppose 
that counts as "incorrect".

Is a broken program of this type (I'd guess control "fell through" rather than 
doing the return code) always going to Abend? No. Eeeks on this one. If you've 
ABO'd, verify no use of PERFORM A THRU PERFORM B, where B is physically located 
prior to A.

Yes, I know writing a PERFORM like that is nuts, but... nuts happens.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

So if you are not ready for COBOL V5/V6 migration and want the benefit of some 
of the optimizations, then ABO can take your program and attempt to optimize to 
a new program that is optimized.

However, it is not a migration.

And if you have a requirement for your applications to validate any program 
that has changed, then you may still need to do this.  It is module to module 
not source to source.

Also, if you are going to z/OS V2.2 then there is a way at the system level to 
concatenate libraries in SYS1.PARMLIB

So rather than changing Production JCL to include a PDSE you can tell MVS that 
if library A is in the JCL look in Library B first.

IEFOPZxx contains statements that define the load library data set optimization 
configuration, which could, for example, provide a list of pairings of an old 
Cobol load library and the intended new load libraries (one for each desired 
architecture level) and specifies which members are to be processed (optimized).


Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Bill Woodger
> Sent: Wednesday, October 12, 2016 8:51 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ABO Automatic Binary Optimizer
> 
> Mmmm... I wonder why they would say that?
> 
> It takes the existing executable code of your Enterprise COBOL programs and
> optimises them for new instructions available on ARCH(!0) and ARCH(11).
> 
> So if you hardware is up-to-date or so, it gives you a route for existing
> COBOL executables to take advantage of instructions introduces since ESA/390.
> 
> It doesn't do anything for your source code.
> 
> An identical program compiled with V6.1 will/should perform better than an
> ABO'd executable, because there are many more optimizations available to the
> compiler.
> 
> If you have a large program stock (of Enterprise COBOL executables) and
> current hardware, ABO gives you a painless (except for cost, and time to do
> it) way to make use of machine instructions that didn't exist when Enterprise
> COBOL was designed. Going to V6 much more care (testing) is needed. ABO can be
> wash-'n-go.
> 
> ABO has been discussed here a couple of times this year.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

I suppose the cunning thing to do would be to write it into the contract, then 
you get IBM to do the migration to V6 "for free"...

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

> I wonder why they would say that?

Because they are sales reps, not techies?

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Wednesday, October 12, 2016 8:51 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ABO Automatic Binary Optimizer

Mmmm... I wonder why they would say that?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

Mmmm... I wonder why they would say that?

It takes the existing executable code of your Enterprise COBOL programs and 
optimises them for new instructions available on ARCH(!0) and ARCH(11).

So if you hardware is up-to-date or so, it gives you a route for existing COBOL 
executables to take advantage of instructions introduces since ESA/390.

It doesn't do anything for your source code.

An identical program compiled with V6.1 will/should perform better than an 
ABO'd executable, because there are many more optimizations available to the 
compiler.

If you have a large program stock (of Enterprise COBOL executables) and current 
hardware, ABO gives you a painless (except for cost, and time to do it) way to 
make use of machine instructions that didn't exist when Enterprise COBOL was 
designed. Going to V6 much more care (testing) is needed. ABO can be wash-'n-go.

ABO has been discussed here a couple of times this year.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

Nope. Agree 100% with what @Tom says. The ABO is not a source code migration
tool, it is a compiler. Really -- a very weird compiler. Most compilers take
source code in and produce object code out. The ABO is a compiler that takes
object code in and produces object code out. What good is that? It takes
System 370 object code in and produces z13 object code out.

Why is that useful? Because the speed gains in the last several generations
of mainframe are not in clock/cycle speed. System 370 object code does not
run any faster on a z13 than on a z10. The gains are in new instructions.
The same functionality as that S/370 object code expressed in z13 object
code runs a lot faster.

(Please, no quibbles. Many shortcuts and generalizations in the above. If I
had been perfectly precise it would have read like a legal document. The
general points are correct.)

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lopez, Sharon
Sent: Wednesday, October 12, 2016 7:51 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ABO Automatic Binary Optimizer

Does anyone know if this product, Automatic Binary Optimizer, will actually
migrate Cobol V4 to V6 for you?  Our IBM reps are telling us that it will
actually do the migration for you.  Based on what I've read, it is a
performance product and I didn't see that capability.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

On Wed, 12 Oct 2016 09:02:28 -0500, John McKown wrote:

>On Wed, Oct 12, 2016 at 8:56 AM, Itschak Mugzach wrote:
>
>> John, try calling bpxwunix. Works great for me. What is great he the that
>> results are returned in an array stem variable).
>
>I'll try that. I wonder if I can do that in a non-TSO server. I'm trying
>to avoid TSO based servers due to the limited number.
> 
IIRC, I've used BPXWUNIX from IRXJCL.  I was trying to invent a smarter
BPXBATCH.  Worked well.  I was able to allocate stdout and stderr to
SYSOUT in the era before BPXBATCH supported that, and with SDSF to tail
those SYSOUTs in real time.  (I suppose Co:Z might now provide a better
solution.)

OTOH, assembler interfaces are available to all the UNIX kernel services.

The Gripping Hand is whether kernel services are available whatever in
System Rexx, with the added complication of making addresses of Rexx
variables available to those assembler interfaces.  That would depend
on (undocumented?) details of Rexx storage management.

LE?  I don't believe kernel services have LE entanglements.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

2016-10-12 Thread Itschak Mugzach

Send the msg to cn(00) as well just to verify that Mvs send works.

נשלח מה-iPad שלי

‫ב-12 באוק׳ 2016, בשעה 18:00, ‏‏John McKown ‏ 
כתב/ה:‬

>> On Wed, Oct 12, 2016 at 9:03 AM, Itschak Mugzach  wrote:
>> 
>> Don't make your mph exit serial. Just issue a 'F AXR,rexxname parm' to
>> start the Rexx msg handler. This way the Rexx will wait until a TSO region
>> is available, but your exit is not waiting for it to start.
>> 
> 
> The AXREXX macro has SYNC=NO,TSO=YES . I was told by the production person
> that she was missing some "job started" messages. At present, we are
> running parallel with the CA-OPS/MVS rule which sends out the TSO message
> as well. The user reported that she was getting the OPS message, but not
> the System REXX message. I am assuming that she is telling me what she saw.
> Unfortunately, there is nothing in the z/OS SYSLOG which I can look at.
> 
> I'm going to put in some debugging output and go back to using a TSO server.
> 
> 
> 
>> 
>> ITschak
>> 
>> 
> 
> -- 
> Heisenberg may have been here.
> 
> Unicode: http://xkcd.com/1726/
> 
> Maranatha! <><
> John McKown
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ABO Automatic Binary Optimizer

2016-10-12 Thread Tom Conley


On 10/12/2016 10:50 AM, Lopez, Sharon wrote:

Does anyone know if this product, Automatic Binary Optimizer, will actually 
migrate Cobol V4 to V6 for you?  Our IBM reps are telling us that it will 
actually do the migration for you.  Based on what I've read, it is a 
performance product and I didn't see that capability.

Thanks to everyone in advance.



ABO only creates an optimized LOAD MODULE (program object).  It does not 
convert your source to V6, and it will not give you all the 
optimizations of V6.  Your biggest payback is if you upgrade your CPU, 
then you can run your load modules through ABO and get some of the 
optimization provided by the new hardware.


Regards,
Tom Conley

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMS Volume Status

2016-10-12 Thread Elardus Engelbrecht

Chuck Kreiter wrote:

> What has happened over time is that some volumes have been DISNEW'ed to clear 
> them or ENABLED (from DISNEW) to allow for new allocations.  These were all 
> done via the VARY SMS,VOLUME(xx),DISABLE,NEW type commands.  

Others gave you good and interesting replies.

If you want to know when that VARY command is issued, you can use SMF to see 
who and when was that VARY command issued. (RACF class OPERCMDS, profile 
MVS.VARY.*)

>System/Sys SMS VOL MVS Vol  SMS G
>Group Name Status  Status   Status
>--- ---  --
>SYS1   DISNEW  ONLINE   ENABLE

>I'm really looking for this info in a batch (ideally) report.  I've looked 
>through Naviquest but not seen anything that reports this yet.

Print above list out (look at pulldown menu in ISMF) Then use DFSORT or ICETOOL 
to filter out your output dataset.

To see all volsers where first Status is different from second Status try out 
this ICETOOL statement:

INCLUDE COND=(,6,CH,NE,,6,CH)

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMS Volume Status

That appears to show the current status, not what was defined in the SMS SG
for the volume.  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Vernooij, Kees (ITOPT1) - KLM
Sent: Wednesday, October 12, 2016 10:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMS Volume Status

What I meant was with option 6, then option 1, then LISTV in front of the
SG. This will give you all the volumes, which you can sort on SMS status,
e.g. col. 25.

Kees.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Chuck Kreiter
Sent: 12 October, 2016 16:17
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMS Volume Status

I guess I should have clarified  a little more.  I'm looking to find volumes
that have a current status that does not match what is defined in the
storage group.  We rarely make SMS changes.  What has happened over time is
that some volumes have been DISNEW'ed to clear them or ENABLED (from DISNEW)
to allow for new allocations.  These were all done via the VARY
SMS,VOLUME(xx),DISABLE,NEW type commands.  Now, we have an ACS routine
change that is going to reset volume status back to what was defined.  

If I list a volume in ISMF option 6 by selection option 5 - Volume, I can
see the mismatch but this is limited to no more than 100  volumes and I have
thousands to check:

System/Sys SMS VOL MVS Vol  SMS G
Group Name Status  Status   Status
--- ---  --
SYS1   DISNEW  ONLINE   ENABLE

I'm really looking for this info in a batch (ideally) report.  I've looked
through Naviquest but not seen anything that reports this yet.  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Chuck Kreiter
Sent: Wednesday, October 12, 2016 9:09 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SMS Volume Status

I'm looking for a way to identify volumes in a SMS storage group that have a
different status than what was defined in the storage group (i.e. volumes
that are enabled in the storage group that are currently DISNEW because a
vary command was issued).  Anyone know of a way to identify this?

Thanks.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

For information, services and offers, please visit our web site:
http://www.klm.com. This e-mail and any attachment may contain confidential
and privileged material intended for the addressee only. If you are not the
addressee, you are notified that no part of the e-mail or any attachment may
be disclosed, copied or distributed, and that any other action related to
this e-mail or attachment is strictly prohibited, and may be unlawful. If
you have received this e-mail by error, please notify the sender immediately
by return e-mail, and delete this message. 

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its
employees shall not be liable for the incorrect or incomplete transmission
of this e-mail or any attachments, nor responsible for any delay in receipt.

Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch
Airlines) is registered in Amstelveen, The Netherlands, with registered
number 33014286

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

On Wed, Oct 12, 2016 at 9:03 AM, Itschak Mugzach  wrote:

> Don't make your mph exit serial. Just issue a 'F AXR,rexxname parm' to
> start the Rexx msg handler. This way the Rexx will wait until a TSO region
> is available, but your exit is not waiting for it to start.
>

The AXREXX macro has SYNC=NO,TSO=YES . I was told by the production person
that she was missing some "job started" messages. At present, we are
running parallel with the CA-OPS/MVS rule which sends out the TSO message
as well. The user reported that she was getting the OPS message, but not
the System REXX message. I am assuming that she is telling me what she saw.
Unfortunately, there is nothing in the z/OS SYSLOG which I can look at.

I'm going to put in some debugging output and go back to using a TSO server.

>
> ITschak
>
>

-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

ABO Automatic Binary Optimizer

2016-10-12 Thread Lopez, Sharon

Does anyone know if this product, Automatic Binary Optimizer, will actually 
migrate Cobol V4 to V6 for you?  Our IBM reps are telling us that it will 
actually do the migration for you.  Based on what I've read, it is a 
performance product and I didn't see that capability.

Thanks to everyone in advance.




Email correspondence to and from this address may be subject to the North 
Carolina Public Records Law and may be disclosed to third parties by an 
authorized state official.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMS Volume Status

2016-10-12 Thread John Clifford

QuiKref from Chicago-soft also has an option to list all dasd by various
columns,  one being STATUS.

  Great product and not very expensive.

John Clifford

On Wed, Oct 12, 2016 at 9:09 AM, Chuck Kreiter 
wrote:

> I'm looking for a way to identify volumes in a SMS storage group that have
> a
> different status than what was defined in the storage group (i.e. volumes
> that are enabled in the storage group that are currently DISNEW because a
> vary command was issued).  Anyone know of a way to identify this?
>
>
>
> Thanks.
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMS Volume Status

2016-10-12 Thread Vernooij, Kees (ITOPT1) - KLM

What I meant was with option 6, then option 1, then LISTV in front of the SG. 
This will give you all the volumes, which you can sort on SMS status, e.g. col. 
25.

Kees.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Chuck Kreiter
Sent: 12 October, 2016 16:17
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMS Volume Status

I guess I should have clarified  a little more.  I'm looking to find volumes
that have a current status that does not match what is defined in the
storage group.  We rarely make SMS changes.  What has happened over time is
that some volumes have been DISNEW'ed to clear them or ENABLED (from DISNEW)
to allow for new allocations.  These were all done via the VARY
SMS,VOLUME(xx),DISABLE,NEW type commands.  Now, we have an ACS routine
change that is going to reset volume status back to what was defined.  

If I list a volume in ISMF option 6 by selection option 5 - Volume, I can
see the mismatch but this is limited to no more than 100  volumes and I have
thousands to check:

System/Sys SMS VOL MVS Vol  SMS G
Group Name Status  Status   Status
--- ---  --
SYS1   DISNEW  ONLINE   ENABLE

I'm really looking for this info in a batch (ideally) report.  I've looked
through Naviquest but not seen anything that reports this yet.  


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Chuck Kreiter
Sent: Wednesday, October 12, 2016 9:09 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SMS Volume Status

I'm looking for a way to identify volumes in a SMS storage group that have a
different status than what was defined in the storage group (i.e. volumes
that are enabled in the storage group that are currently DISNEW because a
vary command was issued).  Anyone know of a way to identify this?

 

Thanks.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message. 

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its 
employees shall not be liable for the incorrect or incomplete transmission of 
this e-mail or any attachments, nor responsible for any delay in receipt. 
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMS Volume Status

I guess I should have clarified  a little more.  I'm looking to find volumes
that have a current status that does not match what is defined in the
storage group.  We rarely make SMS changes.  What has happened over time is
that some volumes have been DISNEW'ed to clear them or ENABLED (from DISNEW)
to allow for new allocations.  These were all done via the VARY
SMS,VOLUME(xx),DISABLE,NEW type commands.  Now, we have an ACS routine
change that is going to reset volume status back to what was defined.  

If I list a volume in ISMF option 6 by selection option 5 - Volume, I can
see the mismatch but this is limited to no more than 100  volumes and I have
thousands to check:

System/Sys SMS VOL MVS Vol  SMS G
Group Name Status  Status   Status
--- ---  --
SYS1   DISNEW  ONLINE   ENABLE

I'm really looking for this info in a batch (ideally) report.  I've looked
through Naviquest but not seen anything that reports this yet.  


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Chuck Kreiter
Sent: Wednesday, October 12, 2016 9:09 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SMS Volume Status

I'm looking for a way to identify volumes in a SMS storage group that have a
different status than what was defined in the storage group (i.e. volumes
that are enabled in the storage group that are currently DISNEW because a
vary command was issued).  Anyone know of a way to identify this?

 

Thanks.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMS Volume Status

Another option could be DCOLLECT data.
The CONSTANTS FOR DSGSTAT AND DSGSYSST

z/OS V2.1 DFSMS Access Method Services Commands z/OS
SC23-6846
Contains information on the DCOLLECT data and record types.


Naviquest or ISMF Option G (REPORTS) should help with running a report from
DCOLLECT.

However you still need the data from the time the volume was added to the day of
the event.  

Not sure what issue you are dealing with, but if the historical data is not
available, you may want to begin to build a process that could answer your
question.
 
Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Lizette Koehler
> Sent: Wednesday, October 12, 2016 6:56 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SMS Volume Status
> 
> If you are looking for a way to report on what state a volume was when it was
> added to an SMS storage group and when did that state change, then SMF Type42
> Subtype3 records should help.
> 
> But that will be dependent on how long you keep your SMF Data, and when you
> noticed the state changed.
> 
> Lizette
> 
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Chuck Kreiter
> > Sent: Wednesday, October 12, 2016 6:09 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: SMS Volume Status
> >
> > I'm looking for a way to identify volumes in a SMS storage group that
> > have a different status than what was defined in the storage group
> > (i.e. volumes that are enabled in the storage group that are currently
> > DISNEW because a vary command was issued).  Anyone know of a way to identify
> this?
> >
> >
> >
> > Thanks.
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

2016-10-12 Thread Itschak Mugzach

Don't make your mph exit serial. Just issue a 'F AXR,rexxname parm' to start 
the Rexx msg handler. This way the Rexx will wait until a TSO region is 
available, but your exit is not waiting for it to start.

ITschak



נשלח מה-iPad שלי

‫ב-12 באוק׳ 2016, בשעה 16:42, ‏‏John McKown ‏ 
כתב/ה:‬

>> On Wed, Oct 12, 2016 at 8:31 AM, Dana Mitchell  wrote:
>> 
>> On Wed, 12 Oct 2016 07:31:16 -0500, John McKown <
>> john.archie.mck...@gmail.com> wrote:
>> 
>>> What I'm trying to do is emulate the use of "global" CA-OPS/MVS
>> variables. I.e. variables which can
>>> be created in any rule and read / modified / deleted in any other rule.
>> 
>> John,
>> 
>> I emulated the services of Netview global variables (albeit inelegantly)
>> by using a rexx function that created a traditional MVS dataset for each
>> global variable.
> 
> I was trying to avoid that. Creating a UNIX file is significantly faster
> than creating a z/OS data set. 
> 
> 
> 
>> 
>> Depending on your number of variables and update frequency, this may or
>> may not be the best solution but it works in our environment.
>> 
>> 
> Thanks for the example code.
> 
> As an aside, I had to create a variant of your MPF2REXX. It is identical,
> but has TSO=NO to create a non-TSO server. The reason is because I tried
> using MPF2REXX to issue alert specific TSO users when specific batch jobs
> start (message IEF403I). The production control person at night likes this
> because she prints a list of critical path jobs to be run that night. When
> she gets the TSO message, she marks the job off the list. The problem is
> that there is a maximum of 8 TSO servers. And the way she schedules the
> jobs, about 10 take off all at the same time. This results in some of the
> message for a tracked job to not be sent because there is no server
> available. I created the new program to invoke the REXX program in a
> non-TSO server, of which there are 64.
> 
> I simply use the axrcmd() to do a z/OS console SEND command instead of a
> TSO SEND command, which is what was being used in CA-OPS/MVS. I really
> don't much care for this processing, but she's been doing it that way for
> years and it comforts her. Because she is the last of the production
> people, I figure that I need to make her job as simple as I can for her.
> 
> 
> -- 
> Heisenberg may have been here.
> 
> Unicode: http://xkcd.com/1726/
> 
> Maranatha! <><
> John McKown
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

On Wed, Oct 12, 2016 at 8:56 AM, Itschak Mugzach  wrote:

> John, try calling bpxwunix. Works great for me. What is great he the that
> results are returned in an array stem variable).
>

I'll try that. I wonder if I can do that in a non-TSO server. I'm trying
to avoid TSO based servers due to the limited number.

> ITschal
>

-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

2016-10-12 Thread Itschak Mugzach

John, try calling bpxwunix. Works great for me. What is great he the that 
results are returned in an array stem variable).

ITschal

נשלח מה-iPad שלי

‫ב-12 באוק׳ 2016, בשעה 15:31, ‏‏John McKown ‏ 
כתב/ה:‬

> OK, so I'm weird. That should be well known around here . I'm really
> getting into System REXX to help replace what CA-OPS/MVS does in our shop
> (remember we're dying and OPS license expires in Feb 2017).
> 
> What I am doing is using the MPFLSTxx member of PARMLIB to run a user exit,
> given to me by Dana Mitchell, called MPF2REXX which sets up some REXX
> variables then uses the AXREXX facility to run a System REXX program.
> 
> What would make some coding easier would be if I could do an ADDRESS
> SYSCALL. Unfortunately, this environment is not on the list of environments
> available in either (TSO & non-TSO) server. What I'm trying to do is
> emulate the use of "global" CA-OPS/MVS variables. I.e. variables which can
> be created in any rule and read / modified / deleted in any other rule. The
> easiest way that I've thought of is to have a UNIX directory dedicated to
> this functionality. I could then use the SYSCALL functions to create / read
> / write / delete files in this directory. The name of the file in the
> directory would be the same as the CA-OPS/MVS "global" variable.
> 
> Unfortunately, all that I can think of to do is to use System REXX's
> axrcmd() function to do a START command to run an STC which is a batch TMP
> to run yet another REXX command to process the message. Passing all the
> data to the new STC may be a bit of a bother too. You need to know that I'm
> stuck on z/OS 1.12 and don't have a lot of the nice new JCL facilities
> (such as being able to programmatically read JCL symbols from // SET
> statements).
> 
> Does anyone have a different idea how to emulate CA-OPS/MVS global
> variables in System REXX programs, preferably in a non-TSO server?
> 
> -- 
> Heisenberg may have been here.
> 
> Unicode: http://xkcd.com/1726/
> 
> Maranatha! <><
> John McKown
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMS Volume Status

If you are looking for a way to report on what state a volume was when it was
added to an SMS storage group and when did that state change, then SMF Type42
Subtype3 records should help.

But that will be dependent on how long you keep your SMF Data, and when you
noticed the state changed.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Chuck Kreiter
> Sent: Wednesday, October 12, 2016 6:09 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SMS Volume Status
> 
> I'm looking for a way to identify volumes in a SMS storage group that have a
> different status than what was defined in the storage group (i.e. volumes that
> are enabled in the storage group that are currently DISNEW because a vary
> command was issued).  Anyone know of a way to identify this?
> 
> 
> 
> Thanks.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMS Volume Status

2016-10-12 Thread Vernooij, Kees (ITOPT1) - KLM

If this is sufficient, it can be done easier with ISMF: 6 storage group - listv 
- sort on SMS status as in col25. You will see the exceptions at the top Disnew 
before Enable before Quiesced

Kees.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Greg Shirey
Sent: 12 October, 2016 15:44
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMS Volume Status

Does this command give you want you're looking for?   I can't test it because I 
don't have a STORGRP with volumes in a different status, but it does list the 
status of each volume in the group - if they aren't all the same that should be 
some kind of indication of difference.  

D SMS,STORGRP(sgname),LISTVOL

Regards,
Greg Shirey
Ben E. Keith Company 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Chuck Kreiter
Sent: Wednesday, October 12, 2016 8:09 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SMS Volume Status

I'm looking for a way to identify volumes in a SMS storage group that have a 
different status than what was defined in the storage group (i.e. volumes that 
are enabled in the storage group that are currently DISNEW because a vary 
command was issued).  Anyone know of a way to identify this?

 

Thanks.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message. 

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its 
employees shall not be liable for the incorrect or incomplete transmission of 
this e-mail or any attachments, nor responsible for any delay in receipt. 
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMS Volume Status

2016-10-12 Thread Greg Shirey

Does this command give you want you're looking for?   I can't test it because I 
don't have a STORGRP with volumes in a different status, but it does list the 
status of each volume in the group - if they aren't all the same that should be 
some kind of indication of difference.  

D SMS,STORGRP(sgname),LISTVOL

Regards,
Greg Shirey
Ben E. Keith Company 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Chuck Kreiter
Sent: Wednesday, October 12, 2016 8:09 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SMS Volume Status

I'm looking for a way to identify volumes in a SMS storage group that have a 
different status than what was defined in the storage group (i.e. volumes that 
are enabled in the storage group that are currently DISNEW because a vary 
command was issued).  Anyone know of a way to identify this?

 

Thanks.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

On Wed, Oct 12, 2016 at 8:31 AM, Dana Mitchell  wrote:

> On Wed, 12 Oct 2016 07:31:16 -0500, John McKown <
> john.archie.mck...@gmail.com> wrote:
>
> > What I'm trying to do is emulate the use of "global" CA-OPS/MVS
> variables. I.e. variables which can
> >be created in any rule and read / modified / deleted in any other rule.
>
> John,
>
> I emulated the services of Netview global variables (albeit inelegantly)
> by using a rexx function that created a traditional MVS dataset for each
> global variable.
>

I was trying to avoid that. Creating a UNIX file is significantly faster
than creating a z/OS data set. 

>
> Depending on your number of variables and update frequency, this may or
> may not be the best solution but it works in our environment.
>
> 
>
>
Thanks for the example code.

As an aside, I had to create a variant of your MPF2REXX. It is identical,
but has TSO=NO to create a non-TSO server. The reason is because I tried
using MPF2REXX to issue alert specific TSO users when specific batch jobs
start (message IEF403I). The production control person at night likes this
because she prints a list of critical path jobs to be run that night. When
she gets the TSO message, she marks the job off the list. The problem is
that there is a maximum of 8 TSO servers. And the way she schedules the
jobs, about 10 take off all at the same time. This results in some of the
message for a tracked job to not be sent because there is no server
available. I created the new program to invoke the REXX program in a
non-TSO server, of which there are 64.

I simply use the axrcmd() to do a z/OS console SEND command instead of a
TSO SEND command, which is what was being used in CA-OPS/MVS. I really
don't much care for this processing, but she's been doing it that way for
years and it comforts her. Because she is the last of the production
people, I figure that I need to make her job as simple as I can for her.

-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: RACF LISTDSD oddity

2016-10-12 Thread Greg Shirey

No worries.   Sorry I wasn't clearer the first time.   Byproduct of trying to 
write too quickly, I'm afraid. 

Regards,
Greg 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jesse 1 Robinson
Sent: Tuesday, October 11, 2016 5:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RACF LISTDSD oddity

With egg on face, I misread the string every time. Other guy fixed his command; 
it works. Thanks and apologies. 

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-302-7535 Office
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Greg Shirey
Sent: Tuesday, October 11, 2016 3:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: RACF LISTDSD oddity

Skip, 

I'm suggesting that he's entering the wrong command - LISTDS instead of 
LISTDSD.  

Regards,
Greg Shirey
Ben E. Keith Company 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: System REXX and UNIX

2016-10-12 Thread Dana Mitchell

On Wed, 12 Oct 2016 07:31:16 -0500, John McKown  
wrote:

> What I'm trying to do is emulate the use of "global" CA-OPS/MVS variables. 
> I.e. variables which can
>be created in any rule and read / modified / deleted in any other rule. 

John,

I emulated the services of Netview global variables (albeit inelegantly) by 
using a rexx function that created a traditional MVS dataset for each global 
variable.  

Depending on your number of variables and update frequency, this may or may not 
be the best solution but it works in our environment.

GLOBALV:

/* REXX - GLOBALV - Process Global Variable  */ 
 
/*   */ 
 
/* Usage:  GLOBALV(verb,name,contents)   */ 
 
/* Where verb is:  SET  or S  -  Set variable*/ 
 
/* QUERY or Q -  Query variable  */ 
 
/* DELETE or D - Delete varable  */ 
 
/*   */ 
 
/* name is varable name  */ 
 
/* value is what to set the varable to   */ 
 
/*   */ 
 
Parse arg verb, name, value 
 

 
If wordpos(verb,'QUERY Q SET S DELETE D') < 1 Then Return -1
 
/* x=msg(off)*//* turn off messages   */
 
"FREE FI(GLOBDD)" /* Free the DD */ 
 

 

 
dsn = "'SYS3.GLOBAL."name"'"/* Set global file name*/   
 

 
Select  
 
  When left(verb,1) = 'S' Then Do   
 

 
   "ALLOC FILE(GLOBDD) DA("dsn") SHR" /* Try allocating it   */ 
 

 
   If rc > 0 Then Do  /* Allocation failed   */ 
 
  /* so need to  */ 
 
  "ALLOC FILE(GLOBDD) DA("dsn")", /* Allocate a new one  */ 
 
"SPACE(1,1) TRACKS",
 
"DSORG(PS) NEW CATALOG",
 
"RECFM(V B) LRECL(32760)"   
 
  End   
 

 
   LINE.1  = value/* Set it to passed value */  
 
   "EXECIO 0 DISKW GLOBDD (OPEN"  /* and write it out*/ 
 
   "EXECIO * DISKW GLOBDD (STEM LINE."  
 
   "EXECIO 0 DISKW GLOBDD (FINIS"  /* and close it*/
 
   "FREE FI(GLOBDD)"  /* Free the DD */ 
 

 
   Return 'OK'  
 

 
  end   
 
  When left(verb,1) = 'D' Then Do   
 
   
   "DELETE" dsn   /* Delete it   */
   
   Return 'OK' 
   
  end  
  When left(verb,1) = 'Q' then Do  
   
   "ALLOC FILE(GLOBDD) DA("dsn") SHR" /* Try allocating it   */
   
   If rc > 0 Then Do  /* Allocation failed   */

SMS Volume Status

I'm looking for a way to identify volumes in a SMS storage group that have a
different status than what was defined in the storage group (i.e. volumes
that are enabled in the storage group that are currently DISNEW because a
vary command was issued).  Anyone know of a way to identify this?

 

Thanks.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] System REXX and UNIX

On Wed, Oct 12, 2016 at 7:42 AM, Dyck, Lionel B. (TRA) 
wrote:

> What about looking into using TSSO (see CBT file 404).  Then from your MPF
> you can issue a TSSO command, or just use TSSO instead of MPF.
>

Oh, yeah. That does work on z/OS 1.12. I'll look at it.


>
> --
> Lionel B. Dyck (TRA Contractor)
> Mainframe Systems Programmer
> Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
> VA OI Service Delivery & Engineering
>
>

-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] System REXX and UNIX

2016-10-12 Thread Dyck, Lionel B. (TRA)

What about looking into using TSSO (see CBT file 404).  Then from your MPF you 
can issue a TSSO command, or just use TSSO instead of MPF.

--
Lionel B. Dyck (TRA Contractor)
Mainframe Systems Programmer 
Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
VA OI Service Delivery & Engineering

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Wednesday, October 12, 2016 7:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] System REXX and UNIX

OK, so I'm weird. That should be well known around here . I'm really 
getting into System REXX to help replace what CA-OPS/MVS does in our shop 
(remember we're dying and OPS license expires in Feb 2017).

What I am doing is using the MPFLSTxx member of PARMLIB to run a user exit, 
given to me by Dana Mitchell, called MPF2REXX which sets up some REXX variables 
then uses the AXREXX facility to run a System REXX program.

What would make some coding easier would be if I could do an ADDRESS SYSCALL. 
Unfortunately, this environment is not on the list of environments available in 
either (TSO & non-TSO) server. What I'm trying to do is emulate the use of 
"global" CA-OPS/MVS variables. I.e. variables which can be created in any rule 
and read / modified / deleted in any other rule. The easiest way that I've 
thought of is to have a UNIX directory dedicated to this functionality. I could 
then use the SYSCALL functions to create / read / write / delete files in this 
directory. The name of the file in the directory would be the same as the 
CA-OPS/MVS "global" variable.

Unfortunately, all that I can think of to do is to use System REXX's
axrcmd() function to do a START command to run an STC which is a batch TMP to 
run yet another REXX command to process the message. Passing all the data to 
the new STC may be a bit of a bother too. You need to know that I'm stuck on 
z/OS 1.12 and don't have a lot of the nice new JCL facilities (such as being 
able to programmatically read JCL symbols from // SET statements).

Does anyone have a different idea how to emulate CA-OPS/MVS global variables in 
System REXX programs, preferably in a non-TSO server?

--
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

System REXX and UNIX

OK, so I'm weird. That should be well known around here . I'm really
getting into System REXX to help replace what CA-OPS/MVS does in our shop
(remember we're dying and OPS license expires in Feb 2017).

What I am doing is using the MPFLSTxx member of PARMLIB to run a user exit,
given to me by Dana Mitchell, called MPF2REXX which sets up some REXX
variables then uses the AXREXX facility to run a System REXX program.

What would make some coding easier would be if I could do an ADDRESS
SYSCALL. Unfortunately, this environment is not on the list of environments
available in either (TSO & non-TSO) server. What I'm trying to do is
emulate the use of "global" CA-OPS/MVS variables. I.e. variables which can
be created in any rule and read / modified / deleted in any other rule. The
easiest way that I've thought of is to have a UNIX directory dedicated to
this functionality. I could then use the SYSCALL functions to create / read
/ write / delete files in this directory. The name of the file in the
directory would be the same as the CA-OPS/MVS "global" variable.

Unfortunately, all that I can think of to do is to use System REXX's
axrcmd() function to do a START command to run an STC which is a batch TMP
to run yet another REXX command to process the message. Passing all the
data to the new STC may be a bit of a bother too. You need to know that I'm
stuck on z/OS 1.12 and don't have a lot of the nice new JCL facilities
(such as being able to programmatically read JCL symbols from // SET
statements).

Does anyone have a different idea how to emulate CA-OPS/MVS global
variables in System REXX programs, preferably in a non-TSO server?

-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Fwd: Shark Tank: Is this why mainframes almost never get rebooted?