Re: Detect the loop for batch job

[Vernooij, CP - SPLXM]

Hi Joe,

Interesting development in Omegamon. 
I am still new to Omegamon, but I am going to install V4.2 next month,
how do I check if I have Interim Feature 1, how do I install it?

Kees.


"Joseph H Winterton"  wrote in message
news:...
> Well we in OMEGAMON have been working on the cpu looping issue lately:

> 
> Detecting an address space in an infinite loop is not an easy job.
Our 
> modern z/OS LPARs often have multiple CPUs and specialty processors
like 
> zIIP and zAAP where instructions can be dispatched.  In addition
Workload 
> Manager will try to distribute processor resources equitably based on
the 
> current workload mix and priorities defined in the installation?s
policy. 
> Lower priority batch workloads that happen to be looping can easily
run 
> under the radar for long periods of time squandering resources. 
> 
> OMEGAMON XE on z/OS 4.2.0 with the addition of Interim feature 1 has a

> strategy to help surface these problems.  OMEGAMON has had a feature 
> called Bottleneck Analysis for many years.  Bottleneck Analysis builds
a 
> profile over time through periodic sampling of what execution states
are 
> being used by address spaces.  These execution states include things
like 
> Using CPU, Using zIIP, Using zAAP, Waiting for CPU, Waiting for zIIP, 
> Waiting for zAAP, Using I/O, Waiting for I/O, Waiting for Enqueue,
Waiting 
> for HSM, Swapped, etc.   A cpu looping address space will reveal
itself by 
> populating only the using and waiting states for CPU resources
(including 
> zIIP and zAAP). 
> 
> OMEGAMON XE on z/OS 4.2.0 has a new attribute called CPU Loop Index
that 
> uses this bottleneck information as its basis.  High priority
workloads 
> can be reliably detected fairly quickly.  The real trick is
discriminating 
> between well behaved low priority work that is just starved for
attention 
> from low priority work that is looping.  OMEGAMON XE on z/OS 4.2.0
Interim 
> Feature 1 provides this discrimination by dynamically extending the 
> observation period required before indicating a likely loop when the
ratio 
> of waiting for CPU to Using CPU is high.  For more information on
OMEGAMON 
> XE on z/OS approach to CPU Loop detection please see the article
titled 
> ?Detecting CPU looping address spaces using IBM Tivoli OMEGAMON XE on
z/OS 
> version 4.2.0? in the August issue of the z System Advisor at 
> http://www-01.ibm.com/software/tivoli/systemz-advisor/2009-08/. 
> 
> Joe Winterton
> Release Mgr - OMEGAMON - Development Team
> 919-224-1328 Cell -914-954-0483 - jose...@us.ibm.com
> 
> 
> 
> From:
> Hal Merritt 
> To:
> IBM-MAIN@bama.ua.edu
> Date:
> 12/07/2009 09:48 AM
> Subject:
> Re: Detect the loop for batch job
> Sent by:
> IBM Mainframe Discussion List 
> 
> 
> 
> All programs 'loop'. It is what they do. 
> 
> About the only automated solution I can think of would be to set a CPU

> time limit. 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On 
> Behalf Of Joel C. Ewing
> Sent: Saturday, December 05, 2009 11:20 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Detect the loop for batch job
> 
> On 12/04/2009 10:14 AM, bjbxd wrote:
> > Hello List,
> > We are looking for a tool to detect the loop for batch application,
> > any suggestion are appreciated.
> > 
> > My shop is runing z/OS, application is C/C++.
> > Bob.
> 
>  
> NOTICE: This electronic mail message and any files transmitted with it
are 
> intended
> exclusively for the individual or entity to which it is addressed. The

> message, 
> together with any attachment, may contain confidential and/or
privileged 
> information.
> Any unauthorized review, use, printing, saving, copying, disclosure or

> distribution 
> is strictly prohibited. If you have received this message in error,
please 
> 
> immediately advise the sender by reply email and delete all copies.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
> 
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
> 
**
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 er

Re: A WebSphere Virtual Enterprise (z/OS) consultant

[Timothy Sipples]

Marc,

Just to clarify (and as a public service): the skills required for
WebSphere VE for z/OS are a relatively small increment over WebSphere
Application Server for z/OS, generally speaking. (The VE features simply
build on the WAS foundation.) Would you (and your client) also be
interested in responses from consultants who know WAS for z/OS? If so, that
would increase the number of people who could respond favorably yet still
likely meet or exceed your client's requirements.

Alternatively, if your client is focused on the unique/additional VE
functionalities, then experience with those functionalities on any WAS
platform should be sufficient if your client already has what they need for
WAS z/OS skills. So you could cast a wider net in that direction.

Finally, you may also want to add "...or the Operations Optimization
features in WebSphere Extended Deployment (WebSphere XD)." WebSphere
Virtual Enterprise was known as Operations Optimization until it got a
proper (or at least different) name, so anyone with Operations Optimization
background should also be eligible.

Hope that helps.

- - - - -
Timothy Sipples
IBM Consulting Enterprise Software Architect
Based in Tokyo, Serving IBM Japan / Asia-Pacific
E-Mail: timothy.sipp...@us.ibm.com
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need some FDR help please

[Linda Mooney]

Hey Neil, 



We did get the dataset list from FDRABRP and we are working with that. I would 
have liked to restore all dsn except VSAM, but we are finally making some 
progress . From your note, it looks like we had some of our control syntax 
twisted, so will work with your updates in the AM. 



We only have FDR/FDRDSF, no FDReport. 



Thanks, 



Linda 

  
- Original Message - 
From: "Neil Duffee"  
To: IBM-MAIN@bama.ua.edu 
Sent: Monday, December 7, 2009 12:26:01 PM GMT -08:00 US/Canada Pacific 
Subject: Re: Need some FDR help please 

On 2009-12-04 18:54 concerning "Re: Need some FDR help please", Linda 
Mooney  wrote to IBM-Main : 

> Now I need to restore PS and PO [snip], excluding VSAM, no catalogue 
> updates allowed, non-SMS DASD volume and new high level qualifier. 
> [snip] nature of the 'treasure hunt'.  I am looking for some source 
> code [snip] 

Linda : 

On the Select statement for DSF, you can use NewIndex=NewHLQ to swap 
hlq's, NULLSTORCLAS to indicate, well, that, plus 
NVol=(xxx*,xxx*,xxx*) and NOCAT but I can't find a method to select 
by dataset type ie. Vsam.  Unless you can identify a naming 
convention (from the FdrAbrP listing) that can be used to EXCLUDE 
DSN=**.VSAM.** or **.DATA, **.INDEX, **.CSI before SELECT 
Dsn=SYSPROG**.  (Remember, you can multi-Exclude hundreds of times 
before the Select.) 

However, if you have FDReport, you could try DATA=TVTOC with 
DSORG.EQ.(PO,PS,...) and PUNCH the necessary SELECT statements for 
the (subsequent) DSF step. 

-->  signature = 6 lines follows <-- 
Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada 
telephone:1 613 562 5800 x4585                 fax:1 613 562 5161 
mailto:NDuffee of uOttawa.ca     http:/ /aix1.uottawa.ca/ ~nduffee 
"How *do* you plan for something like that?" Guardian Bob, Reboot 
"For every action, there is an equal and opposite criticism." 
"Systems Programming: Guilty, until proven innocent" John Norgauer 
2004 

-- 
For IBM-MAIN subscribe / signoff / archive access instructions, 
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO 
Search the archives at http://bama.ua.edu/archives/ibm-main.html 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need some FDR help please

[Linda Mooney]

Thanks, but have only FDR/FDRDSF 



Linda 
- Original Message - 
From: "Joseph Butz"  
To: IBM-MAIN@bama.ua.edu 
Sent: Monday, December 7, 2009 1:27:42 PM GMT -08:00 US/Canada Pacific 
Subject: Re: Need some FDR help please 

Hi Neil, 

FDREPORT can XSELECT/XEXCLUDE VSAM with the DSORG=EF field.  Other DSORG 
types can also be selected or excluded using the DSORG field. 

Joseph Butz                         
jb...@fdrinnovation.com 



-Original Message- 
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf 
Of Neil Duffee 
Sent: Monday, December 07, 2009 3:26 PM 
To: IBM-MAIN@bama.ua.edu 
Subject: Re: Need some FDR help please 

On 2009-12-04 18:54 concerning "Re: Need some FDR help please", Linda 
Mooney  wrote to IBM-Main : 

> Now I need to restore PS and PO [snip], excluding VSAM, no catalogue 
> updates allowed, non-SMS DASD volume and new high level qualifier. 
> [snip] nature of the 'treasure hunt'.  I am looking for some source 
> code [snip] 

Linda : 

On the Select statement for DSF, you can use NewIndex=NewHLQ to swap 
hlq's, NULLSTORCLAS to indicate, well, that, plus 
NVol=(xxx*,xxx*,xxx*) and NOCAT but I can't find a method to select 
by dataset type ie. Vsam.  Unless you can identify a naming 
convention (from the FdrAbrP listing) that can be used to EXCLUDE 
DSN=**.VSAM.** or **.DATA, **.INDEX, **.CSI before SELECT 
Dsn=SYSPROG**.  (Remember, you can multi-Exclude hundreds of times 
before the Select.) 

However, if you have FDReport, you could try DATA=TVTOC with 
DSORG.EQ.(PO,PS,...) and PUNCH the necessary SELECT statements for 
the (subsequent) DSF step. 

-->  signature = 6 lines follows <-- 
Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada 
telephone:1 613 562 5800 x4585                 fax:1 613 562 5161 
mailto:NDuffee of uOttawa.ca     http:/ /aix1.uottawa.ca/ ~nduffee 
"How *do* you plan for something like that?" Guardian Bob, Reboot 
"For every action, there is an equal and opposite criticism." 
"Systems Programming: Guilty, until proven innocent" John Norgauer 
2004 

-- 
For IBM-MAIN subscribe / signoff / archive access instructions, 
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO 
Search the archives at http://bama.ua.edu/archives/ibm-main.html 

-- 
For IBM-MAIN subscribe / signoff / archive access instructions, 
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO 
Search the archives at http://bama.ua.edu/archives/ibm-main.html 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: "Portable" data centers (was RE: Small Server Mob Advantage)

[Linda Mooney]

No kidding!  Was Sun even "born" yet? 



I started with my current employer in 1984.  Couple of months later, we were 
putting in a new mainframe.  A full sized 18 wheeler (probably a 65 footer) 
pulled up along side the building, along with another one with generators to 
run the mainframe in the first.  Our data center was pretty small and in order 
to swap out the mainframe the workload was moved on to the machine in the truck 
while we did a push/pull in the data center.  We ran the better part of a week 
like that, then we cut over to the new machine in the data c enter.  Changed 
out the mainframe with only 2 IPLs worth of outage.  Pretty fine.  Not SUN , 
IBM. 



Linda Mooney 


- Original Message - 
From: "Lloyd Fuller"  
To: IBM-MAIN@bama.ua.edu 
Sent: Monday, December 7, 2009 5:42:57 PM GMT -08:00 US/Canada Pacific 
Subject: Re: "Portable" data centers (was RE: Small Server Mob Advantage) 

Howard Brazee wrote: 
> On 7 Dec 2009 13:01:33 -0800, steve_thomp...@stercomm.com (Thompson, 
> Steve) wrote: 
> 
>> What do you mean Sun was the first? 
>> 
>> The US Army used 360/30 and 360/40s in 18-wheel trailers back in the 
>> early 1960s - 40 years before Sun "thought" of the idea.  The Army even 
>> had those in Vietnam for the division data centers. 
> 
> How big were those, compared to an iPod? 
> 

Let's put it this way:  even Shrek could not have put it into a shirt 
pocket like I can mine.  These were full 18wheeler trailers - 30 foot or 
maybe more? 

Lloyd 

-- 
For IBM-MAIN subscribe / signoff / archive access instructions, 
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO 
Search the archives at http://bama.ua.edu/archives/ibm-main.html 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Anybody compared: Java vs. intepreted REXX?

[Clark Morris]

On 7 Dec 2009 14:12:46 -0800, in bit.listserv.ibm-main you wrote:

>That's the entire question. Assume a programmer is good at both languages. 
>Also assume that the work to be done can be done in both languages without a 
>bunch of "funny" stuff. I wonder which would take less CPU, on average. If I 
>had a zAAP, I'd likely go with Java. If I needed to to ISPF macros, then REXX. 
>Or, even weirder comparison: intepreted REXX vs. compiled NetREXX (REXX 
>variant which compiles to Java .class file).

If NetREXX were to be used, could the resultant code legally
(according to IBM terms and conditions) be run on a zIP or zAAP? would
there be any benefit to doing so?
>
>John McKown
>Systems Engineer IV
>IT
>
>Administrative Services Group
>
>HealthMarkets(r)
>
>9151 Boulevard 26 * N. Richland Hills * TX 76010
>(817) 255-3225 phone * (817)-961-6183 cell
>john.mck...@healthmarkets.com * www.HealthMarkets.com
>
>Confidentiality Notice: This e-mail message may contain confidential or 
>proprietary information. If you are not the intended recipient, please contact 
>the sender by reply e-mail and destroy all copies of the original message. 
>HealthMarkets(r) is the brand name for products underwritten and issued by the 
>insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
>Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
>MEGA Life and Health Insurance Company.SM
>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Clues on using C++ prelink * lked for first time

[Henry Willard]

Charles Mills wrote:

> I've got my first mainframe C++ application. It runs under Windows.
> (Obviously, that's not the same as running under z/OS, but the point is it's
> "a complete program." My concern at this point is getting it to link, not
> run.) It compiles cleanly under z/OS C++. I have long names and want the
> load module in a PDS, so I'm running the compile/pre-link/link proc. There
> are eight object modules from eight source files in an HFS path. I'm good up
> to that point. Questions:
>
>
>
> 1.   How do I specify the input to the prelinker? I tried LIBRARY with a
> DD name pointing to my object path and all of the object files listed in
> parentheses. If I do that, the prelinker runs to completion with a zero
> return code and nothing in SYSPRINT, but the link fails on a SYSLIN that is
> apparently empty (wrong length record, that sort of thing). SYSLIN is the
> same dataset as the prelink SYSMOD. How do I know if the prelinker actually
> did anything? My guess is that it did not. (SYSMOD specfies FB/80/3200 and
> SYSLIN lets it default.)
>
> 2.   If I specify INCLUDE with a DD pointing to the main() object module
> and LIBRARY with a DD for everything else, I get a warning of unresolved
> extrns, but it still runs to a zero completion, and I still get the same
> error out of the link editor.
>
>
>
> Any clues? Is the prelinker documented anywhere other than the C++ User's
> Guide? Thanks,
>
>
>
> Charles Mills

It is probably easiest to do this from a Unix Service shell using the c++
command. See the description of the c89 command in Unix System Services Command
Reference, and in particular the prefix_STEPS environment variable. It has been
a long time, but I believe if the target of the link is a PDS, the prelinker is
invoked automatically even without the prefix_STEPS environment variable.

Regards.
Henry

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Safe C++ char array functions (Was " Is there a good mailing list or forum for mainframe C/C++ specifically?")

[Thomas David Rivers]

Charles Mills wrote:

Strlcpy is certainly an equal opportunity solution -- it's not available on
EITHER of the platforms I am working with.



strlcpy() (and the other BSD string functions) are available in the
Dignus runtime for z/OS.

   - Dave Rivers -

--
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: "Portable" data centers (was RE: Small Server Mob Advantage)

[Lloyd Fuller]

Howard Brazee wrote:

On 7 Dec 2009 13:01:33 -0800, steve_thomp...@stercomm.com (Thompson,
Steve) wrote:


What do you mean Sun was the first?

The US Army used 360/30 and 360/40s in 18-wheel trailers back in the
early 1960s - 40 years before Sun "thought" of the idea.  The Army even
had those in Vietnam for the division data centers.


How big were those, compared to an iPod?



Let's put it this way:  even Shrek could not have put it into a shirt 
pocket like I can mine.  These were full 18wheeler trailers - 30 foot or 
maybe more?


Lloyd

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: "Portable" data centers

[Lloyd Fuller]

Anne & Lynn Wheeler wrote:

The following message is a courtesy copy of an article
that has been posted to bit.listserv.ibm-main,alt.folklore.computers as well.


leful...@sbcglobal.net (Lloyd Fuller) writes:

What do you mean Sun was the first?

The US Army used 360/30 and 360/40s in 18-wheel trailers back in the
early 1960s - 40 years before Sun "thought" of the idea.  The Army
even had those in Vietnam for the division data centers.


re:
http://www.garlic.com/~lynn/2009r.html#12 Small Server Mob Advantage

maybe mid-60s?? 360 announce 7apr64.
http://en.wikipedia.org/wiki/IBM_System/360

360/30 FCS jun65, 360/40 FCS apr65
http://www-03.ibm.com/ibm/history/exhibits/mainframe/mainframe_FS360.html

The ones that I saw were 360/30s.  I understand there were a few 
360/40s.  The first one that I saw was in Vietnam in 1966.  I later 
worked for a Sergeant that had worked on the prototypes some place in 
New England.


The CPU and memory along with the 2540(?) and console were in one 
trailer.  The disk (2314s) in a second and maybe third, and the tape 
drives in another trailer.  There was also a generator trailer.


Lloyd


... maybe a 1401?
http://www-03.ibm.com/ibm/history/exhibits/mainframe/mainframe_PP1401.html
or 1620?
http://www-03.ibm.com/ibm/history/exhibits/mainframe/mainframe_PP1620.html

there was recent celebration of 50th anniv. of 1401 at computer history
museum ... there is also this article ... which includes comment from
somebody mentioning working on a 1401 located in marine truck in vietnam
(1967)
http://spectrum.ieee.org/computing/hardware/rebuilding-the-ibm-1401

I had sponsored Boyd's briefings at IBM in the 80s. Boyd's biographies
has him in 1970 doing a year stint in charge of "spook base" ...  a
$2.5B(!) windfall for IBM ... although even that was probably not enuf
to offset the cost of the failed future system effort
http://www.garlic.com/~lynn/submain.html#futuresys

and/or the resulting impact that the failure had on the corporate
culture.

misc. past posts mentioning Boyd:
http://www.garlic.com/~lynn/subboyd.html#boyd1
misc. URLs from around the web mentioning Boyd:
http://www.garlic.com/~lynn/subboyd.html#boyd2



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Clues on using C++ prelink * lked for first time

[Charles Mills]

I've got my first mainframe C++ application. It runs under Windows.
(Obviously, that's not the same as running under z/OS, but the point is it's
"a complete program." My concern at this point is getting it to link, not
run.) It compiles cleanly under z/OS C++. I have long names and want the
load module in a PDS, so I'm running the compile/pre-link/link proc. There
are eight object modules from eight source files in an HFS path. I'm good up
to that point. Questions:

 

1.   How do I specify the input to the prelinker? I tried LIBRARY with a
DD name pointing to my object path and all of the object files listed in
parentheses. If I do that, the prelinker runs to completion with a zero
return code and nothing in SYSPRINT, but the link fails on a SYSLIN that is
apparently empty (wrong length record, that sort of thing). SYSLIN is the
same dataset as the prelink SYSMOD. How do I know if the prelinker actually
did anything? My guess is that it did not. (SYSMOD specfies FB/80/3200 and
SYSLIN lets it default.)

2.   If I specify INCLUDE with a DD pointing to the main() object module
and LIBRARY with a DD for everything else, I get a warning of unresolved
extrns, but it still runs to a zero completion, and I still get the same
error out of the link editor.

 

Any clues? Is the prelinker documented anywhere other than the C++ User's
Guide? Thanks,

 

Charles Mills




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: file definition

[Paul Gilmartin]

On Mon, 7 Dec 2009 18:26:56 +, Ted MacNEIL wrote:

>>There's one fly in this ointment.  Our DASD are all (mostly?) 3390.  But when 
>>I request a particular number of cylinders, some busybody component 
>>(sometimes?) adjusts the requested number downward by the ratio of 3380 
>>cylinder size to 3390 cylinder size.
>But reporting functions report the actual number of 3390 cylinders.
>
>That busybody is SMS.
>There is a panel withing the ISPF application where you specify the 'logical' 
>track size.
>This is an artifact leftover when SMS was first introduced and 3380's still 
>existed with 3390's.
>It was intended to 'save space'.
>
>I have had the parameter changed to 56664 in every shop I've worked at since 
>SMS came out.
>It seems everybody started with 47476.
>
I was reporting from memory.  The problem appears to have
vanished, perhaps with a recent upgrade from 1.7 to 1.10.

Would IBM have changed a default?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Anybody compared: Java vs. intepreted REXX?

[McKown, John]

That's the entire question. Assume a programmer is good at both languages. Also 
assume that the work to be done can be done in both languages without a bunch 
of "funny" stuff. I wonder which would take less CPU, on average. If I had a 
zAAP, I'd likely go with Java. If I needed to to ISPF macros, then REXX. Or, 
even weirder comparison: intepreted REXX vs. compiled NetREXX (REXX variant 
which compiles to Java .class file).

John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-961-6183 cell
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Display contents of an offload tape

[David Andrews]

On Mon, 2009-12-07 at 13:59 -0500, Mark Pace wrote:
> I've searched the JES2 manual can not find a way to display the contents of
> a OFFLOAD tape or disk file. Is there away to do this?

Theoretically (he says, not having done the homework) spool offload
tapes are in NJE format.  See the NJE Formats and Protocols book:

http://www.elink.ibmlink.ibm.com/publications/servlet/pbi.wss?CTY=US&FNC=SRX&PBL=SA22-7539-02

-- 
David Andrews
A. Duda and Sons, Inc.
david.andr...@duda.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: "Portable" data centers

[Anne & Lynn Wheeler]

The following message is a courtesy copy of an article
that has been posted to bit.listserv.ibm-main,alt.folklore.computers as well.


leful...@sbcglobal.net (Lloyd Fuller) writes:
> What do you mean Sun was the first?
>
> The US Army used 360/30 and 360/40s in 18-wheel trailers back in the
> early 1960s - 40 years before Sun "thought" of the idea.  The Army
> even had those in Vietnam for the division data centers.

re:
http://www.garlic.com/~lynn/2009r.html#12 Small Server Mob Advantage

maybe mid-60s?? 360 announce 7apr64.
http://en.wikipedia.org/wiki/IBM_System/360

360/30 FCS jun65, 360/40 FCS apr65
http://www-03.ibm.com/ibm/history/exhibits/mainframe/mainframe_FS360.html

... maybe a 1401?
http://www-03.ibm.com/ibm/history/exhibits/mainframe/mainframe_PP1401.html
or 1620?
http://www-03.ibm.com/ibm/history/exhibits/mainframe/mainframe_PP1620.html

there was recent celebration of 50th anniv. of 1401 at computer history
museum ... there is also this article ... which includes comment from
somebody mentioning working on a 1401 located in marine truck in vietnam
(1967)
http://spectrum.ieee.org/computing/hardware/rebuilding-the-ibm-1401

I had sponsored Boyd's briefings at IBM in the 80s. Boyd's biographies
has him in 1970 doing a year stint in charge of "spook base" ...  a
$2.5B(!) windfall for IBM ... although even that was probably not enuf
to offset the cost of the failed future system effort
http://www.garlic.com/~lynn/submain.html#futuresys

and/or the resulting impact that the failure had on the corporate
culture.

misc. past posts mentioning Boyd:
http://www.garlic.com/~lynn/subboyd.html#boyd1
misc. URLs from around the web mentioning Boyd:
http://www.garlic.com/~lynn/subboyd.html#boyd2

-- 
40+yrs virtualization experience (since Jan68), online at home since Mar1970

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: "Portable" data centers (was RE: Small Server Mob Advantage)

[Howard Brazee]

On 7 Dec 2009 13:01:33 -0800, steve_thomp...@stercomm.com (Thompson,
Steve) wrote:

>What do you mean Sun was the first?
>
>The US Army used 360/30 and 360/40s in 18-wheel trailers back in the
>early 1960s - 40 years before Sun "thought" of the idea.  The Army even
>had those in Vietnam for the division data centers.

How big were those, compared to an iPod?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need some FDR help please

[Joseph Butz]

Hi Neil,

FDREPORT can XSELECT/XEXCLUDE VSAM with the DSORG=EF field.  Other DSORG
types can also be selected or excluded using the DSORG field.

Joseph Butz 
jb...@fdrinnovation.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf
Of Neil Duffee
Sent: Monday, December 07, 2009 3:26 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Need some FDR help please

On 2009-12-04 18:54 concerning "Re: Need some FDR help please", Linda 
Mooney  wrote to IBM-Main :

> Now I need to restore PS and PO [snip], excluding VSAM, no catalogue
> updates allowed, non-SMS DASD volume and new high level qualifier.
> [snip] nature of the 'treasure hunt'.  I am looking for some source
> code [snip] 

Linda : 

On the Select statement for DSF, you can use NewIndex=NewHLQ to swap 
hlq's, NULLSTORCLAS to indicate, well, that, plus 
NVol=(xxx*,xxx*,xxx*) and NOCAT but I can't find a method to select 
by dataset type ie. Vsam.  Unless you can identify a naming 
convention (from the FdrAbrP listing) that can be used to EXCLUDE 
DSN=**.VSAM.** or **.DATA, **.INDEX, **.CSI before SELECT 
Dsn=SYSPROG**.  (Remember, you can multi-Exclude hundreds of times 
before the Select.)

However, if you have FDReport, you could try DATA=TVTOC with 
DSORG.EQ.(PO,PS,...) and PUNCH the necessary SELECT statements for 
the (subsequent) DSF step.

-->  signature = 6 lines follows <--
Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada
telephone:1 613 562 5800 x4585 fax:1 613 562 5161
mailto:NDuffee of uOttawa.ca http:/ /aix1.uottawa.ca/ ~nduffee
"How *do* you plan for something like that?" Guardian Bob, Reboot
"For every action, there is an equal and opposite criticism."
"Systems Programming: Guilty, until proven innocent" John Norgauer 
2004

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Safe C++ char array functions (Was " Is there a good mailing list or forum for mainframe C/C++ specifically?")

[Charles Mills]

Strlcpy is certainly an equal opportunity solution -- it's not available on
EITHER of the platforms I am working with.

My impression is that strcpy_s does *not* copy anything if the target buffer
is too short.

Hey, anybody want my implementations of a safe strcpy and sprintf? Here you
go:

// sprintf_ss is a "local" one-for-one replacement for Microsoft sprintf_s
// replace all references to sprintf_ss when/if IBM implements on z/OS
int sprintf_ss(char *string, size_t sizeInBytes, const char *format, ...)
{
va_list args;
assert(format != NULL);
//assert(string != NULL);   // not necessary; hardware
will detect
va_start(args, format);
int ret = vsprintf(string, format, args);
va_end(args);
assert(strlen(string) < sizeInBytes);   // note that the damage is
already done!
return ret;
}

// strcpy_ss is a "local" one-for-one replacement for Microsoft strcpy_ss
// replace all references to strcpy_ss when/if IBM implements on z/OS
// note not quite one-to-one as uses assert() rather than error returns
errno_t strcpy_ss(char *strDestination, size_t numberOfElements, const char
*strSource)
{
assert(strlen(strSource) < numberOfElements);
//assert(strDestination != NULL);   // not necessary;
hardware will catch
assert(strSource != NULL);
strcpy(strDestination, strSource);
return 0;
}

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf
Of Gainsford, Allen
Sent: Sunday, December 06, 2009 11:56 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Safe C++ char array functions (Was " Is there a good mailing
list or forum for mainframe C/C++ specifically?")

> Correct on strcpy_s versus strncpy. Strncpy has the possibility of making
a
> new bad situation while preventing another. You can easily end up with a
> string that is guaranteed to "run wild" if you strcpy it.

I personally have always preferred strlcpy to strncpy or strcpy_s, since
strlcpy is basically an "always-safe" copy function that doesn't have the
defects of strcpy_s (does nothing if the dest is too small, instead of
copying as much as it safely can) or strncpy (doesn't always null-terminate
the result; and always touches every byte of the dest area, which can be a
massive time-waster for large dest buffers).

The only problem with strlcpy is that it's not supported on many platforms,
any more than strcpy_s is...

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: "Portable" data centers (was RE: Small Server Mob Advantage)

[Lloyd Fuller]

Mouse?  the only stinking mouse was the one eating the punch cards!  These were 
batch machines running DOS/VS.

They did have lots of cable and the installations that I saw were REAL careful 
about what kind of traffic even came close to the trailers.  In fact even foot 
traffic was discouraged!

Lloyd

--- On Mon, 12/7/09, Thompson, Steve  wrote:

> From: Thompson, Steve 
> Subject: Re: "Portable" data centers (was RE: Small Server Mob Advantage)
> To: IBM-MAIN@bama.ua.edu
> Date: Monday, December 7, 2009, 4:00 PM
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu]
> On
> Behalf Of Lloyd Fuller
> Sent: Monday, December 07, 2009 2:57 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: "Portable" data centers (was RE: Small Server
> Mob
> Advantage)
> 
> What do you mean Sun was the first?
> 
> The US Army used 360/30 and 360/40s in 18-wheel trailers
> back in the
> early 1960s - 40 years before Sun "thought" of the
> idea.  The Army even
> had those in Vietnam for the division data centers.
> 
> Lloyd
> 
> 
> Yeah, and they had 600' of channel cables attached to a
> jeep to use as a
> mouse.
> 
> Sorry, I just couldn't get this cartoon out of my mind of
> the original
> mouse...
> 
> Regards,
> Steve Thompson
> 
> -- Standard disclaimer applies --
> 
> --
> For IBM-MAIN subscribe / signoff / archive access
> instructions,
> send email to lists...@bama.ua.edu
> with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: "Portable" data centers (was RE: Small Server Mob Advantage)

[Thompson, Steve]

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Lloyd Fuller
Sent: Monday, December 07, 2009 2:57 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: "Portable" data centers (was RE: Small Server Mob
Advantage)

What do you mean Sun was the first?

The US Army used 360/30 and 360/40s in 18-wheel trailers back in the
early 1960s - 40 years before Sun "thought" of the idea.  The Army even
had those in Vietnam for the division data centers.

Lloyd


Yeah, and they had 600' of channel cables attached to a jeep to use as a
mouse.

Sorry, I just couldn't get this cartoon out of my mind of the original
mouse...

Regards,
Steve Thompson

-- Standard disclaimer applies --

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: "Portable" data centers (was RE: Small Server Mob Advantage)

[Lloyd Fuller]

What do you mean Sun was the first?

The US Army used 360/30 and 360/40s in 18-wheel trailers back in the early 
1960s - 40 years before Sun "thought" of the idea.  The Army even had those in 
Vietnam for the division data centers.

Lloyd

--- On Mon, 12/7/09, Chase, John  wrote:

> From: Chase, John 
> Subject: "Portable" data centers (was RE: Small Server Mob Advantage)
> To: IBM-MAIN@bama.ua.edu
> Date: Monday, December 7, 2009, 1:56 PM
> > -Original Message-
> > From: IBM Mainframe Discussion List [On Behalf Of Anne
> & Lynn Wheeler
> > 
> > [ snip ]
> > 
> > IBM thinks outside the box with containerized data
> centres
> > http://www.theregister.co.uk/2009/12/07/ibm_data_center_containers/
> > 
> > from above:
> > 
> > The idea of putting servers, storage, and networking
> gear into metal
> > shipping containers and linking them together into a
> data centre
> cluster
> > is not a new idea - Sun Microsystems was the first to
> propose the idea
> > back in October 2006 - but it is catching on enough
> that IBM is
> > endorsing the concept and shipping a product.
> 
>   The USMC has had "portable" air
> traffic control facilities
> of this nature since at least 1965.  Still cheaper
> than IBM's "portable"
> data centers:
> 
> http://www.governmentcontractswon.com/department/defense/an-tsq-18-landi
> ng-cntrl-cntr.asp?yr=00
> 
>    -jc-
> 
> --
> For IBM-MAIN subscribe / signoff / archive access
> instructions,
> send email to lists...@bama.ua.edu
> with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IWM4ECRE Reason Code 83A

[esst...@juno.com]

Its not a bad enclave per say.
The enclave hasnt been created.
Either the connect token is damaged or as others have stated the PSW/PKM is 
incorrect.

-- Original Message --
From: Rob Scott 
To: IBM-MAIN@bama.ua.edu
Subject: Re: IWM4ECRE Reason Code  83A
Date: Mon, 7 Dec 2009 15:16:41 -0500

I searched my MACLIB/MODGEN and the following popped up in a lot of macros :

"083A   IwmRsnCodeBadEnclave" 


Rob Scott
Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.617.614.2305 
Email: rsc...@rs.com
Web: www.rocketsoftware.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
McKown, John
Sent: 07 December 2009 18:51
To: IBM-MAIN@bama.ua.edu
Subject: Re: IWM4ECRE Reason Code 83A

I looked in the 1.10 and 1.11 manuals. 083A is not documented there either.

--
John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * 
www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

> -Original Message-
> From: IBM Mainframe Discussion List
> [mailto:ibm-m...@bama.ua.edu] On Behalf Of esst...@juno.com
> Sent: Monday, December 07, 2009 12:32 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: IWM4ECRE Reason Code 83A
> 
> We are running Z/OS 1.9.
> 
> After issuing WLM macro IWM4ECRE Create Enclave the Return Code is 8 
> and the Reason Code is '083A'.
> My macro for IWM4ECRE in sys1.maclib does NOT have an 083A Reason Code 
> listed. Checking the publication "Programming Work Load Management 
> Services" also did not have a description of Reason Code of 083A.
> 
> Does anyone have a z/OS 1.10 System that can tell me what Reason Code 
> 083A means after IWM4ECRE (Create Enclave) is issued ?
> 
> 
> Paul D'Angelo   
> 
> 
> Diet Help
> Cheap Diet Help Tips. Click here.
> http://thirdpartyoffers.juno.com/TGL2141/c?cp=0a8NEzawCl8Xsi1W
> dq8T-AAAJ1DMCvI8C_EKS4yGKHO7DleMAAYAAADNAA
> AYQAA=
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO 
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
> 
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at 
http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Diet Help
Cheap Diet Help Tips. Click here.
http://thirdpartyoffers.juno.com/TGL2141/c?cp=ILHLecn2NSSCsPuVsZxHtQAAJ1DMCvI8C_EKS4yGKHO7DleMAAYAAADNAAAYQAA=

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

A WebSphere Virtual Enterprise (z/OS) consultant

[Marc Heimlich]

I am looking for a consultant that has WebSphere Virtual Enterprise (z/OS)
experience to support a customer in NYC.  Qualified applicants should
respond to heiml...@streamfoundry.com.

 

Thanks,

 

Marc

 

Marc Heimlich
StreamFoundry, Inc.

VP, Sales & Marketing
SFI, Inc.
781.272.4307
url:   http://www.streamfoundry.com

Ask about SFI's Mainframe Software Savings Series -> Part I:  z/Linux
  & z/VM Part II: Parallel
  Sysplex   Part III: CICS
  Performance Tuning

 

 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Need some FDR help please

[Neil Duffee]

On 2009-12-04 18:54 concerning "Re: Need some FDR help please", Linda 
Mooney  wrote to IBM-Main :

> Now I need to restore PS and PO [snip], excluding VSAM, no catalogue
> updates allowed, non-SMS DASD volume and new high level qualifier.
> [snip] nature of the 'treasure hunt'.  I am looking for some source
> code [snip] 

Linda : 

On the Select statement for DSF, you can use NewIndex=NewHLQ to swap 
hlq's, NULLSTORCLAS to indicate, well, that, plus 
NVol=(xxx*,xxx*,xxx*) and NOCAT but I can't find a method to select 
by dataset type ie. Vsam.  Unless you can identify a naming 
convention (from the FdrAbrP listing) that can be used to EXCLUDE 
DSN=**.VSAM.** or **.DATA, **.INDEX, **.CSI before SELECT 
Dsn=SYSPROG**.  (Remember, you can multi-Exclude hundreds of times 
before the Select.)

However, if you have FDReport, you could try DATA=TVTOC with 
DSORG.EQ.(PO,PS,...) and PUNCH the necessary SELECT statements for 
the (subsequent) DSF step.

-->  signature = 6 lines follows <--
Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada
telephone:1 613 562 5800 x4585 fax:1 613 562 5161
mailto:NDuffee of uOttawa.ca http:/ /aix1.uottawa.ca/ ~nduffee
"How *do* you plan for something like that?" Guardian Bob, Reboot
"For every action, there is an equal and opposite criticism."
"Systems Programming: Guilty, until proven innocent" John Norgauer 
2004

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IWM4ECRE Reason Code 83A

[Rob Scott]

I searched my MACLIB/MODGEN and the following popped up in a lot of macros :

"083A   IwmRsnCodeBadEnclave" 


Rob Scott
Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.617.614.2305 
Email: rsc...@rs.com
Web: www.rocketsoftware.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
McKown, John
Sent: 07 December 2009 18:51
To: IBM-MAIN@bama.ua.edu
Subject: Re: IWM4ECRE Reason Code 83A

I looked in the 1.10 and 1.11 manuals. 083A is not documented there either.

--
John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * 
www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

> -Original Message-
> From: IBM Mainframe Discussion List
> [mailto:ibm-m...@bama.ua.edu] On Behalf Of esst...@juno.com
> Sent: Monday, December 07, 2009 12:32 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: IWM4ECRE Reason Code 83A
> 
> We are running Z/OS 1.9.
> 
> After issuing WLM macro IWM4ECRE Create Enclave the Return Code is 8 
> and the Reason Code is '083A'.
> My macro for IWM4ECRE in sys1.maclib does NOT have an 083A Reason Code 
> listed. Checking the publication "Programming Work Load Management 
> Services" also did not have a description of Reason Code of 083A.
> 
> Does anyone have a z/OS 1.10 System that can tell me what Reason Code 
> 083A means after IWM4ECRE (Create Enclave) is issued ?
> 
> 
> Paul D'Angelo   
> 
> 
> Diet Help
> Cheap Diet Help Tips. Click here.
> http://thirdpartyoffers.juno.com/TGL2141/c?cp=0a8NEzawCl8Xsi1W
> dq8T-AAAJ1DMCvI8C_EKS4yGKHO7DleMAAYAAADNAA
> AYQAA=
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO 
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
> 
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at 
http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEC143I 213-30

[Shmuel Metz (Seymour J.)]

In <45d79eacefba9b428e3d400e924d36b902d16...@iwdubcormsg007.sci.local>, on
12/07/2009
   at 11:30 AM, "Thompson, Steve"  said:

>Meanwhile, I had found an ABEND that happens when two tasks are trying
>to do STOW at the same time.

That's because you didn't have proper serialization. You need to do the
ENQ (RESERVE) before the OPEN and the DEQ after the CLOSE. BPAM does not
support multiple concurrent opens of the same PDS for output.

>During design, we concluded that we had to use the "ISPF EDIT ENQUEUE".

Which ENQ? ISPF uses one to serialize the member and one to serialize the
data set; you need to use both.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEC143I 213-30

[Shmuel Metz (Seymour J.)]

In
<2121472874-1259961467-cardhu_decombobulator_blackberry.rim.net-17612826...@bda488.bisx.prod.on.blackberry>,
on 12/04/2009
   at 09:17 PM, Ted MacNEIL  said:

>You can't share regular PDS datasets either.

Of course you can. Whether or not you know how to do it safely, others do.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Display contents of an offload tape

[Mark Pace]

I've searched the JES2 manual can not find a way to display the contents of
a OFFLOAD tape or disk file. Is there away to do this?

-- 
Mark Pace
Mainline Information Systems
1700 Summit Lake Drive
Tallahassee, FL. 32317

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

"Portable" data centers (was RE: Small Server Mob Advantage)

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List [On Behalf Of Anne & Lynn Wheeler
> 
> [ snip ]
> 
> IBM thinks outside the box with containerized data centres
> http://www.theregister.co.uk/2009/12/07/ibm_data_center_containers/
> 
> from above:
> 
> The idea of putting servers, storage, and networking gear into metal
> shipping containers and linking them together into a data centre
cluster
> is not a new idea - Sun Microsystems was the first to propose the idea
> back in October 2006 - but it is catching on enough that IBM is
> endorsing the concept and shipping a product.

  The USMC has had "portable" air traffic control facilities
of this nature since at least 1965.  Still cheaper than IBM's "portable"
data centers:

http://www.governmentcontractswon.com/department/defense/an-tsq-18-landi
ng-cntrl-cntr.asp?yr=00

   -jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IWM4ECRE Reason Code 83A

[McKown, John]

I looked in the 1.10 and 1.11 manuals. 083A is not documented there either.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-961-6183 cell
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:ibm-m...@bama.ua.edu] On Behalf Of esst...@juno.com
> Sent: Monday, December 07, 2009 12:32 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: IWM4ECRE Reason Code 83A
> 
> We are running Z/OS 1.9.
> 
> After issuing WLM macro IWM4ECRE Create Enclave the Return Code is 8
> and the Reason Code is '083A'.
> My macro for IWM4ECRE in sys1.maclib does NOT have an 083A 
> Reason Code listed. Checking the publication "Programming 
> Work Load Management Services" also did not have a 
> description of Reason Code of 083A.
> 
> Does anyone have a z/OS 1.10 System that can tell me what 
> Reason Code 083A means after IWM4ECRE (Create Enclave) is issued ?
> 
> 
> Paul D'Angelo   
> 
> 
> Diet Help
> Cheap Diet Help Tips. Click here.
> http://thirdpartyoffers.juno.com/TGL2141/c?cp=0a8NEzawCl8Xsi1W
> dq8T-AAAJ1DMCvI8C_EKS4yGKHO7DleMAAYAAADNAA
> AYQAA=
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
> 
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

IWM4ECRE Reason Code 83A

[esst...@juno.com]

We are running Z/OS 1.9.

After issuing WLM macro IWM4ECRE Create Enclave the Return Code is 8
and the Reason Code is '083A'.
My macro for IWM4ECRE in sys1.maclib does NOT have an 083A Reason Code listed. 
Checking the publication "Programming Work Load Management Services" also did 
not have a description of Reason Code of 083A.

Does anyone have a z/OS 1.10 System that can tell me what 
Reason Code 083A means after IWM4ECRE (Create Enclave) is issued ?


Paul D'Angelo   


Diet Help
Cheap Diet Help Tips. Click here.
http://thirdpartyoffers.juno.com/TGL2141/c?cp=0a8NEzawCl8Xsi1Wdq8T-AAAJ1DMCvI8C_EKS4yGKHO7DleMAAYAAADNAAAYQAA=

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: file definition

[Ted MacNEIL]

>There's one fly in this ointment.  Our DASD are all (mostly?) 3390.  But when 
>I request a particular number of cylinders, some busybody component 
>(sometimes?) adjusts the requested number downward by the ratio of 3380 
>cylinder size to 3390 cylinder size.
But reporting functions report the actual number of 3390 cylinders.

That busybody is SMS.
There is a panel withing the ISPF application where you specify the 'logical' 
track size.
This is an artifact leftover when SMS was first introduced and 3380's still 
existed with 3390's.
It was intended to 'save space'.

I have had the parameter changed to 56664 in every shop I've worked at since 
SMS came out.
It seems everybody started with 47476.
-
Too busy driving to stop for gas!

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Missing RACF exit

[Tony Harminc]

2009/12/7 Beesley, Paul :
> Thanks Rob.
> Turned out to be fairly easy. Dynamically loaded the module into MLPA,
> wrote a quick program to zap the address into the correct slot in the RCVT.

For a one-off [semi-]emergency situation, this should be fine. For
anything longer term, two things to watch out for are:

RACF's DSMON, and several third party tools will object when they find
your dynamically banged-in address. If you have auditors who monitor
this kind of thing, then you may have some 'splainin to do. For our
products the doc explains this in what we hope is a transparent manor,
and provides the information needed to be sure that a rogue exit has
not been installed.

If you have any other products that also dynamically add these
"static" exits, you need to be sure they all play nicely. In
particular, each needs to be able to add and remove itself in a safe
way that does not depend on starting the products in a particular
order.Compare and Swap is merely the beginning. In our travels we have
only once encountered a truly "difficult" third (fourth?) party
vendor, and in that case the customer did have to start and stop
things in a fixed order.

Tony H.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: file definition

[John Kelly]

But when I request a particular number of cylinders, some busybody 
component (sometimes?) adjusts the requested number downward by the ratio 
of 3380 cylinder size to 3390 cylinder size.


That certainly sounds like the Default Device Geometry  in the SMS Base 
Configuration.

Jack Kelly
202-502-2390 (Office)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: file definition

[McKown, John]

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin
> Sent: Monday, December 07, 2009 11:52 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: file definition
> 



> There's one fly in this ointment.  Our DASD are all (mostly?)
> 3390.  But when I request a particular number of cylinders,
> some busybody component (sometimes?) adjusts the requested number
> downward by the ratio of 3380 cylinder size to 3390 cylinder size.
> But reporting functions report the actual number of 3390 cylinders.
> 
> So, if I use ISPF Data Set utility to get info for a data set,
> then Allocate another with the values on the screen, it's
> smaller.  Every time.
> 
> The functions to create a data set and to report its characteristics
> should obey the same conventions.
> 
> I'm progressively converting all my SPACE requests to bytes.
> 
> Beware.
> 
> -- gil

Your DFSMS is messed up. There is a parameter in the Base Configuration where 
the number of bytes per track is set. For a 3390, it should be set to 56664. 
Sounds like yours is set to a 3380 value of 47476. Time to wack the 
sysprog/storage admin.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-961-6183 cell
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: CF LPAR MIPS Utilisation

[Arthur Gutowski]

On Mon, 7 Dec 2009 09:48:30 -0500, Scott Rowe  
wrote:

>In my experience, GRS-Star with shared CP CFs is still significantly faster 
>(at 
least one order of magnitude) than GRS Ring using XCF.  

For the group's sake, I should have made the "YMMV" disclaimer.  Our N.A. 
systems fared much better with Star than our European systems, but the 
configurations, workloads and constraints are quite different.

>Also, the purpose for the extra CF can be used to upgrade CF code without 
a Sysplex outage.

OK, ya got me.  We are spoiled with a second CEC...

> I guess it's also remotely possible that a CF code fault could cause a CF 
failure, though I have yet to see this.  I keep a second CF running for this 
purpose, though I don't currently have any active structures in it.
 
Maybe so in the midst of a CF code upgrade (planned outage), else a code 
fault on CF1 seems very likely to recur on CF2 in very short order.  Any sort 
of 
unrecoverable physical failure would most likely throw machine casters up, 
rendering the second CF moot.

Regards,
Art Gutowski
Ford Motor Company

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: file definition

[Paul Gilmartin]

On Mon, 7 Dec 2009 12:38:55 -0500, John Kelly wrote:

>
>>Is there a utility where I can give it a list of dataset names and it can
>give back some JCL that could have been used to define that file?
>
>
>The REXX  suggested is probably the easiest way, especially if you put in
>a LISTDSI. That will give you most of the parameters that you need to
>allocate a nonVSAM, catalogued DSN. If the DSN isn't around any more you
>could do something similar if you have DCOLLECT output.
>
There's one fly in this ointment.  Our DASD are all (mostly?)
3390.  But when I request a particular number of cylinders,
some busybody component (sometimes?) adjusts the requested number
downward by the ratio of 3380 cylinder size to 3390 cylinder size.
But reporting functions report the actual number of 3390 cylinders.

So, if I use ISPF Data Set utility to get info for a data set,
then Allocate another with the values on the screen, it's
smaller.  Every time.

The functions to create a data set and to report its characteristics
should obey the same conventions.

I'm progressively converting all my SPACE requests to bytes.

Beware.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Small Server Mob Advantage

[Anne & Lynn Wheeler]

The following message is a courtesy copy of an article
that has been posted to bit.listserv.ibm-main,alt.folklore.computers as well.

Anne & Lynn Wheeler  writes:
> the major internal networking technology was able to have "native"
> drivers ... but also install "jes2" drivers for communicating with jes2
> systems (and allow jes2/mvs systems to participate in the internal
> network). this feature evolved into these (non-native) jes2 drives
> adding features to try and rewrite jes2 headers to that they were always
> compatible with the direclty connected jes2/mvs systems (as
> countermeasure to have high frequency of jes2/mvs crashing all over the
> world). the internal technology got blaimed for not preventing the
> hursley mvs systems from crashing (since the internet network technology
> hadn't been upgraded to filter some of the new san jose jes2 fields
> ... from reaching the hursley jes2 systems). misc. past posts mentioning
> hasp, jes2, and/or jes2 networking
> http://www.garlic.com/~lynn/submain.html#hasp
>
> dislcaimer: my wife did a stint in the jes group (among other things
> acted as one of the catchers for asp->jes3 ... and did a design document
> for merged jes2/jes3 product) ... before getting con'ed into going to
> pok to be in charge of loosely-coupled architecture.

re:
http://www.garlic.com/~lynn/2009q.html#83 Small Server Mob Advantage

I recently reminded my wife about the problem with adverse interaction
between jes2 networking at different release levels (resulting in mvs
system crashes) ... and (infamous) incident with hursley systems
crashing ... and being blamed on vnet. she quoted some chinese proberb if
you ever save somebody ... you are responsible for them for life. she
also mentioned somebody in the jes2 group that may have been primarily
responsible.

I reminded her that a lot of the characteristics of jes2 networking was
inherited from the HASP implementation ... which carried the characters
"TUCC" on the (networking) source code changes.



-- 
40+yrs virtualization experience (since Jan68), online at home since Mar1970

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEFUSI and LSQA

[Mark Zelden]

On Fri, 4 Dec 2009 15:43:07 -0200, ITURIEL DO NASCIMENTO NETO
<4254.itur...@bradesco.com.br> wrote:

>Hi all,
>
>I would like your advice when reserving 512Kb below 16Mb line.
>During years i've coded :
>
> L R7,LDASIZA   Size of A.S. Region Below  
> L R8,LDAESIZA  Size of A.S. Region Above  
>ASSIGN0  DS0H   Region=0M
>
> STR8,REGLIMA   REGLIMA = EPRIVATE
> S R8,LSQAA R8 => REGLIMA = Max - 15M  
> STR8,REGSIZA   Save EXTENDED REGION-SIZE 
> STR7,REGLIMB   REGLIMB = PRIVATE
> S R7,LSQAB R7 => REGLIMB = Max - 512K 
> STR7,REGSIZB   Save  
> OCREGFLAGS,Highbit TELL VSM BRAFUSI SUPPLY INFO  
>LSQABDCA(512*1024)  LSQA Below (512Kb)   
>LSQAADCA(15*1024*1024)  LSQA Above (15Mb)
>
>
>I was told that this code was not actually saving LSQA, then i was
>instructed to code :
>
> L R7,LDASIZA   Size of A.S. Region Below  
> L R8,LDAESIZA  Size of A.S. Region Above  
> S R7,LSQAB R7 => REGLIMB = Max - 512K 
> S R8,LSQAA R8 => REGLIMA = Max - 15M  
>ASSIGN0  DS0H   Region=0M
>
> STR8,REGLIMA   REGLIMA = EPRIVATE-15M 
> S R8,@500K REGSIZA = REGLIMA-500K 
> STR8,REGSIZA   Save EXTENDED REGION-SIZE 
> STR7,REGLIMB   REGLIMB = PRIVATE-512K 
> S R7,@100K REGSIZB = REGLIMB-100K 
> STR7,REGSIZB   Save 
> OCREGFLAGS,Highbit TELL VSM BRAFUSI SUPPLY INFO  
>@100KDCA(100*1024)  100K 
>@500KDCA(500*1024)  500K 
>LSQABDCA(512*1024)  LSQA Below (512Kb)   
>LSQAADCA(15*1024*1024)  LSQA Above (15Mb)
>
>Is There a better option ?
>
>Thanks in advance 
>
>Atenciosamente / Regards / Saludos 
>Ituriel do Nascimento Neto 
>Banco Bradesco S/A 
>4254 - DPCD Engenharia de Software 
>Sistemas Operacionais Mainframes 
>Tel: +55 11 4197-2021 R: 22021   Fax: +55 11 4197-2814 
>

The LDA contains what the sizes are, but I've never updated those
control blocks directly via IEFUSI.   

FWIW,  I look at the GDA and for  below 16M set region limit to "ALL-512K" and 
region size to "ALL-64K".There is no real reason to reserve LSQA above.
Whatever isn't in use for extended private can be used for LSQA.  When
those 2 boundaries hit each other is when your address space will die.

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Detect the loop for batch job

[Joseph H Winterton]

Well we in OMEGAMON have been working on the cpu looping issue lately: 

Detecting an address space in an infinite loop is not an easy job.  Our 
modern z/OS LPARs often have multiple CPUs and specialty processors like 
zIIP and zAAP where instructions can be dispatched.  In addition Workload 
Manager will try to distribute processor resources equitably based on the 
current workload mix and priorities defined in the installation?s policy. 
Lower priority batch workloads that happen to be looping can easily run 
under the radar for long periods of time squandering resources. 

OMEGAMON XE on z/OS 4.2.0 with the addition of Interim feature 1 has a 
strategy to help surface these problems.  OMEGAMON has had a feature 
called Bottleneck Analysis for many years.  Bottleneck Analysis builds a 
profile over time through periodic sampling of what execution states are 
being used by address spaces.  These execution states include things like 
Using CPU, Using zIIP, Using zAAP, Waiting for CPU, Waiting for zIIP, 
Waiting for zAAP, Using I/O, Waiting for I/O, Waiting for Enqueue, Waiting 
for HSM, Swapped, etc.   A cpu looping address space will reveal itself by 
populating only the using and waiting states for CPU resources (including 
zIIP and zAAP). 

OMEGAMON XE on z/OS 4.2.0 has a new attribute called CPU Loop Index that 
uses this bottleneck information as its basis.  High priority workloads 
can be reliably detected fairly quickly.  The real trick is discriminating 
between well behaved low priority work that is just starved for attention 
from low priority work that is looping.  OMEGAMON XE on z/OS 4.2.0 Interim 
Feature 1 provides this discrimination by dynamically extending the 
observation period required before indicating a likely loop when the ratio 
of waiting for CPU to Using CPU is high.  For more information on OMEGAMON 
XE on z/OS approach to CPU Loop detection please see the article titled 
?Detecting CPU looping address spaces using IBM Tivoli OMEGAMON XE on z/OS 
version 4.2.0? in the August issue of the z System Advisor at 
http://www-01.ibm.com/software/tivoli/systemz-advisor/2009-08/. 

Joe Winterton
Release Mgr - OMEGAMON - Development Team
919-224-1328 Cell -914-954-0483 - jose...@us.ibm.com



From:
Hal Merritt 
To:
IBM-MAIN@bama.ua.edu
Date:
12/07/2009 09:48 AM
Subject:
Re: Detect the loop for batch job
Sent by:
IBM Mainframe Discussion List 



All programs 'loop'. It is what they do. 

About the only automated solution I can think of would be to set a CPU 
time limit. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On 
Behalf Of Joel C. Ewing
Sent: Saturday, December 05, 2009 11:20 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Detect the loop for batch job

On 12/04/2009 10:14 AM, bjbxd wrote:
> Hello List,
> We are looking for a tool to detect the loop for batch application,
> any suggestion are appreciated.
> 
> My shop is runing z/OS, application is C/C++.
> Bob.

 
NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The 
message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 

immediately advise the sender by reply email and delete all copies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: file definition

[John Kelly]

>Is there a utility where I can give it a list of dataset names and it can 
give back some JCL that could have been used to define that file?


The REXX  suggested is probably the easiest way, especially if you put in 
a LISTDSI. That will give you most of the parameters that you need to 
allocate a nonVSAM, catalogued DSN. If the DSN isn't around any more you 
could do something similar if you have DCOLLECT output.
HTH
Jack Kelly
202-502-2390 (Office)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEC143I 213-30

[Ted MacNEIL]

>I'll grant this is unlikely; I'd prefer not to try to create it.
>Perhaps Ted is thinking of something in addition.

The last time I saw it was in a hmegrown source management system -- not using 
ISPF services.
-
Too busy driving to stop for gas!

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEC143I 213-30

[Ted MacNEIL]

>In more detail, last guy to save wins; first guy's changes are lost.

That's what I meant.

>Some might consider this corruption.  But directory integrity is
maintained.

Data integrity is what I meant.

-
Too busy driving to stop for gas!

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEC143I 213-30

[Ted MacNEIL]

>This is not true Ted, as we have discussed before.  In fact, the symptom in 
>the title of this thread is the result of IBM closing that exposure.

I thought it was only fixed in a SYSPLEX environment.
I have not worked in a non-SYSPLEX world for over 15 years, so I have not 
shared either kind of partitioned dataset outside that boundary in that same 
period of time.
-
Too busy driving to stop for gas!

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEC143I 213-30

[Scott Rowe]

Yes, the 213-13 abend is the solution, if you try to open a DCB for output when 
there is already an output DCB open for a PDS, it will cause the abend.  I 
cannot see how corruption can occur if you can't have two DCBs open for output 
at the same time.  The ENQ is only to avoid getting the abend.

>>> "Thompson, Steve"  12/7/2009 11:30 AM >>>
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Paul Gilmartin
Sent: Monday, December 07, 2009 9:40 AM
To: IBM-MAIN@bama.ua.edu 
Subject: Re: IEC143I 213-30

On Mon, 7 Dec 2009 09:53:26 -0500, Scott Rowe wrote:

>I don't believe that's true, Gil.  It doesn't make sense given the
changes that were made to the logic, and I can't create it here.  Do you
have a test case that shows this?
>
I believe SPFEDIT mostly protects you.  To show the problem
you'd need to have:

o DSNTYPE=PDS

o DISP=SHR

o Update by a process other than ISPF EDIT, and which doesn't
  respect the SPFEDIT ENQ.

I'll grant this is unlikely; I'd prefer not to try to create it.
Perhaps Ted is thinking of something in addition.



I've not been following this thread closely. But it seems that about
this time last year I started dealing with a related issue. So if this
is not germane to your discussions, just ignore it.

Meanwhile, I had found an ABEND that happens when two tasks are trying
to do STOW at the same time. In my situation, this was a race (or timing
dependant) condition and it could be done within a single LPAR between
two address spaces (and I think I was even able to get it within the
same address space). I did this under z/OS V1R9. Since we did things to
prevent it, I would have to break the code to recreate under z/OS
V1R10/11.

During design, we concluded that we had to use the "ISPF EDIT ENQUEUE".
But during testing we found that if you are doing a STOW for member "X"
while another task is attempting member "Y" at the same time, the "ISPF
EDIT ENQUEUE" does not protect the directory from a simultaneous update
situation, only from two tasks using the same member.

In order to prevent this ABEND situation, we decided to use an ENQUEUE
for the directory updates. The ENQUEUE actually protects from the
problem within one address space or across two -- and only between uses
of the product (which is still underdevelopment) since the ENQUEUE we
came up with is "private".

The STOW situation I ran into did not require a member write, only that
you wish to update the directory entry. In my case, attempting to add
the "ISPF" stats caused the ABEND. And because of race (or timing as you
prefer) conditions I was getting two STOWs being done at the same time
to the same directory. The system detected this and the arbitrary second
updater got the ABEND.

Regards,
Steve Thompson

-- Opinions expressed by this poster may not reflect those of poster's
employer --

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 



CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains 
confidential and privileged information intended only for the addressee.  If 
you are not the intended recipient, please be advised that you have received 
this material in error and that any forwarding, copying, printing, 
distribution, use or disclosure of the material is strictly prohibited.  If you 
have received this material in error, please (i) do not read it, (ii) reply to 
the sender that you received the message in error, and (iii) erase or destroy 
the material. Emails are not secure and can be intercepted, amended, lost or 
destroyed, or contain viruses. You are deemed to have accepted these risks if 
you communicate with us by email. Thank you.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Filezilla, was Ipswitch WS_FTP Pro 12 not displaying OMVS directories correctly

[Richard Peurifoy]

Gibney, Dave wrote:

  I must have something wrong. I just installed the latest. 3.3.0.1 and
I still get:

Trace:  CTransferSocket::OnReceive(), m_transferMode=0
Trace:  GnuTLS error -9: A TLS packet with unexpected length was
received.
Status: Server did not properly shut down TLS connection
Error:  Could not read from transfer socket: ECONNABORTED - Connection
aborted
Trace:  CTransferSocket::TransferEnd(3)


This past weekend, I applied APAR PK77240 (UK43295 on z/OS 1.9)
to my test system and set TLSRFCLEVEL RFC4217 in FTP.DATA.

This does seem to have fixed the problem.

--
Richard

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IDCAMS Delete via DD

[Edward Jaffe]

John Eells wrote:

Edward Jaffe wrote:

Such assumptive, non-canonical, lazy programming seems to work in 
most cases, but can lead to failure and confusion in others. I 
eliminate it whenever I can. I regard such code as inelegant, yet 
convenient, short-cuts that work most of the time. "Kludge".



So, naturally without any guarantee that we'll ever do anything...how 
would those of you who dislike our solution solve the problem while 
meeting the implied requirement for avoiding JCL changes?


Just thinking out loud here...

I wonder if a mechanism could be developed to allow allocation to 
predict with certainty from where PGM=program will be loaded? For those 
predicted to be "system provided" utilities, there could be new 
attributes added to some table, perhaps even the PPT, for allocation 
use. The first or only of these new properties could control whether to 
HDELETE migrated data sets for DDs with DISP=(MOD,DELETE).


This approach, or some more workable variant, is intended to generalize 
the system to avoid hard-coded checking for IEFBR14 and the potentially 
erroneous behavioral assumptions that are possible. It would also allow 
this new allocation attribute to be defined for other IBM-, vendor-, or 
user-written utilities.


--
Edward E Jaffe
Chief Technology Officer
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
edja...@phoenixsoftware.com
http://www.phoenixsoftware.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Small Server Mob Advantage

[Anne & Lynn Wheeler]

The following message is a courtesy copy of an article
that has been posted to bit.listserv.ibm-main,alt.folklore.computers as well.

Anne & Lynn Wheeler  writes:
> At the time, some internal locations were bursting at the seams in terms
> of raised floor and 4341s were solution to installing additional
> computing power ... out in department areas (at some locations,
> conference rooms became a very scarce resource ... because so many were
> being taken over for 4341s).

re:
http://www.garlic.com/~lynn/2009q.html#82 Small Server Mob Advantage
http://www.garlic.com/~lynn/2009q.html#83 Small Server Mob Advantage
http://www.garlic.com/~lynn/2009r.html#0 Small Server Mob Advantage
http://www.garlic.com/~lynn/2009r.html#1 Small Server Mob Advantage

alternative to taking over all the conference rooms (something that
happened with big spike in 4341 installs a couple decades ago)

IBM thinks outside the box with containerized data centres
http://www.theregister.co.uk/2009/12/07/ibm_data_center_containers/

from above:

The idea of putting servers, storage, and networking gear into metal
shipping containers and linking them together into a data centre cluster
is not a new idea - Sun Microsystems was the first to propose the idea
back in October 2006 - but it is catching on enough that IBM is
endorsing the concept and shipping a product.

... snip ... 

-- 
40+yrs virtualization experience (since Jan68), online at home since Mar1970

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEC143I 213-30

[Thompson, Steve]

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Paul Gilmartin
Sent: Monday, December 07, 2009 9:40 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: IEC143I 213-30

On Mon, 7 Dec 2009 09:53:26 -0500, Scott Rowe wrote:

>I don't believe that's true, Gil.  It doesn't make sense given the
changes that were made to the logic, and I can't create it here.  Do you
have a test case that shows this?
>
I believe SPFEDIT mostly protects you.  To show the problem
you'd need to have:

o DSNTYPE=PDS

o DISP=SHR

o Update by a process other than ISPF EDIT, and which doesn't
  respect the SPFEDIT ENQ.

I'll grant this is unlikely; I'd prefer not to try to create it.
Perhaps Ted is thinking of something in addition.



I've not been following this thread closely. But it seems that about
this time last year I started dealing with a related issue. So if this
is not germane to your discussions, just ignore it.

Meanwhile, I had found an ABEND that happens when two tasks are trying
to do STOW at the same time. In my situation, this was a race (or timing
dependant) condition and it could be done within a single LPAR between
two address spaces (and I think I was even able to get it within the
same address space). I did this under z/OS V1R9. Since we did things to
prevent it, I would have to break the code to recreate under z/OS
V1R10/11.

During design, we concluded that we had to use the "ISPF EDIT ENQUEUE".
But during testing we found that if you are doing a STOW for member "X"
while another task is attempting member "Y" at the same time, the "ISPF
EDIT ENQUEUE" does not protect the directory from a simultaneous update
situation, only from two tasks using the same member.

In order to prevent this ABEND situation, we decided to use an ENQUEUE
for the directory updates. The ENQUEUE actually protects from the
problem within one address space or across two -- and only between uses
of the product (which is still underdevelopment) since the ENQUEUE we
came up with is "private".

The STOW situation I ran into did not require a member write, only that
you wish to update the directory entry. In my case, attempting to add
the "ISPF" stats caused the ABEND. And because of race (or timing as you
prefer) conditions I was getting two STOWs being done at the same time
to the same directory. The system detected this and the arbitrary second
updater got the ABEND.

Regards,
Steve Thompson

-- Opinions expressed by this poster may not reflect those of poster's
employer --

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Missing RACF exit

[Binyamin Dissen]

On Mon, 7 Dec 2009 13:05:43 + "Beesley, Paul"
 wrote:

:>Thanks Rob.
:>Turned out to be fairly easy. Dynamically loaded the module into MLPA,
:>wrote a quick program to zap the address into the correct slot in the
:>RCVT

I will bet that there will be folk who would put you down for being a cowboy,
but this is a quite simple way of fixing the problem.

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEC143I 213-30

[Paul Gilmartin]

On Mon, 7 Dec 2009 09:53:26 -0500, Scott Rowe wrote:

>I don't believe that's true, Gil.  It doesn't make sense given the changes 
>that were made to the logic, and I can't create it here.  Do you have a test 
>case that shows this?
>
I believe SPFEDIT mostly protects you.  To show the problem
you'd need to have:

o DSNTYPE=PDS

o DISP=SHR

o Update by a process other than ISPF EDIT, and which doesn't
  respect the SPFEDIT ENQ.

I'll grant this is unlikely; I'd prefer not to try to create it.
Perhaps Ted is thinking of something in addition.

 Paul Gilmartin 9:39 AM >>>
>On Mon, 7 Dec 2009 09:31:47 -0500, Scott Rowe wrote:
>
>>This is not true Ted, as we have discussed before.  In fact, the symptom in 
>>the title of this thread is the result of IBM closing that exposure.
>>
>Depends.
>
> Ted MacNEIL 12/6/2009 9:46 PM >>>
>>>Oh?  Even with GRS in place?  Because we are doing this.
>>
>>There are potential corruption issues when two people are editing members on 
>>different swystems.
>>Both read the same offsets.
>>Whoever saves wins!
>>
>In more detail, last guy to save wins; first guy's changes are lost.
>Some might consider this corruption.  But directory integrity is
>maintained.
>
>-- gil
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html 
>
>
>
>CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains 
>confidential and privileged information intended only for the addressee.  If 
>you are not the intended recipient, please be advised that you have received 
>this material in error and that any forwarding, copying, printing, 
>distribution, use or disclosure of the material is strictly prohibited.  If 
>you have received this material in error, please (i) do not read it, (ii) 
>reply to the sender that you received the message in error, and (iii) erase or 
>destroy the material. Emails are not secure and can be intercepted, amended, 
>lost or destroyed, or contain viruses. You are deemed to have accepted these 
>risks if you communicate with us by email. Thank you.
>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEC143I 213-30

[Scott Rowe]

I don't believe that's true, Gil.  It doesn't make sense given the changes that 
were made to the logic, and I can't create it here.  Do you have a test case 
that shows this?

>>> Paul Gilmartin  12/7/2009 9:39 AM >>>
On Mon, 7 Dec 2009 09:31:47 -0500, Scott Rowe wrote:

>This is not true Ted, as we have discussed before.  In fact, the symptom in 
>the title of this thread is the result of IBM closing that exposure.
>
Depends.

 Ted MacNEIL 12/6/2009 9:46 PM >>>
>>Oh?  Even with GRS in place?  Because we are doing this.
>
>There are potential corruption issues when two people are editing members on 
>different swystems.
>Both read the same offsets.
>Whoever saves wins!
>
In more detail, last guy to save wins; first guy's changes are lost.
Some might consider this corruption.  But directory integrity is
maintained.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 



CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains 
confidential and privileged information intended only for the addressee.  If 
you are not the intended recipient, please be advised that you have received 
this material in error and that any forwarding, copying, printing, 
distribution, use or disclosure of the material is strictly prohibited.  If you 
have received this material in error, please (i) do not read it, (ii) reply to 
the sender that you received the message in error, and (iii) erase or destroy 
the material. Emails are not secure and can be intercepted, amended, lost or 
destroyed, or contain viruses. You are deemed to have accepted these risks if 
you communicate with us by email. Thank you.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: CF LPAR MIPS Utilisation

[Scott Rowe]

Art,
 
In my experience, GRS-Star with shared CP CFs is still significantly faster (at 
least one order of magnitude) than GRS Ring using XCF.  Also, the purpose for 
the extra CF can be used to upgrade CF code without a Sysplex outage.  I guess 
it's also remotely possible that a CF code fault could cause a CF failure, 
though I have yet to see this.  I keep a second CF running for this purpose, 
though I don't currently have any active structures in it.
 
Scott

>>> Arthur Gutowski  12/7/2009 9:25 AM >>>
I also don't see which LPAR's are part of the Sysplex, and which are not.

Dynamic Dispatch with a CF LPAR is not so much a matter of utilization, but as 
Scott suggests, getting the CPU when the CF needs it.  We have found that 
DynDisp dramatically increases ISGLOCK response times (at least one order of 
magnitude) - and we have characterized CF engines.  I cannot imagine how 
much worse this would be if we had to share with MVS images, too.

IMHO, if A and B are the only ones in the Sysplex, the parallel sysplex does 
not give you significant advantage in and of itself in this configuration, 
unless 
of course, you have it for pricing considerations.  Yes, GRS Star (parallel 
sysplex required) does perform better than Ring, even in a two-system 
complex, but without dedicated CF engines, my gut tells me you are losing 
whatever ground Star gives you.

If A, B, C and D are all in it together, then IMHO, seriously consider funding 
and characterizing an ICF CP.  Also, if they are, and since you are on a single 
footprint, I do not see the advantage of two CF LPARs for a single complex.
If an internal CF goes down, it's either because your Operators need to be 
more astute, or there is a serious hardware problem, which probably means 
the whole machine is down.

When our European counterparts tried to implement Star a few years back, 
they found this out empirically, also notwithstanding the added CPU demand 
buried their already-taxed z990.

FWIW,
Art Gutowski
Ford Motor Company

On Fri, 4 Dec 2009 14:33:18 -0500, Scott Rowe  
wrote:

>Certainly, SYSA can take unused cycles, they are distributed according to 
weights.  What you haven't said is what mode your CFs are running in, so I 
will assume the are dynamically dispatched.  The thing you need to be very 
careful about here is that the CF partitions can get the cycles they need 
when they need them.  According to your calculations, your CF partitions are 
promised 100 and 36 MIPS respectively - but is that enough?  I prefer to over-
weight CFs that run on shared CPs, since it helps ensure that the CF has 
access to the CPU when it needs it.  If there are many CF requests and not 
enough available cycles to service them you could get in trouble quickly.
>
 John Mitchelle  12/4/2009 11:57 AM 
>>>
>Hi,
>
>I have 936 MIPS processor Z02-2096 z9BC
>
>I have 4 LPARS and 2 CF LPARs
>
>SYSA (Prod)
>
>SYSB (Dev)
>
>SYSC (Test)
>
>SYSD (Maint)
>
>SYCF1
>
>SYCF2
>
>Both CPU Engines are online across all LPAR's.
>
>Wts are in such a way that MIPS Allocation are
>
>650 for SYSA
>
>50  for SYSB
>
>50  for SYSC
>
>50  for SYSD
>
>100 MIPS for SYCF1 and
>
>36  MIPS for SYCF2 ,
>
>
>SYSA is UNCAPPED and SYSB, SYSC and  SYSD are CAPPED.
>
>Recently we are having issues related to MIPS capacity.
>
>I am aware that in case SYSA needs more capacity then it can take from
>SYSB,SYSC,SYSD if   available.
>
>However, was wondering whether system will allow to take MIPS from
>Coupling Facility LPAR's as well or not if available ?
>
>These are the structures in use for CF
>
>ISGLOCK
>IXCXCF1
>IXCXCF2
>
>Is there any advantage in getting rid of these coupling facility ?
>Will that give us comfort ofhaving these additional MIPS ?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 



CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains 
confidential and privileged information intended only for the addressee.  If 
you are not the intended recipient, please be advised that you have received 
this material in error and that any forwarding, copying, printing, 
distribution, use or disclosure of the material is strictly prohibited.  If you 
have received this material in error, please (i) do not read it, (ii) reply to 
the sender that you received the message in error, and (iii) erase or destroy 
the material. Emails are not secure and can be intercepted, amended, lost or 
destroyed, or contain viruses. You are deemed to have accepted these risks if 
you communicate with us by email. Thank you.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.

Re: file definition

[Donald Imbriale]

PDS command (from CBT tape) with subcommand DSNAME JCL may provide what you are 
looking for - at least for non-VSAM data sets.

Don Imbriale 

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Frank Swarbrick
Sent: Friday, December 04, 2009 6:46 PM
To: IBM-MAIN@bama.ua.edu
Subject: file definition

This may or may not be a weird question, but...
Is there a utility where I can give it a list of dataset names and it can give 
back some JCL that could have been used to define that file?  Simply an IEFBR14 
with a DD for each file where the DD has the DISP=(NEW,CATLG), the DSN, the 
full DCB, the SPACE parm and whatever else could be used to recreate the 
dataset if it were deleted.

Thanks,
Frank

-- 

Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO  USA
P: 303-235-1403
This email is confidential and subject to important disclaimers and
conditions including on offers for the purchase or sale of
securities, accuracy and completeness of information, viruses,
confidentiality, legal privilege, and legal entity disclaimers,
available at http://www.jpmorgan.com/pages/disclosures/email.  

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Detect the loop for batch job

[Hal Merritt]

All programs 'loop'. It is what they do.  

About the only automated solution I can think of would be to set a CPU time 
limit.  

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Joel C. Ewing
Sent: Saturday, December 05, 2009 11:20 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Detect the loop for batch job

On 12/04/2009 10:14 AM, bjbxd wrote:
> Hello List,
> We are looking for a tool to detect the loop for batch application,
> any suggestion are appreciated.
> 
> My shop is runing z/OS, application is C/C++.
> Bob.

 
NOTICE: This electronic mail message and any files transmitted with it are 
intended
exclusively for the individual or entity to which it is addressed. The message, 
together with any attachment, may contain confidential and/or privileged 
information.
Any unauthorized review, use, printing, saving, copying, disclosure or 
distribution 
is strictly prohibited. If you have received this message in error, please 
immediately advise the sender by reply email and delete all copies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEC143I 213-30

[Paul Gilmartin]

On Mon, 7 Dec 2009 09:31:47 -0500, Scott Rowe wrote:

>This is not true Ted, as we have discussed before.  In fact, the symptom in 
>the title of this thread is the result of IBM closing that exposure.
>
Depends.

 Ted MacNEIL 12/6/2009 9:46 PM >>>
>>Oh?  Even with GRS in place?  Because we are doing this.
>
>There are potential corruption issues when two people are editing members on 
>different swystems.
>Both read the same offsets.
>Whoever saves wins!
>
In more detail, last guy to save wins; first guy's changes are lost.
Some might consider this corruption.  But directory integrity is
maintained.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IEC143I 213-30

[Scott Rowe]

You can't share them for update, as you have discovered.  I would suggest you 
take this to your sysprogs and tell them you have a requirement they need them 
to satisfy, and you could even suggest that Sysplex is one solution.  If they 
don't listen, take it to management. 

>>> Frank Swarbrick  12/4/2009 7:51 PM >>>
>>> On 12/4/2009 at 2:17 PM, in message
<2121472874-1259961467-cardhu_decombobulator_blackberry.rim.net-17612826...@bda4
8.bisx.prod.on.blackberry>, Ted MacNEIL  wrote:
>> Exactly my point.  Someone asked me why I said we didn't want to use PDSE to 
> solve my issue and I said because we can't share them well, because we're not 
> in a Sysplex.
> 
> You can't share regular PDS datasets either.

Oh?  Even with GRS in place?  Because we are doing this.

Frank

-- 

Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO  USA
P: 303-235-1403




The information contained in this electronic communication and any document 
attached hereto or transmitted herewith is confidential and intended for the 
exclusive use of the individual or entity named above.  If the reader of this 
message is not the intended recipient or the employee or agent responsible for 
delivering it to the intended recipient, you are hereby notified that any 
examination, use, dissemination, distribution or copying of this communication 
or any part thereof is strictly prohibited.  If you have received this 
communication in error, please immediately notify the sender by reply e-mail 
and destroy this communication.  Thank you.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 



CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains 
confidential and privileged information intended only for the addressee.  If 
you are not the intended recipient, please be advised that you have received 
this material in error and that any forwarding, copying, printing, 
distribution, use or disclosure of the material is strictly prohibited.  If you 
have received this material in error, please (i) do not read it, (ii) reply to 
the sender that you received the message in error, and (iii) erase or destroy 
the material. Emails are not secure and can be intercepted, amended, lost or 
destroyed, or contain viruses. You are deemed to have accepted these risks if 
you communicate with us by email. Thank you.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IDCAMS Delete via DD

[Paul Gilmartin]

On Mon, 7 Dec 2009 09:08:28 -0500, John Eells wrote:
>
>- A change control record must be opened, and the change justified and
>approved.
>- The change has to be made, tested, and documented.
>- The documentation has to be reviewed and accepted by production control.
>- The job has to be changed in the production control system.
>
Of course, changing the behavior of a pervasive cliche such as
"//STEP EXEC PGM=IEFBR14" behind the customers' backs induces
similar requirements for review and testing.  But if I understand
correctly, this is controlled by a PARMLIB option, so customers
can elect not to endure the change.

In an analogous situation, many years ago a code generation bug
in Assembler was (belatedly, IMO) repaired.  I remarked to a
developement manager that we were relieved of the burden of
maintaining the circumvention we had developed.  But he was
unexpectedly dismayed: "We must now revalidate all our products
in GA, since a code gen change may impact an unknown number of
dependencies on the current (incorrect) behavior."

>So, naturally without any guarantee that we'll ever do anything...how
>would those of you who dislike our solution solve the problem while
>meeting the implied requirement for avoiding JCL changes?
>
Can't.  Let the rants continue.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

RES: Missing RACF exit

[ITURIEL DO NASCIMENTO NETO]

You can try another approach by specifying CSVDYNEX interface to call
a dynamic ICHRIX01 exit. Of course you will need an IPL, but after that
the dynamic exit could be activated/deactivated/changed in flight.

You have to create a static ICHRIX01 exit, loaded at IPL time, which can
have a logic like this :

Query DYN.ICHRIX01   
IF NOT Defined OR Only Defined IMPLICIT Then 
  DO  
  Define DYN.ICHRIX01
  END  
CALL DYN.ICHRIX01
IF Exit Module is ACTIVE Then 
  DO 
  EXIT MODULE executes and Returns   
  END  

Additionally you have to define it in SYS1.PARMLIB :

 EXIT ADD  
 EXITNAME(DYN.ICHRIX01)
 MODNAME(DYNRIX01)

The DYNRIX01 will have the logic that normally would be coded in
ICHRIX01,
and can be located in linklist. 



Atenciosamente / Regards / Saludos 

Ituriel do Nascimento Neto 
Banco Bradesco S/A 
4254 - DPCD Engenharia de Software 
Sistemas Operacionais Mainframes 
Tel: +55 11 4197-2021 R: 22021   Fax: +55 11 4197-2814 

 

|-Mensagem original-
|De: IBM Mainframe Discussion List 
|[mailto:ibm-m...@bama.ua.edu] Em nome de Beesley, Paul
|Enviada em: segunda-feira, 7 de dezembro de 2009 11:06
|Para: IBM-MAIN@bama.ua.edu
|Assunto: Re: Missing RACF exit
|
|Thanks Rob.
|Turned out to be fairly easy. Dynamically loaded the module 
|into MLPA, wrote a quick program to zap the address into the 
|correct slot in the RCVT
|
|Thanks for your help 
|
|
|Regards
|Paul 
|
|-Original Message-
|From: IBM Mainframe Discussion List 
|[mailto:ibm-m...@bama.ua.edu] On Behalf Of Rob Scott
|Sent: 07 December 2009 10:12
|To: IBM-MAIN@bama.ua.edu
|Subject: Re: Missing RACF exit
|
|Paul,
|
|As far as I am aware, if the exit pointer in the RCVT is 
|non-zero then RACF will invoke the exit. About 15 years ago I 
|knocked up a quick+dirty program to dynamically add a RACF 
|exit and it seemed to work OK. 
|
|I have not seen RACFXITS - however the logic I used was 
|something along the lines of :
|
|(o) Determine length of RACF exit
|(o) Grab that amount of E-CSA and assign ownership to the 
|system (ie I want it to persist)
|(o) Directed load of the exit module into the E-CSA chunk
|(o) Store the E-CSA address into the RCVT (remembering to 
|indicate AMODE
|in bit0)   
|
|These days you have things like dynamic LPA - so you might be 
|able to avoid most of the heavy lifting and just "zap" in the 
|new exit address. 
|
|Rob Scott
|Developer
|Rocket Software
|275 Grove Street * Newton, MA 02466-2272 * USA
|Tel: +1.617.614.2305
|Email: rsc...@rs.com
|Web: www.rocketsoftware.com
|
|-
|
|___
|
|Atos Origin and Atos Consulting are trading names used by the 
|Atos Origin group.  The following trading entities are 
|registered in England and Wales:  Atos Origin IT Services UK 
|Limited (registered number 01245534) and Atos Consulting 
|Limited (registered number 04312380).  The registered office 
|for each is at 4 Triton Square, Regents Place, London, NW1 
|3HG.The VAT No. for each is: GB232327983
|
|This e-mail and the documents attached are confidential and 
|intended solely for the addressee, and may contain 
|confidential or privileged information.  If you receive this 
|e-mail in error, you are not authorised to copy, disclose, use 
|or retain it.  Please notify the sender immediately and delete 
|this email from your systems.   As emails may be intercepted, 
|amended or lost, they are not secure.  Atos Origin therefore 
|can accept no liability for any errors or their content.  
|Although Atos Origin endeavours to maintain a virus-free 
|network, we do not warrant that this transmission is 
|virus-free and can accept no liability for any damages 
|resulting from any virus transmitted.   The risks are deemed 
|to be accepted by everyone who communicates with Atos Origin by email. 
|___
|
|--
|For IBM-MAIN subscribe / signoff / archive access 
|instructions, send email to lists...@bama.ua.edu with the 
|message: GET IBM-MAIN INFO Search the archives at 
|http://bama.ua.edu/archives/ibm-main.html
|

AVISO LEGAL Esta mensagem é 
destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter 
informação confidencial e/ou legalmente privilegiada. Se você não for 
destinatário desta mensagem, desde já fica notificado de abster-se a 
divulgar, copiar, distribuir, examinar ou, de qualquer forma, utilizar a 
informação contida nesta mensagem, por ser ilegal. Caso você tenha recebido 
esta mensagem por engano, pedimos que nos retorne este E-Mail, promovendo, 
desde logo, a eliminação do seu conteúdo em sua base de dados, registros ou 
sistema de controle. Fica desprovida de eficácia 

Re: IEC143I 213-30

[Scott Rowe]

This is not true Ted, as we have discussed before.  In fact, the symptom in the 
title of this thread is the result of IBM closing that exposure.

>>> Ted MacNEIL  12/6/2009 9:46 PM >>>
>Oh?  Even with GRS in place?  Because we are doing this.

There are potential corruption issues when two people are editing members on 
different swystems.
Both read the same offsets.
Whoever saves wins!
-
Too busy driving to stop for gas!

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html 



CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains 
confidential and privileged information intended only for the addressee.  If 
you are not the intended recipient, please be advised that you have received 
this material in error and that any forwarding, copying, printing, 
distribution, use or disclosure of the material is strictly prohibited.  If you 
have received this material in error, please (i) do not read it, (ii) reply to 
the sender that you received the message in error, and (iii) erase or destroy 
the material. Emails are not secure and can be intercepted, amended, lost or 
destroyed, or contain viruses. You are deemed to have accepted these risks if 
you communicate with us by email. Thank you.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: file definition

[Thompson, Steve]

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Frank Swarbrick
Sent: Friday, December 04, 2009 5:46 PM
To: IBM-MAIN@bama.ua.edu
Subject: file definition

This may or may not be a weird question, but...
Is there a utility where I can give it a list of dataset names and it
can give back some JCL that could have been used to define that file?
Simply an IEFBR14 with a DD for each file where the DD has the
DISP=(NEW,CATLG), the DSN, the full DCB, the SPACE parm and whatever
else could be used to recreate the dataset if it were deleted.

Thanks,
Frank



No such utility for z/OS that I know of per se. However, you may be able
to convince IDCAMS to provide you with some of the information. 

Regards,
Steve Thompson

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: CF LPAR MIPS Utilisation

[Arthur Gutowski]

I also don't see which LPAR's are part of the Sysplex, and which are not.

Dynamic Dispatch with a CF LPAR is not so much a matter of utilization, but as 
Scott suggests, getting the CPU when the CF needs it.  We have found that 
DynDisp dramatically increases ISGLOCK response times (at least one order of 
magnitude) - and we have characterized CF engines.  I cannot imagine how 
much worse this would be if we had to share with MVS images, too.

IMHO, if A and B are the only ones in the Sysplex, the parallel sysplex does 
not give you significant advantage in and of itself in this configuration, 
unless 
of course, you have it for pricing considerations.  Yes, GRS Star (parallel 
sysplex required) does perform better than Ring, even in a two-system 
complex, but without dedicated CF engines, my gut tells me you are losing 
whatever ground Star gives you.

If A, B, C and D are all in it together, then IMHO, seriously consider funding 
and characterizing an ICF CP.  Also, if they are, and since you are on a single 
footprint, I do not see the advantage of two CF LPARs for a single complex.
If an internal CF goes down, it's either because your Operators need to be 
more astute, or there is a serious hardware problem, which probably means 
the whole machine is down.

When our European counterparts tried to implement Star a few years back, 
they found this out empirically, also notwithstanding the added CPU demand 
buried their already-taxed z990.

FWIW,
Art Gutowski
Ford Motor Company

On Fri, 4 Dec 2009 14:33:18 -0500, Scott Rowe  
wrote:

>Certainly, SYSA can take unused cycles, they are distributed according to 
weights.  What you haven't said is what mode your CFs are running in, so I 
will assume the are dynamically dispatched.  The thing you need to be very 
careful about here is that the CF partitions can get the cycles they need 
when they need them.  According to your calculations, your CF partitions are 
promised 100 and 36 MIPS respectively - but is that enough?  I prefer to over-
weight CFs that run on shared CPs, since it helps ensure that the CF has 
access to the CPU when it needs it.  If there are many CF requests and not 
enough available cycles to service them you could get in trouble quickly.
>
 John Mitchelle  12/4/2009 11:57 AM 
>>>
>Hi,
>
>I have 936 MIPS processor Z02-2096 z9BC
>
>I have 4 LPARS and 2 CF LPARs
>
>SYSA (Prod)
>
>SYSB (Dev)
>
>SYSC (Test)
>
>SYSD (Maint)
>
>SYCF1
>
>SYCF2
>
>Both CPU Engines are online across all LPAR's.
>
>Wts are in such a way that MIPS Allocation are
>
>650 for SYSA
>
>50  for SYSB
>
>50  for SYSC
>
>50  for SYSD
>
>100 MIPS for SYCF1 and
>
>36  MIPS for SYCF2 ,
>
>
>SYSA is UNCAPPED and SYSB, SYSC and  SYSD are CAPPED.
>
>Recently we are having issues related to MIPS capacity.
>
>I am aware that in case SYSA needs more capacity then it can take from
>SYSB,SYSC,SYSD if   available.
>
>However, was wondering whether system will allow to take MIPS from
>Coupling Facility LPAR's as well or not if available ?
>
>These are the structures in use for CF
>
>ISGLOCK
>IXCXCF1
>IXCXCF2
>
>Is there any advantage in getting rid of these coupling facility ?
>Will that give us comfort ofhaving these additional MIPS ?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: IDCAMS Delete via DD

[John Eells]

Edward Jaffe wrote:

Such assumptive, non-canonical, lazy programming seems to work in most 
cases, but can lead to failure and confusion in others. I eliminate it 
whenever I can. I regard such code as inelegant, yet convenient, 
short-cuts that work most of the time. "Kludge".


I fear we're losing the forest for the trees.  Here's the problem.

Say I'm in a large production shop.  We have production JCL that runs to 
hundreds of thousands or perhaps millions of lines spread across myriad 
batch jobs.  Jobs often stall due to recalls before data sets are 
deleted; once in a while I blow a batch window because of this.  I know 
how to change the jobs to eliminate the problem, and I do it when I 
must.  But every change to every production job is moderately 
labor-intensive:


- A change control record must be opened, and the change justified and 
approved.

- The change has to be made, tested, and documented.
- The documentation has to be reviewed and accepted by production control.
- The job has to be changed in the production control system.

The probability of error rises with the complexity of the change.  While 
I think prior posts have shown how I think about the use of IEFBR14 as a 
"data set allocation and deletion 'utility'," the fact is that many 
hundreds or perhaps thousands of jobs that use it that way might exist 
in a large installation.  For each of them, the process above--designed, 
to be fair, to assure production batch quality--must be followed.  If I 
wanted to change them all, programmer and administrator months (or 
years!) would be consumed.


In an ideal world with infinite resource, I'd bravely bear the cost and 
defenestrate every single use of IEFBR14 for this purpose, replacing it 
with a real utility (and appropriate control statements) that will, 
among other things, provide a return code to indicate success or failure 
and isolate failures to the actual failing step to simplify diagnosis 
and restart.


In the real world, this ain't gonna happen.  Large-scale production JCL 
changes are an anathema.  I want a "magic wand" to make the problem go 
away (and I want it *NOW*).  Hence the customer requests for this function.


So, naturally without any guarantee that we'll ever do anything...how 
would those of you who dislike our solution solve the problem while 
meeting the implied requirement for avoiding JCL changes?


--
John Eells
z/OS Technical Marketing
IBM Poughkeepsie
ee...@us.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: file definition

[Elardus Engelbrecht]

Frank Swarbrick wrote:

>This may or may not be a weird question, but...

No. Actually a good question.

>Is there a utility where I can give it a list of dataset names and it can give 
back some JCL that could have been used to define that file?  Simply an 
IEFBR14 with a DD for each file where the DD has the DISP=(NEW,CATLG), the 
DSN, the full DCB, the SPACE parm and whatever else could be used to 
recreate the dataset if it were deleted.

See this free REXX program. (You can add the full DCB etc, by inserting lines 
to trap the LISTDS output. Or you can parse out the result of a Catalog 
Search Interface run.)

/* REXX */

"ALLOC DA('...in..') F(INVOER) SHR REUSE"
"EXECIO * DISKR INVOER (STEM LYS. FINIS"
"FREE F(INVOER)"

"ALLOC DA('..out..') F(AFVOER) OLD REUSE"

AF.1 = "//JOB12345 JOB ( ...),CLASS=A"
AF.2 = "//STEP EXEC PGM=IEFBR14"

AANTALLYNE = 2 /* SAME # AS ABOVE */
FIRSTIME = 'YES'

DO J = 1 TO LYS.0
   DSN = SUBSTR(LYS.J,1,44)
   IF FIRSTIME = 'YES' THEN
  DO
   JCL  = "//DATA DD DISP=(NEW,CATLG),DSN="DSN
   FIRSTIME = 'NO'
  END
ELSE
  JCL   = "// DD DISP=(NEW,CATLG),DSN="DSN
   AANTALLYNE = AANTALLYNE + 1
   AF.AANTALLYNE = JCL
END
AF.0 = AANTALLYNE
"EXECIO * DISKW AFVOER (STEM AF. FINIS"
"FREE F(AFVOER)"
RETURN

Input for REXX:
X.X  
SYS1.PEST.RODENT 
SYS1.PEST.MICE   
SYS1.PEST.HUNGRY 
SYS1.PEST.EAT

Output from it:
//JOB12345 JOB ( ...),CLASS=A
// EXEC PGM=IEFBR14
//DATA DD DISP=(NEW,CATLG),DSN=X.X
// DD DISP=(NEW,CATLG),DSN=SYS1.PEST.RODENT
// DD DISP=(NEW,CATLG),DSN=SYS1.PEST.MICE
// DD DISP=(NEW,CATLG),DSN=SYS1.PEST.HUNGRY 
// DD DISP=(NEW,CATLG),DSN=SYS1.PEST.EAT

HTH!

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Missing RACF exit

[Beesley, Paul]

Thanks Rob.
Turned out to be fairly easy. Dynamically loaded the module into MLPA,
wrote a quick program to zap the address into the correct slot in the
RCVT

Thanks for your help 


Regards
Paul 

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Rob Scott
Sent: 07 December 2009 10:12
To: IBM-MAIN@bama.ua.edu
Subject: Re: Missing RACF exit

Paul,

As far as I am aware, if the exit pointer in the RCVT is non-zero then
RACF will invoke the exit. About 15 years ago I knocked up a quick+dirty
program to dynamically add a RACF exit and it seemed to work OK. 

I have not seen RACFXITS - however the logic I used was something along
the lines of :

(o) Determine length of RACF exit
(o) Grab that amount of E-CSA and assign ownership to the system (ie I
want it to persist)
(o) Directed load of the exit module into the E-CSA chunk
(o) Store the E-CSA address into the RCVT (remembering to indicate AMODE
in bit0)   

These days you have things like dynamic LPA - so you might be able to
avoid most of the heavy lifting and just "zap" in the new exit address. 

Rob Scott
Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.617.614.2305
Email: rsc...@rs.com
Web: www.rocketsoftware.com

-

___

Atos Origin and Atos Consulting are trading names used by the Atos Origin 
group.  The following trading entities are registered in England and Wales:  
Atos Origin IT Services UK Limited (registered number 01245534) and Atos 
Consulting Limited (registered number 04312380).  The registered office for 
each is at 4 Triton Square, Regents Place, London, NW1 3HG.The VAT No. for each 
is: GB232327983

This e-mail and the documents attached are confidential and intended solely for 
the addressee, and may contain confidential or privileged information.  If you 
receive this e-mail in error, you are not authorised to copy, disclose, use or 
retain it.  Please notify the sender immediately and delete this email from 
your systems.   As emails may be intercepted, amended or lost, they are not 
secure.  Atos Origin therefore can accept no liability for any errors or their 
content.  Although Atos Origin endeavours to maintain a virus-free network, we 
do not warrant that this transmission is virus-free and can accept no liability 
for any damages resulting from any virus transmitted.   The risks are deemed to 
be accepted by everyone who communicates with Atos Origin by email. 
___

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: TCP/IP NETSTAT problem

[Mike W Stayton]

First, the message EZZ2499I tells that your  netmsg.cat file is out of 
sync with the netstat code.

See this techdoc article about msgcat files:
http://www-01.ibm.com/support/docview.wss?uid=swg21247361 

"
Problem(Abstract) During messaging processing of a TCPIP command (TSO 
NETSTAT, Display or Vary command, FTP server or client), any of the 
following can occur:

1) Receive message "EZZ2506I -- reserved for future use --" or another 
"reserved for future use" message
2) Receive message "EZZ0154I CONFIGURATION: UNABLE TO OPEN MESSAGE 
CATALOG"
3) Any message indicating message catalog open/access failure.
4) ABEND0C4
5) Garbled or corrupted message text 
"

Mike Stayton
z/OS Communications Server
m...@us.ibm.com

Client success extends to the way we anticipate what our clients want, 
need and dream of ...   Sam J Palmisano

IBM Mainframe Discussion List  wrote on 12/07/2009 
01:45:31 AM:

> [image removed] 
> 
> Re: TCP/IP NETSTAT problem
> 
> SUBSCRIBE IBM-MAIN gaa a. gamal 
> 
> to:
> 
> IBM-MAIN
> 
> 12/07/2009 01:46 AM
> 
> Sent by:
> 
> IBM Mainframe Discussion List 
> 
> Please respond to IBM Mainframe Discussion List
> 
> ANY SUGGESTION ?
> 
> >Hi everybody,
> >
> >I have a problem with tcpip netstat command.
> >when i issue the command D TCPIP,,N,DEV
> >I get the follwing error:
> >_
> >D TCPIP,TCP,N,DEV
> >EZZ0157I CONFIGURATION: THE CONFIGURATION COMPONENT HAS
> >TERMINATED
> >EZZ0157I CONFIGURATION: STATE OF THE CONFIGURATION COMPONENT
> >WHEN
> >EZZ0157I CONFIGURATION: THE TERMINATION
> >OCCURRED:
> >EZZ0157I CONFIGURATION: - THE FOLLOWING COMMAND WAS IN
> >PROGRESS:
> >EZZ0157I CONFIGURATION: DISPLAY TCPIP,TCP,N,DEV
> >EZZ0157I CONFIGURATION: CONFIGURATION COMPONENT ABLE TO RECOVER
> >FROM
> >EZZ0157I CONFIGURATION: THE TERMINATION
> >EZZ2499I -- RESERVED FOR FUTURE USE 051
> >DYNAMICXCF: LOO
> >  IPADDR: READYSUBNET: EZZ2766I   DEVST METRIC:
> >1638179481
> >TCPSTACKSRCVIPA: LOOPBACK
> >SMF PARAMETERS:
> >GLOBAL CONFIGURATION INFORMATION:
> >NETNUM:  453   QUESIZE: 633657262
> >NETNUM:  637296916   QUESIZE: 0   SPEED: 0633648100
> >BYTESIN: 2737170512210584104   BYTESOUT:
> >2721497870493800256
> >-- RESERVED FOR FUTURE USE --
> >  MULTICAST SPECIFIC:
> >-- RESERVED FOR FUTURE USE --
> >MESSAGE TIMED OUT - MESSAGE COMPLETION
> >FORCED
> >* BOTTOM OF DATA ***
> >
> >
> >BUT, when i issue the command from OMVS shell it SUCCESSFUL
> >
> >_
> ># netstat -d
> 
> >MVS TCP/IP NETSTAT CS V1R9   TCPIP Name: TCP
> >10:47:01
> >DevName: LOOPBACK  DevType: LOOPBACK
> >  DevStatus: Ready
> >  LnkName: LOOPBACK  LnkType: LOOPBACKLnkStatus:
> >Ready
> >NetNum: n/a  QueSize: n/a
> >ActMtu: 65535
> >  BSD Routing Parameters:
> >MTU Size: n/a   Metric: 00
> >DestAddr: 0.0.0.0   SubnetMask: 0.0.0.0
> >  Multicast Specific:
> >Multicast Capability: No
> >  Link Statistics:
> >BytesIn   = 506177
> >Inbound Packets   = 8171
> >Inbound Packets In Error  = 0
> >Inbound Packets Discarded = 0
> >Inbound Packets With No Protocol  = 0
> >BytesOut  = 506177
> >Outbound Packets  = 8171
> >Outbound Packets In Error = 0
> >
> >_
> >
> >my tcpip jobname is TCP
> >any help ?
> >thanks
> >
> >Gaa ali
> >pio
> >
> >--
> >For IBM-MAIN subscribe / signoff / archive access instructions,
> >send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> >Search the archives at http://bama.ua.edu/archives/ibm-main.html
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Missing RACF exit

[Rob Scott]

Paul,

As far as I am aware, if the exit pointer in the RCVT is non-zero then RACF 
will invoke the exit. About 15 years ago I knocked up a quick+dirty program to 
dynamically add a RACF exit and it seemed to work OK. 

I have not seen RACFXITS - however the logic I used was something along the 
lines of :

(o) Determine length of RACF exit
(o) Grab that amount of E-CSA and assign ownership to the system (ie I want it 
to persist)
(o) Directed load of the exit module into the E-CSA chunk
(o) Store the E-CSA address into the RCVT (remembering to indicate AMODE in 
bit0)   

These days you have things like dynamic LPA - so you might be able to avoid 
most of the heavy lifting and just "zap" in the new exit address. 

Rob Scott
Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.617.614.2305 
Email: rsc...@rs.com
Web: www.rocketsoftware.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Beesley, Paul
Sent: 07 December 2009 09:47
To: IBM-MAIN@bama.ua.edu
Subject: Missing RACF exit

* Cross posted to RACF-L *

Hello

I upgraded one of our systems from 1.7 to 1.9 at the weekend, and in so doing 
omitted one of the RACF exits, ICHRIX01.
The manual confirms my suspicion that exits can only be added with an IPL, 
which isn't possible until the weekend.

Does anyone have any code that can dynamically add an exit ? I spotted a 
program in an old Xephon mag called RACFXITS, does anyone have experience of 
using that? ( and can I download it instead of cutting/pasting of it ).

Thanks in advance


Paul Beesley


___

Atos Origin and Atos Consulting are trading names used by the Atos Origin 
group.  The following trading entities are registered in England and Wales:  
Atos Origin IT Services UK Limited (registered number 01245534) and Atos 
Consulting Limited (registered number 04312380).  The registered office for 
each is at 4 Triton Square, Regents Place, London, NW1 3HG.The VAT No. for each 
is: GB232327983

This e-mail and the documents attached are confidential and intended solely for 
the addressee, and may contain confidential or privileged information.  If you 
receive this e-mail in error, you are not authorised to copy, disclose, use or 
retain it.  Please notify the sender immediately and delete this email from 
your systems.   As emails may be intercepted, amended or lost, they are not 
secure.  Atos Origin therefore can accept no liability for any errors or their 
content.  Although Atos Origin endeavours to maintain a virus-free network, we 
do not warrant that this transmission is virus-free and can accept no liability 
for any damages resulting from any virus transmitted.   The risks are deemed to 
be accepted by everyone who communicates with Atos Origin by email. 
___


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at 
http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

AW: Missing RACF exit

[Keller Walter]

Hi Paul 

I can remember (re)loading the exit and then zapping the RCVT with the new 
address using Omegamon or a similar tool.
But I did it only in our test environment, so be VERY carefull. And the exit 
was already active, so I'm not sure, if this really works in your case. 

Regards, Walter

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] Im Auftrag von 
Beesley, Paul
Gesendet: Montag, 7. Dezember 2009 10:47
An: IBM-MAIN@bama.ua.edu
Betreff: Missing RACF exit

* Cross posted to RACF-L *

Hello

I upgraded one of our systems from 1.7 to 1.9 at the weekend, and in so doing 
omitted one of the RACF exits, ICHRIX01.
The manual confirms my suspicion that exits can only be added with an IPL, 
which isn't possible until the weekend.

Does anyone have any code that can dynamically add an exit ? I spotted a 
program in an old Xephon mag called RACFXITS, does anyone have experience of 
using that? ( and can I download it instead of cutting/pasting of it ).

Thanks in advance


Paul Beesley


___

Atos Origin and Atos Consulting are trading names used by the Atos Origin 
group.  The following trading entities are registered in England and Wales:  
Atos Origin IT Services UK Limited (registered number 01245534) and Atos 
Consulting Limited (registered number 04312380).  The registered office for 
each is at 4 Triton Square, Regents Place, London, NW1 3HG.The VAT No. for each 
is: GB232327983

This e-mail and the documents attached are confidential and intended solely for 
the addressee, and may contain confidential or privileged information.  If you 
receive this e-mail in error, you are not authorised to copy, disclose, use or 
retain it.  Please notify the sender immediately and delete this email from 
your systems.   As emails may be intercepted, amended or lost, they are not 
secure.  Atos Origin therefore can accept no liability for any errors or their 
content.  Although Atos Origin endeavours to maintain a virus-free network, we 
do not warrant that this transmission is virus-free and can accept no liability 
for any damages resulting from any virus transmitted.   The risks are deemed to 
be accepted by everyone who communicates with Atos Origin by email. 
___


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at 
http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: HYPERPAV

[Zaromil Tisler]

>- DS8000: Architecture and Implementation redbook states that
>   "If many LSSs are involved, then pick a quiet time to perform the SETIOS
> HYPERPAV=YES command ...Because it can take some time
> to initialize all needed LSSs ... "
>  Is there a way to get an estimation on time needed per LCU ? something else?

I haven't heard of anything like this.

>- Is there a way to activate HyperPAV on SYSA only, with no influence on
>  SYSB? Or he has to separate them to be in one SYSPLEX? (SYSA and SYSB
>  are in the same SYSPLEX)

Enter on SYSA only:
   SETIOS HYPERPAV=YES

>- After we activate HyperPAV, is fallback is only to change in IECIOSxx
>  member?

   SETIOS HYPERPAV=NO

-- 
Zaromil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Missing RACF exit

[Beesley, Paul]

* Cross posted to RACF-L *

Hello

I upgraded one of our systems from 1.7 to 1.9 at the weekend, and in so
doing omitted one of the RACF exits, ICHRIX01.
The manual confirms my suspicion that exits can only be added with an
IPL, which isn't possible until the weekend.

Does anyone have any code that can dynamically add an exit ? I spotted a
program in an old Xephon mag called RACFXITS, does anyone have
experience of using that? ( and can I download it instead of
cutting/pasting of it ).

Thanks in advance


Paul Beesley


___

Atos Origin and Atos Consulting are trading names used by the Atos Origin 
group.  The following trading entities are registered in England and Wales:  
Atos Origin IT Services UK Limited (registered number 01245534) and Atos 
Consulting Limited (registered number 04312380).  The registered office for 
each is at 4 Triton Square, Regents Place, London, NW1 3HG.The VAT No. for each 
is: GB232327983

This e-mail and the documents attached are confidential and intended solely for 
the addressee, and may contain confidential or privileged information.  If you 
receive this e-mail in error, you are not authorised to copy, disclose, use or 
retain it.  Please notify the sender immediately and delete this email from 
your systems.   As emails may be intercepted, amended or lost, they are not 
secure.  Atos Origin therefore can accept no liability for any errors or their 
content.  Although Atos Origin endeavours to maintain a virus-free network, we 
do not warrant that this transmission is virus-free and can accept no liability 
for any damages resulting from any virus transmitted.   The risks are deemed to 
be accepted by everyone who communicates with Atos Origin by email. 
___


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Detect the loop for batch job

[Vernooij, CP - SPLXM]

"Joel C. Ewing"  wrote in message
news:<4b1a9636.4060...@acm.org>...
> On 12/04/2009 10:14 AM, bjbxd wrote:
> > Hello List,
> > We are looking for a tool to detect the loop for batch application,
> > any suggestion are appreciated.
> > 
> > My shop is runing z/OS, application is C/C++.
> > Bob.
> 
> Considering the speed of today's processors, all batch programs that
run
> for more than a few seconds must of necessity contain one or more
logic
> loops; so I assume the intended question is how do you determine if
the
> program is in a non-productive loop.
> 
> In general making this determination automatically by any tool without
> knowing something about the expected or historic behaviour of the
> program is an impossible task.  And in the practical world it's not
just
> applications that will never terminate that are a problem, but also
> those which cost more in resources than the end user can afford. You
> want to catch a batch job step that is badly designed or poorly tuned
> that consumes an order of magnitude more CPU than required, as this is
> also a problem even if it may not be in an infinite loop.
> 
> If the general issue is one of jobs wasting resources (which with
> sub-capacity licensing may cost real money), then the simplest first
> step is to impose and enforce standards requiring reasonable CPU TIME
> limits on jobs and job steps in JCL, and possibly also require OUTLIM
to
> restrict SYSOUT loops in testing (needless to say "NOLIMIT" for CPU
time
> should not be allowed for any batch job).  Different default limits
can
> be set for testing vs production via JES2 definitions based on job
> classes, and it is possible to use an IEFUTL exit to provide for
> unanticipated application growth by allowing Operators the option of
> granting CPU time extensions or cancelling production jobs that reach
> the limit based on job class.  JCL overrides for higher limits could
be
> allowed for specific job steps that have known higher requirements
where
> the cost is acceptable to the end user.
> 
> Rate of CPU consumption by itself is an unreliable indicator of
> problems.  A single-threaded program would be limited to 100% of one
CP,
> but even a solid, infinite CPU loop could show up as a much lower
value
> on a loaded system, and some very efficiently-designed,
> computationally-intense programs might be able to approach 100% of a
CP
> on a lightly loaded system and still be doing productive work.
> 
> Some very simple tools, like SDSF DA display, that show both CPU and
> EXCP resources used, are sometime sufficient to provide clues.  If the
> program is known to require periodic I/O to do anything useful and it
is
> consuming an unusually amount of CPU time with no EXCPs, that would be
> strongly suggestive of a problem; or if the program is generating much
> more SYSOUT than usual or repetitive SYSOUT lines, again a likely
> problem.
> 
> If the program is using both CPU and EXCPs, but a lot more than
expected
> and no other obvious perverse behaviour, it is more difficult to make
a
> determination.  Other tools, like Omegamon, that show EXCPs on
specific
> DDs in the job step may allow one to see if the program is continuing
to
> progress through sequential data and if the total number of blocks is
> known may allow you to estimate if it will complete in an acceptable
> time and at what total cost.  Or EXCPs on a file way in excess of the
> total number of blocks in the file may point to a poorly tuned or
poorly
> designed application.
> 
> In our experience, there is no substitute for having human
intelligence
> in the monitoring loop when resources get tight.
> 
> 
> -- 
> Joel C. Ewing, Fort Smith, AR 

I agree. We have been trying for decades to build a good general loop
detector for operations but found it impossible.

Kees.
**
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 subscrib