How does COBOL detect a recursive call?

[Bill Woodger]

On Thursday, 11 August 2016 01:47:07 UTC+2, John McKown  wrote:
...> 
> ​Hum, I would guess this will be a case of "20 lines of code and 200 lines
> of comments (excluding cursing)"​
> 
> 
> 
> >

Excluding cursing, and including recursing.

Any IT management who chooses that route over 
TwoSimpleProgramsWithNothingButOrdinaryCodeCompile/LinkProcessingAndOrdinaryRunTime.
 is... well, choose your own ending.

Remember, there is Frank's suggestion to have the two programs in one source 
and compile them together, like they have some deep affinity just through 
proximity, that may serve the "do it the way I say" people. 

One COBOL program doing two things (and being shoe-horned with a blow-torch to 
do so) vs two programs *with identical, as in identical, really the same, 
except for no ENTRY* (Ok, not really identical, but you know what I mean) code. 
That's surely easy, even for a CS Grad?

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

Re: IBM's Australian cloud is in deep dodo

[David Crayford]

The Australian prime minister has just given a press conference and 
pointed the finger directly at IBM for this debacle. It's entirely 
predictable in this day
and age that a high profile event like an online census will face some 
kind of cyber attack. It happens all the time. IBM, the service 
provider, did not have adequate
measures in place to deal with the attack, fundamental measures like 
geo-blocking. It's a bloody disgrace!


IBMs reputation is already in tatters in Australia after the Queensland 
government health payroll disaster. The Queensland government is still 
refusing to budge on a
sector-wide ban on new contracts with IBM and who can blame them. After 
this fiasco their brand is toxic. This is a company who government and 
the private sector
would 100% trust to get the job done with integrity. Unfortunately, 
those days are past now. Too many high profile failures and accusations 
of underhand dealing have
ruined their credibility down here 
http://www.itnews.com.au/news/ibm-should-never-have-been-appointed-finds-qld-payroll-inquiry-352362.


Maybe what IBM needs is a change in leadership.


On 10/08/2016 12:37 PM, Edward Gould wrote:

http://www.theregister.co.uk/2016/08/09/australian_census_slips_in_the_ibm_cloud/
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


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

Re: Enterprise COBOL API for dynamic capacity tables

[David Crayford]

On 11/08/2016 8:44 AM, Frank Swarbrick wrote:

The video specifically noted that fork does work...!


Yes, but I take that with a pinch of salt because there's no Windows API 
call that performs a real fork. There are similar functions to spawn() 
but nothing that does CoW like fork().
Microsoft had an experimental Windows port of Redis a year or so ago and 
that was the issue that made it not production ready.





From: IBM Mainframe Discussion List  on behalf of David 
Crayford 
Sent: Wednesday, August 10, 2016 5:59 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Enterprise COBOL API for dynamic capacity tables

On 10/08/2016 11:35 PM, Frank Swarbrick wrote:

That "Linux on Windows" thing (not a VM, they point out!) is certainly 
interesting.  Hope it does better than Windows Services for UNIX et al!

Indeed, my mistake. They intercept syscalls and translate them to
Windows API calls. It's like a giant kernel shim. I wonder how to handle
fork()? Windows doesn't support forking which is significant if you want
to run popular open source software like redis.


When Richard Stallman learns of this I imagine he will have a bit to say about 
the terminology.  (https://en.wikipedia.org/wiki/GNU/Linux_naming_controversy)  
It seems to me that this is really GNU user code running on Windows, not Linux 
on Windows, since they specifically say there is no Linux kernel code present, 
and Linux really is only the kernel.

GNU/Linux naming controversy - Wikipedia, the free 
...
en.wikipedia.org
The GNU/Linux naming controversy is a dispute among members of the free and 
open source software community over whether to refer to computer operating 
systems that ...



Microsoft are partnering with Canonical. The Linux subsystem is
effectively and Ubuntu distro without the kernel. Good on them. I've
been running headless linux VM guests under VirtualBox but this much
better as it's integrated.


GNU/Linux naming controversy - Wikipedia, the free 
...
en.wikipedia.org
The GNU/Linux naming controversy is a dispute among members of the free and 
open source software community over whether to refer to computer operating 
systems that ...




From: IBM Mainframe Discussion List  on behalf of David 
Crayford 
Sent: Tuesday, August 9, 2016 7:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Enterprise COBOL API for dynamic capacity tables

I run Git for Windows on my work PC which is very good indeed. It has a
bash shell emulator and a nice GUI. We use SMB on z/OS and map the
network drives on windows, so it's easy to use git from the command line
with the working directory mapping to the zFS file system. It's simple
to push/pull stuff from/to github. We have a private github account and
it's a great platform for development. We use the issue tracking system
to create a backlog of work items. The tooling on github is superb.

I've recently been using a beta version of Windows 10 that has an
integrated Ubuntu Linux VM running so I can use bash natively
https://msdn.microsoft.com/en-us/commandline/wsl/about. It's great, much
[https://sec.ch9.ms/ch9/5db6/8ee786b7-9fc5-45bf-94d0-16ea91765db6/P488_960.jpg]

Bash on Ubuntu on Windows | 
MSDN
msdn.microsoft.com
Announcements Blogs. Mike Harsh's Blog -- Run Bash on Ubuntu on Windows; Scott 
Hanselman's Blog -- Developers Can Run Bash And Usermode Ubuntu Linux ...


better than VirtualBox running VMs or Cygwin. It's a smart move by
Microsoft. All the young kids are working on open source these days and
they all uses macs because of the toolset, bash, homebrew etc. By
integrating a Linux subsystem into Windows they may attract hipster
hackers back the platform. Desktop Linux is ok but it's nowhere near as
polished as iOS or Windows.


On 10/08/2016 1:27 AM, Frank Swarbrick wrote:

Can you clarify?  Do you run 'git' on Windows (I assume) and specify SMB 
folders that actually exist on USS as your local repository (or whatever its 
called)?

Sounds interesting.  Of course we don't use z/OS SMB, so that's an, umm, 
"opportunity".  :-)

Frank

From: IBM Mainframe Discussion List  on behalf of David 
Crayford 
Sent: Tuesday, August 9, 2016 9:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Enterprise COBOL API for dynamic capacity tables

On 9/08/2016 11:49 PM, John McKown wrote:

On Tue, Aug 9, 2016 at 10:40 AM, Frank Swarbrick <
frank.swarbr...@outlook.com> wrote:


Since I developed it at work for work I'll have to ask my employer about
that.  Of course perhaps I should have asked before posting it publicly,
but that's water under 

Re: Enterprise COBOL API for dynamic capacity tables

[Frank Swarbrick]

The video specifically noted that fork does work...!



From: IBM Mainframe Discussion List  on behalf of 
David Crayford 
Sent: Wednesday, August 10, 2016 5:59 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Enterprise COBOL API for dynamic capacity tables

On 10/08/2016 11:35 PM, Frank Swarbrick wrote:
> That "Linux on Windows" thing (not a VM, they point out!) is certainly 
> interesting.  Hope it does better than Windows Services for UNIX et al!

Indeed, my mistake. They intercept syscalls and translate them to
Windows API calls. It's like a giant kernel shim. I wonder how to handle
fork()? Windows doesn't support forking which is significant if you want
to run popular open source software like redis.

> When Richard Stallman learns of this I imagine he will have a bit to say 
> about the terminology.  
> (https://en.wikipedia.org/wiki/GNU/Linux_naming_controversy)  It seems to me 
> that this is really GNU user code running on Windows, not Linux on Windows, 
> since they specifically say there is no Linux kernel code present, and Linux 
> really is only the kernel.
GNU/Linux naming controversy - Wikipedia, the free 
...
en.wikipedia.org
The GNU/Linux naming controversy is a dispute among members of the free and 
open source software community over whether to refer to computer operating 
systems that ...



Microsoft are partnering with Canonical. The Linux subsystem is
effectively and Ubuntu distro without the kernel. Good on them. I've
been running headless linux VM guests under VirtualBox but this much
better as it's integrated.

> GNU/Linux naming controversy - Wikipedia, the free 
> ...
> en.wikipedia.org
> The GNU/Linux naming controversy is a dispute among members of the free and 
> open source software community over whether to refer to computer operating 
> systems that ...
>
>
>
> 
> From: IBM Mainframe Discussion List  on behalf of 
> David Crayford 
> Sent: Tuesday, August 9, 2016 7:29 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Enterprise COBOL API for dynamic capacity tables
>
> I run Git for Windows on my work PC which is very good indeed. It has a
> bash shell emulator and a nice GUI. We use SMB on z/OS and map the
> network drives on windows, so it's easy to use git from the command line
> with the working directory mapping to the zFS file system. It's simple
> to push/pull stuff from/to github. We have a private github account and
> it's a great platform for development. We use the issue tracking system
> to create a backlog of work items. The tooling on github is superb.
>
> I've recently been using a beta version of Windows 10 that has an
> integrated Ubuntu Linux VM running so I can use bash natively
> https://msdn.microsoft.com/en-us/commandline/wsl/about. It's great, much
> [https://sec.ch9.ms/ch9/5db6/8ee786b7-9fc5-45bf-94d0-16ea91765db6/P488_960.jpg]
>
> Bash on Ubuntu on Windows | 
> MSDN
> msdn.microsoft.com
> Announcements Blogs. Mike Harsh's Blog -- Run Bash on Ubuntu on Windows; 
> Scott Hanselman's Blog -- Developers Can Run Bash And Usermode Ubuntu Linux 
> ...
>
>
> better than VirtualBox running VMs or Cygwin. It's a smart move by
> Microsoft. All the young kids are working on open source these days and
> they all uses macs because of the toolset, bash, homebrew etc. By
> integrating a Linux subsystem into Windows they may attract hipster
> hackers back the platform. Desktop Linux is ok but it's nowhere near as
> polished as iOS or Windows.
>
>
> On 10/08/2016 1:27 AM, Frank Swarbrick wrote:
>> Can you clarify?  Do you run 'git' on Windows (I assume) and specify SMB 
>> folders that actually exist on USS as your local repository (or whatever its 
>> called)?
>>
>> Sounds interesting.  Of course we don't use z/OS SMB, so that's an, umm, 
>> "opportunity".  :-)
>>
>> Frank
>> 
>> From: IBM Mainframe Discussion List  on behalf of 
>> David Crayford 
>> Sent: Tuesday, August 9, 2016 9:56 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: Enterprise COBOL API for dynamic capacity tables
>>
>> On 9/08/2016 11:49 PM, John McKown wrote:
>>> On Tue, Aug 9, 2016 at 10:40 AM, Frank Swarbrick <
>>> frank.swarbr...@outlook.com> wrote:
>>>
 Since I developed it at work for work I'll have to ask my employer about
 that.  Of course perhaps I should have asked before posting it publicly,
 but that's water under the bridge now!

 Sidetracking, has anyone used GitHub for z/OS production source
 repository.  Meaning interacting with it directly from the mainframe?  All
 of our distributed 

Re: git on z/OS

[David Crayford]

On 11/08/2016 8:02 AM, John McKown wrote:

On Wed, Aug 10, 2016 at 6:44 PM, David Crayford  wrote:


Looks like Rockets R port is using Enhanced ASCII
http://forum.rocketsoftware.com/t/r-the-language-for-statist
ical-computing-is-now-on-z-os/297.


​I have a friend, ex co-worker, who now works for Rocket. Sounds like a
great place to work. Other than the "good will", I ​don't know why they are
doing these ports, but I'm very grateful for it.



Of course we're all pleased that Rocket are porting good stuff to z/OS 
but it's not all about altruism. IBM have partnered with Rocket for the 
z/OS port of Apache Spark. For Spark on z/OS to be credible you need at 
least Python and almost certainly R for SparkR. For Spark to fly (groan) 
on z/OS you really do need Rockets data virtualization product to access 
legacy data. That's good
news for Rocket. Rocket aren't charging OTC for the Spark DVS, only S 
That sure is a change in business model for a mainframe software vendor.



I really like R, the
little I know of it. If they're listening, a full port of GNU awk would be
fantastic (especially with the networking stuff). Also the Google "Go"
language (may be even more difficult since it specifically says that it
only supports UNICODE)





On 10/08/2016 11:32 PM, Kirk Wolf wrote:


Gil,

You think that Enhanced ASCII support in z/OS is crap?  I've never heard
that before :-)

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

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

On Wed, 10 Aug 2016 08:16:50 -0500, Jerry Callen 

wrote:

[Prompted by mentions of git on another thread]

Rocket is in the process of porting git to z/OS (on USS, of course). As


others have noted, it's challenging, given the ASCII/EBCDIC issues.  ...


http://forum.rocketsoftware.com/c/rocket-z-os-open-source-la
nguages-tools
https://github.com/zorts/pause_release

What would be the obstacles to building it in Enhanced ASCII mode?  I

know
there are many; I've never succeed with anything significantly larger
than
"Hello, World" in Enhanced ASCII.

-- gil

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

--

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


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






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

Re: git on z/OS

[John McKown]

On Wed, Aug 10, 2016 at 6:44 PM, David Crayford  wrote:

> Looks like Rockets R port is using Enhanced ASCII
> http://forum.rocketsoftware.com/t/r-the-language-for-statist
> ical-computing-is-now-on-z-os/297.
>

​I have a friend, ex co-worker, who now works for Rocket. Sounds like a
great place to work. Other than the "good will", I ​don't know why they are
doing these ports, but I'm very grateful for it. I really like R, the
little I know of it. If they're listening, a full port of GNU awk would be
fantastic (especially with the networking stuff). Also the Google "Go"
language (may be even more difficult since it specifically says that it
only supports UNICODE)



>
>
> On 10/08/2016 11:32 PM, Kirk Wolf wrote:
>
>> Gil,
>>
>> You think that Enhanced ASCII support in z/OS is crap?  I've never heard
>> that before :-)
>>
>> Kirk Wolf
>> Dovetailed Technologies
>> http://dovetail.com
>>
>> On Wed, Aug 10, 2016 at 10:26 AM, Paul Gilmartin <
>> 000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>>
>> On Wed, 10 Aug 2016 08:16:50 -0500, Jerry Callen 
>>> wrote:
>>>
>>> [Prompted by mentions of git on another thread]

 Rocket is in the process of porting git to z/OS (on USS, of course). As

>>> others have noted, it's challenging, given the ASCII/EBCDIC issues.  ...
>>>
 http://forum.rocketsoftware.com/c/rocket-z-os-open-source-la
 nguages-tools
 https://github.com/zorts/pause_release

 What would be the obstacles to building it in Enhanced ASCII mode?  I
>>> know
>>> there are many; I've never succeed with anything significantly larger
>>> than
>>> "Hello, World" in Enhanced ASCII.
>>>
>>> -- gil
>>>
>>> --
>>> For IBM-MAIN subscribe / signoff / archive access instructions,
>>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>>
>>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
Klein bottle for rent -- inquire within.

Maranatha! <><
John McKown

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

Re: Enterprise COBOL API for dynamic capacity tables

[David Crayford]

On 10/08/2016 11:35 PM, Frank Swarbrick wrote:

That "Linux on Windows" thing (not a VM, they point out!) is certainly 
interesting.  Hope it does better than Windows Services for UNIX et al!


Indeed, my mistake. They intercept syscalls and translate them to 
Windows API calls. It's like a giant kernel shim. I wonder how to handle 
fork()? Windows doesn't support forking which is significant if you want 
to run popular open source software like redis.



When Richard Stallman learns of this I imagine he will have a bit to say about 
the terminology.  (https://en.wikipedia.org/wiki/GNU/Linux_naming_controversy)  
It seems to me that this is really GNU user code running on Windows, not Linux 
on Windows, since they specifically say there is no Linux kernel code present, 
and Linux really is only the kernel.


Microsoft are partnering with Canonical. The Linux subsystem is 
effectively and Ubuntu distro without the kernel. Good on them. I've 
been running headless linux VM guests under VirtualBox but this much 
better as it's integrated.



GNU/Linux naming controversy - Wikipedia, the free 
...
en.wikipedia.org
The GNU/Linux naming controversy is a dispute among members of the free and 
open source software community over whether to refer to computer operating 
systems that ...




From: IBM Mainframe Discussion List  on behalf of David 
Crayford 
Sent: Tuesday, August 9, 2016 7:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Enterprise COBOL API for dynamic capacity tables

I run Git for Windows on my work PC which is very good indeed. It has a
bash shell emulator and a nice GUI. We use SMB on z/OS and map the
network drives on windows, so it's easy to use git from the command line
with the working directory mapping to the zFS file system. It's simple
to push/pull stuff from/to github. We have a private github account and
it's a great platform for development. We use the issue tracking system
to create a backlog of work items. The tooling on github is superb.

I've recently been using a beta version of Windows 10 that has an
integrated Ubuntu Linux VM running so I can use bash natively
https://msdn.microsoft.com/en-us/commandline/wsl/about. It's great, much
[https://sec.ch9.ms/ch9/5db6/8ee786b7-9fc5-45bf-94d0-16ea91765db6/P488_960.jpg]

Bash on Ubuntu on Windows | 
MSDN
msdn.microsoft.com
Announcements Blogs. Mike Harsh's Blog -- Run Bash on Ubuntu on Windows; Scott 
Hanselman's Blog -- Developers Can Run Bash And Usermode Ubuntu Linux ...


better than VirtualBox running VMs or Cygwin. It's a smart move by
Microsoft. All the young kids are working on open source these days and
they all uses macs because of the toolset, bash, homebrew etc. By
integrating a Linux subsystem into Windows they may attract hipster
hackers back the platform. Desktop Linux is ok but it's nowhere near as
polished as iOS or Windows.


On 10/08/2016 1:27 AM, Frank Swarbrick wrote:

Can you clarify?  Do you run 'git' on Windows (I assume) and specify SMB 
folders that actually exist on USS as your local repository (or whatever its 
called)?

Sounds interesting.  Of course we don't use z/OS SMB, so that's an, umm, 
"opportunity".  :-)

Frank

From: IBM Mainframe Discussion List  on behalf of David 
Crayford 
Sent: Tuesday, August 9, 2016 9:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Enterprise COBOL API for dynamic capacity tables

On 9/08/2016 11:49 PM, John McKown wrote:

On Tue, Aug 9, 2016 at 10:40 AM, Frank Swarbrick <
frank.swarbr...@outlook.com> wrote:


Since I developed it at work for work I'll have to ask my employer about
that.  Of course perhaps I should have asked before posting it publicly,
but that's water under the bridge now!

Sidetracking, has anyone used GitHub for z/OS production source
repository.  Meaning interacting with it directly from the mainframe?  All
of our distributed development groups use it, and it might be nice if we
could use it as well.


Just as a personal observation, I'd think that this would be difficult.
Someone would need to port the "git" command to z/OS. And that would likely
be a major undertaking since it uses the GNU tools to do a lot of it's
setup. It may also depend on some gcc (GNU compiler) specific
functionality. And, even if it is ported, there is the historic ASCII (UTF
actually) vs EBCDIC dilemma. You wouldn't believe the number of problems
I've read about due to the Windows CRLF vs UNIX LF-only line ending causing
"problems".


I use git for z/OS UNIX stuff via SMB and it works well from a PC shell.
A script that mirrors PDS libraries should work.


Frank



--
For IBM-MAIN 

Re: How does COBOL detect a recursive call?

[John McKown]

On Wed, Aug 10, 2016 at 4:04 PM, Bill Woodger 
wrote:

> Thanks, Chuck. Tough sitch.
>
> I think as definitive as you are going to get, in a documentary sense, is
> this, from the Programming Guide (doesn't matter which version):
>
> "Calling alternate entry points
>
> Static calls to alternate entry points work without restriction."
>
> I made a static CALL to an ENTRY in the same program (without IS RECURSIVE
> on the PROGRAM-ID), and it failed with "IGZ0064S A recursive call to active
> program STAB48 in compilation unit STAB48 was attempted." (Note that the
> message reports for the PROGRAM-ID name, not the ENTRY name).
>
> Since this does not work "without restriction" for an ENTRY then I
> conclude that a CALL to an ENTRY within the same program is not valid,
> although not explicitly documented as either valid nor invalid.
>
> With the static CALL, using IS RECURSIVE does prevent the IGZ0064S, but
> that would count as a "restriction" to my mind - "must use IS RECURSIVE if
> CALLing an ENTRY in the from the same program which contains the ENTRY".
>
> I think I've convinced myself that although it can be made to work, after
> a fashion, (IS RECURSIVE) it is not designed to work, so may break when the
> compiler changes.
>
> And with all those little things it needs to get it to approximately work,
> when someone misses one or more of those in the future they are going to
> waste a lot of time working out what has happened, and how to fix it, and
> why.
>

​Hum, I would guess this will be a case of "20 lines of code and 200 lines
of comments (excluding cursing)"​



>
> That's as close as I can get to what I think you want :-) Good luck!
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
Klein bottle for rent -- inquire within.

Maranatha! <><
John McKown

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

Re: git on z/OS

[David Crayford]

Looks like Rockets R port is using Enhanced ASCII 
http://forum.rocketsoftware.com/t/r-the-language-for-statistical-computing-is-now-on-z-os/297.



On 10/08/2016 11:32 PM, Kirk Wolf wrote:

Gil,

You think that Enhanced ASCII support in z/OS is crap?  I've never heard
that before :-)

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

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


On Wed, 10 Aug 2016 08:16:50 -0500, Jerry Callen 
wrote:


[Prompted by mentions of git on another thread]

Rocket is in the process of porting git to z/OS (on USS, of course). As

others have noted, it's challenging, given the ASCII/EBCDIC issues.  ...

http://forum.rocketsoftware.com/c/rocket-z-os-open-source-languages-tools
https://github.com/zorts/pause_release


What would be the obstacles to building it in Enhanced ASCII mode?  I know
there are many; I've never succeed with anything significantly larger than
"Hello, World" in Enhanced ASCII.

-- gil

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


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


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

Re: Delta Outage

[Edward Finnell]

 
Which company had their primary in the South tower and the backup in the  
North tower?
 
Anyway, preliminary reports are Murphy paid a visit. Switches that were  
supposed to switch didn't. UPS got confused in the switch gear failure and 
went  to hover mode. The Smart phone ecosystem got out of sync and
the roll back discarded point in time transactions.
 
One of hardest courses I took in college 'Electrical Network Theory' I  
wanna say Balabanian and Wo but it's been too long. The tough ol' Prof started  
out with this will be hard and I will make you work but I can give you 
examples  where it saves lives and decreases chances of outages.
 
It's basically what we recognize as single point of failure. Using  
'cut-set'  theory on nodes or components can figure out what will die under  
what 
circumstances. From an onlookers perspective you'd think in this day and  age 
the FAA would do 'operational reviews' of airline IT systems like the Fed  
does 'stress tests' for banks.
 
Many of my friends are saying they're so disenfranchised by the current  
political climate they're not voting.
My argument is your right to vote has been paid for on the battlefields of  
this earth with sweat and blood. Something so valuable shouldn't be 
discarded.  Vote for Senators, Representatives, Governors, Mayors that will 
benefit 
 issues you feel close to, but Vote.  

 
 
In a message dated 8/10/2016 4:37:34 P.M. Central Daylight Time,  
edja...@phoenixsoftware.com writes:


Many  major players had inadequate DRPs and BRPs on 9/11 and the IT 
industry has  learned a lot since that time.

Whatever happened to Delta, let's hope  it becomes a "teachable" moment 
for everyone that isn't overshadowed by  finger pointing or jumping on 
soapboxes by those who wish to espouse some  ridiculous political or 


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

Re: Delta Outage

[Steve Beaver]

Whoever their outsourcer is they need to be sued into non-existence for
incompetence?  The revenue loss had to be massive.

Reminds me after HPE acquired Perrot (old name) they laid-off all the heavy
mainframe people and over XMAS 2009 they had to do some upgrader to the RBS
Data Center in the West End of London and took the Center down for 18 hours
and no CC or ATM transactions could be processed for all of Europe


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of August Carideo/RYE/US
Sent: Wednesday, August 10, 2016 4:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Delta Outage

Some more interesting news on Delta

http://www.cringely.com/ 

here is some of the article
Delta Airlines was an IBM outsourcing customer, they may still be today, I
don't know. They haven't returned my call.

Loss of power in a data center usually triggers a disaster recovery plan.
When that happens you have two basic choices: switch to your backup systems
somewhere else or fix the outage and recover your primary systems. The
problem with going to backup systems is those backups usually do not have
capacity for 100 percent of the workload so only the most critical functions
are moved. Then once everything is fixed you have to move your workload back
to your production systems. That is often high risk, a major pain, and takes
a lot of effort. So in a traditional disaster recovery setup, the preference
will always be to recover the primary services.

Anything less than a 100 percent service backup isn't disaster recovery, it
is disaster coping.

Now if the IT support team is thousands of miles away, offshore, the process
for restarting hundreds - perhaps thousands - of systems can be slow and
painful. If you lose the data link between your support team and the data
center due to that same power outage your support team can do nothing until
the data link is fixed.

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

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

Re: Delta Outage

[Ed Jaffe]

On 8/10/2016 2:00 PM, Jesse 1 Robinson wrote:

No planes fell out of Delta's sky. It was the reservation system that crashed; 
I doubt that the FAA has much to say in that arena.


Exactly. And, the removal of airfare price fixing 38 years ago had no 
bearing on it either. IJS.


Once the dust settles, we'll know _exactly_ what went wrong at Delta and 
why. If you're not following Twitter, you should be aware there are 
already folks trying to make Delta's mainframe the scapegoat.


Many major players had inadequate DRPs and BRPs on 9/11 and the IT 
industry has learned a lot since that time.


Whatever happened to Delta, let's hope it becomes a "teachable" moment 
for everyone that isn't overshadowed by finger pointing or jumping on 
soapboxes by those who wish to espouse some ridiculous political or 
computer platform ideology...


--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

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

Re: Delta Outage

[Anne & Lynn Wheeler]

jesse1.robin...@sce.com (Jesse 1 Robinson) writes:
> Airlines are no longer 'heavily regulated'. They used to be. Telecom
> was deregulated. Banks were deregulated. There was more competition in
> all these industries when regulation was in place. The 'natural
> tendency' of any industry is to consolidate to maximize profits and to
> dodge regulatory intervention. That's why Delta is so big and
> independent. And so unaccountable.
>
> So it's cheaper to fly than ever before. Whoopee. This is what we get
> for lower fares.

1st part of 90s (after I had left IBM), I was brought into the largest
airline res system to look at the ten impossible things that they
couldn't do. It turns out it was a mainframe implementation left over
from a 1960s paradigm. With significant change in technology over 30yrs
... it was possible to adopt totally different paradigm.  After a couple
months, I came back with a different implementation (for routes ... find
flts for person to get from A-to-B), that was implemented on ten
RS6000/990s ... ran 100 times faster, could handle all transactions for
all airlines in the world and implemented all ten impossible
things. They then wrung their hands for 6-12 months and finally said
that they hadn't intended that I fix the ten impossible things (many
because they were still using 60s paradigm requiring large staff to
supplement/complement), they said they just wanted to tell the board
that I was working on it (for next 5yrs, they hadn't planned on I would
actually do it).

Now they had reorged things so that the airline operations and the
airline reservation system were in different subsidiaries with nearly
all the profit booked in the res subsidiary ... airline operations was
loosing money at the time, but the res subsidiary was making such large
profits ... the parent company showed significant overall profit.

Large human intensive operations were doing things like that starting in
the 80s ... moving profit out of human intensive operations into
subsidiary that had much fewer number of humans.

Last decade a new twist was added ... moving the subsidiary where the
profit is booked, into a tax haven where tax rate had been negotiated to
be nearly zero. The poster child is large equipment manufacture that
built and sold to customers in the US. They created distribution
subsidiary in an over seas tax haven, paper "transfer" US built
equipment to the (offshore) distribution subsidiary at cost, which then
sells to US customers and the profit is all booked offshore (and the US
manufacturing plant still ships directly to US customers). some more
scenarios here:
https://www.icij.org/project/luxembourg-leaks

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

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

Delta Outage

[August Carideo/RYE/US]

Some more interesting news on Delta

http://www.cringely.com/ 

here is some of the article
Delta Airlines was an IBM outsourcing customer, they may still be today, I 
don't know. They haven't returned my call.

Loss of power in a data center usually triggers a disaster recovery plan. When 
that happens you have two basic choices: switch to your backup systems 
somewhere else or fix the outage and recover your primary systems. The problem 
with going to backup systems is those backups usually do not have capacity for 
100 percent of the workload so only the most critical functions are moved. Then 
once everything is fixed you have to move your workload back to your production 
systems. That is often high risk, a major pain, and takes a lot of effort. So 
in a traditional disaster recovery setup, the preference will always be to 
recover the primary services.

Anything less than a 100 percent service backup isn't disaster recovery, it is 
disaster coping.

Now if the IT support team is thousands of miles away, offshore, the process 
for restarting hundreds - perhaps thousands - of systems can be slow and 
painful. If you lose the data link between your support team and the data 
center due to that same power outage your support team can do nothing until the 
data link is fixed.

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

Re: Delta Outage

[Jack J. Woehr]

Jesse 1 Robinson wrote:

Point taken. But banks are also still regulated


If one is in need of experts on the US economy and regulatory policy, the IBM-MAIN list is a tremendous resource of 
really great ... computer programmers :)


We now return (hopefully) to the discussion of IBM mainframes.

--
Jack J. Woehr # Science is more than a body of knowledge. It's a way of
www.well.com/~jax # thinking, a way of skeptically interrogating the universe
www.softwoehr.com # with a fine understanding of human fallibility. - Carl Sagan

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

How does COBOL detect a recursive call?

[Bill Woodger]

Thanks, Chuck. Tough sitch.

I think as definitive as you are going to get, in a documentary sense, is this, 
from the Programming Guide (doesn't matter which version): 

"Calling alternate entry points

Static calls to alternate entry points work without restriction."

I made a static CALL to an ENTRY in the same program (without IS RECURSIVE on 
the PROGRAM-ID), and it failed with "IGZ0064S A recursive call to active 
program STAB48 in compilation unit STAB48 was attempted." (Note that the 
message reports for the PROGRAM-ID name, not the ENTRY name).

Since this does not work "without restriction" for an ENTRY then I conclude 
that a CALL to an ENTRY within the same program is not valid, although not 
explicitly documented as either valid nor invalid.

With the static CALL, using IS RECURSIVE does prevent the IGZ0064S, but that 
would count as a "restriction" to my mind - "must use IS RECURSIVE if CALLing 
an ENTRY in the from the same program which contains the ENTRY".

I think I've convinced myself that although it can be made to work, after a 
fashion, (IS RECURSIVE) it is not designed to work, so may break when the 
compiler changes.

And with all those little things it needs to get it to approximately work, when 
someone misses one or more of those in the future they are going to waste a lot 
of time working out what has happened, and how to fix it, and why.

That's as close as I can get to what I think you want :-) Good luck!

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

Re: Delta Outage

[Jesse 1 Robinson]

Point taken. But banks are also still regulated despite their (no longer so 
new) freedom to gobble each other up willy nilly. So then we had the financial 
meltdown of 2008/9. My point is that a shrinking number of players in these 
industries are now freer to put their *business* interests ahead of their 
customers' interests. No planes fell out of Delta's sky. It was the reservation 
system that crashed; I doubt that the FAA has much to say in that arena.

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


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: Wednesday, August 10, 2016 12:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Delta Outage

On 8/10/2016 11:34 AM, Jesse 1 Robinson wrote:
> Airlines are no longer 'heavily regulated'. They used to be. Telecom was 
> deregulated. Banks were deregulated. There was more competition in all these 
> industries when regulation was in place. The 'natural tendency' of any 
> industry is to consolidate to maximize profits and to dodge regulatory 
> intervention. That's why Delta is so big and independent. And so 
> unaccountable.

Airlines are still *very* heavily regulated by the FAA. The Airline 
"deregulation" of 1978 was primarily the removal of government-imposed entry 
and price restrictions.

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/


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

Re: Delta Outage

[Ed Jaffe]

On 8/10/2016 11:34 AM, Jesse 1 Robinson wrote:

Airlines are no longer 'heavily regulated'. They used to be. Telecom was 
deregulated. Banks were deregulated. There was more competition in all these 
industries when regulation was in place. The 'natural tendency' of any industry 
is to consolidate to maximize profits and to dodge regulatory intervention. 
That's why Delta is so big and independent. And so unaccountable.


Airlines are still *very* heavily regulated by the FAA. The Airline 
"deregulation" of 1978 was primarily the removal of government-imposed 
entry and price restrictions.


--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

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

Re: Delta Outage

[Jesse 1 Robinson]

Airlines are no longer 'heavily regulated'. They used to be. Telecom was 
deregulated. Banks were deregulated. There was more competition in all these 
industries when regulation was in place. The 'natural tendency' of any industry 
is to consolidate to maximize profits and to dodge regulatory intervention. 
That's why Delta is so big and independent. And so unaccountable. 

So it's cheaper to fly than ever before. Whoopee. This is what we get for lower 
fares. 

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

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kirk Wolf
Sent: Wednesday, August 10, 2016 10:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Delta Outage

Regardless of the technology choice, it would be nice if there were enough 
competition in the US airline industry such that you could choose an airline 
with a hot DR plan that they regularly exercise.

IMO this is evidence that the heavy regulatory environment is of little actual 
value.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Wed, Aug 10, 2016 at 11:32 AM, Jesse 1 Robinson 
wrote:

> The most telling detail I've seen is that the Delta 'system', whatever 
> that entails, encompasses 500 servers! Of those, 400 came up early-ish 
> on, but 100 others proved obstreperous. OK, folks here have 
> cited--even boasted about--nearly transparent DR failover. Really? Can 
> anyone on this list actually perform a complete DR with 500 servers to 
> another location in less time than it would (presumably) take to get 
> all 500 back up in their native location? We're not talking here about 
> a well-configured mainframe. This is a massive number of weenie-ware 
> gizmos that all have to talk to each other in perfect harmony. Somewhere else.
>
> If so, you are gods. I stand ready to be awed.
>
> .
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-302-7535 Office
> robin...@sce.com
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Vernooij, Kees (ITOPT1) - KLM
> Sent: Tuesday, August 09, 2016 11:49 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: (External):Re: Delta Outage
>
> Dutch television had the info that passengers were in trouble because 
> their data was lost in the disaster. If true, this is of course 
> totally unacceptable for such a company, whatever the disaster.
>
> Kees.
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Gerhard Adam
> Sent: 09 August, 2016 18:06
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Delta Outage
>
> Apparently there are 500 servers involved.  I have my own speculations 
> as to why they didn't declare a disaster.
>
> As a result, the outage was extended because it appears to be taking 
> them in excess of 12 hours to reboot everything.
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Steve Beaver
> Sent: Tuesday, August 9, 2016 8:41 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Delta Outage
>
> Then WHY did they not initiate their DR and move all systems to the 
> HOT Site.  I just finished putting in a System that has a RTO=RPO=0
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Gerhard Adam
> Sent: Tuesday, August 9, 2016 10:17 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Delta Outage
>
> From what I understand, it isn't a simple power outage, but rather a 
> fire in the data center.
>
> http://arstechnica.com/business/2016/08/data-center-
> disaster-disrupts-delta-
> airlines/
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Steve Beaver
> Sent: Tuesday, August 9, 2016 8:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Delta Outage
>
> I live in Texas and we have ERCOT, and Texas produces more wind energy 
> than
> 3 countries.  And Texas has NO Interconnects To other grids.
>
> It its reprehensible that Delta does not have enough battery power and 
> gen-sets to cover the screw-ups by Atlanta Power. AA is in  Irving and 
> unless there is a major storm in that area does not lose


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

Re: Delta Outage

[Gerhard Adam]

Again, I'm skeptical.  There were reports of bad information being displayed
on monitors and notifications sent to customers.

How does bad information get sent from systems that aren't up yet?   This
suggests that the start-up process itself is seriously flawed and that there
is little data integrity in the environment when this kind of stuff can be
sent on a network with no verification as to what is being sent.

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

Re: Delta Outage

[Kirk Wolf]

Regardless of the technology choice, it would be nice if there were enough
competition in the US airline industry such that you could choose an
airline with a hot DR plan that they regularly exercise.

IMO this is evidence that the heavy regulatory environment is of little
actual value.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Wed, Aug 10, 2016 at 11:32 AM, Jesse 1 Robinson 
wrote:

> The most telling detail I've seen is that the Delta 'system', whatever
> that entails, encompasses 500 servers! Of those, 400 came up early-ish on,
> but 100 others proved obstreperous. OK, folks here have cited--even boasted
> about--nearly transparent DR failover. Really? Can anyone on this list
> actually perform a complete DR with 500 servers to another location in less
> time than it would (presumably) take to get all 500 back up in their native
> location? We're not talking here about a well-configured mainframe. This is
> a massive number of weenie-ware gizmos that all have to talk to each other
> in perfect harmony. Somewhere else.
>
> If so, you are gods. I stand ready to be awed.
>
> .
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-302-7535 Office
> robin...@sce.com
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Vernooij, Kees (ITOPT1) - KLM
> Sent: Tuesday, August 09, 2016 11:49 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: (External):Re: Delta Outage
>
> Dutch television had the info that passengers were in trouble because
> their data was lost in the disaster. If true, this is of course totally
> unacceptable for such a company, whatever the disaster.
>
> Kees.
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Gerhard Adam
> Sent: 09 August, 2016 18:06
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Delta Outage
>
> Apparently there are 500 servers involved.  I have my own speculations as
> to why they didn't declare a disaster.
>
> As a result, the outage was extended because it appears to be taking them
> in excess of 12 hours to reboot everything.
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Steve Beaver
> Sent: Tuesday, August 9, 2016 8:41 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Delta Outage
>
> Then WHY did they not initiate their DR and move all systems to the HOT
> Site.  I just finished putting in a System that has a RTO=RPO=0
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Gerhard Adam
> Sent: Tuesday, August 9, 2016 10:17 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Delta Outage
>
> From what I understand, it isn't a simple power outage, but rather a fire
> in the data center.
>
> http://arstechnica.com/business/2016/08/data-center-
> disaster-disrupts-delta-
> airlines/
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Steve Beaver
> Sent: Tuesday, August 9, 2016 8:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Delta Outage
>
> I live in Texas and we have ERCOT, and Texas produces more wind energy than
> 3 countries.  And Texas has NO Interconnects To other grids.
>
> It its reprehensible that Delta does not have enough battery power and
> gen-sets to cover the screw-ups by Atlanta Power. AA is in  Irving and
> unless there is a major storm in that area does not lose
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Delta Outage

[Jesse 1 Robinson]

The most telling detail I've seen is that the Delta 'system', whatever that 
entails, encompasses 500 servers! Of those, 400 came up early-ish on, but 100 
others proved obstreperous. OK, folks here have cited--even boasted 
about--nearly transparent DR failover. Really? Can anyone on this list actually 
perform a complete DR with 500 servers to another location in less time than it 
would (presumably) take to get all 500 back up in their native location? We're 
not talking here about a well-configured mainframe. This is a massive number of 
weenie-ware gizmos that all have to talk to each other in perfect harmony. 
Somewhere else. 

If so, you are gods. I stand ready to be awed. 

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

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Vernooij, Kees (ITOPT1) - KLM
Sent: Tuesday, August 09, 2016 11:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Delta Outage

Dutch television had the info that passengers were in trouble because their 
data was lost in the disaster. If true, this is of course totally unacceptable 
for such a company, whatever the disaster.

Kees.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gerhard Adam
Sent: 09 August, 2016 18:06
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Delta Outage

Apparently there are 500 servers involved.  I have my own speculations as to 
why they didn't declare a disaster.

As a result, the outage was extended because it appears to be taking them in 
excess of 12 hours to reboot everything.



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Beaver
Sent: Tuesday, August 9, 2016 8:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Delta Outage

Then WHY did they not initiate their DR and move all systems to the HOT Site.  
I just finished putting in a System that has a RTO=RPO=0 

 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gerhard Adam
Sent: Tuesday, August 9, 2016 10:17 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Delta Outage

>From what I understand, it isn't a simple power outage, but rather a fire in 
>the data center.

http://arstechnica.com/business/2016/08/data-center-disaster-disrupts-delta-
airlines/



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Beaver
Sent: Tuesday, August 9, 2016 8:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Delta Outage

I live in Texas and we have ERCOT, and Texas produces more wind energy than
3 countries.  And Texas has NO Interconnects To other grids.  

It its reprehensible that Delta does not have enough battery power and gen-sets 
to cover the screw-ups by Atlanta Power. AA is in  Irving and unless there is a 
major storm in that area does not lose 

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

Re: git on z/OS

[Paul Gilmartin]

On Wed, 10 Aug 2016 10:32:03 -0500, Kirk Wolf wrote:
>
>You think that Enhanced ASCII support in z/OS is crap?  I've never heard
>that before :-)
> 
You mean I forgot to tell you?

It would be somewhat better if the RTL had support for Curses and X11.

>> >Rocket is in the process of porting git to z/OS (on USS, of course). As
>> others have noted, it's challenging, given the ASCII/EBCDIC issues.  ...
>> >
I hate EBCDIC!

-- gil

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

Re: Interesting C library file open mis-diagnosis

[Paul Gilmartin]

On Wed, 10 Aug 2016 09:30:14 -0400, Steve Smith wrote:

>e.g.:
>ld -V -brent -o "//'USER.TEST.LOAD(TEST1)'" ...
> 
Thanks.  Will c99 or xlc or whatever pseudonym cc is hiding under
nowadays pass this on to ld?

>> But does anyone know how to cause "make" to direct its program object output
>> to a PDSE rather than a UNIX directory?

Thanks again,
gil

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

Re: Enterprise COBOL API for dynamic capacity tables

[Frank Swarbrick]

That "Linux on Windows" thing (not a VM, they point out!) is certainly 
interesting.  Hope it does better than Windows Services for UNIX et al!

When Richard Stallman learns of this I imagine he will have a bit to say about 
the terminology.  (https://en.wikipedia.org/wiki/GNU/Linux_naming_controversy)  
It seems to me that this is really GNU user code running on Windows, not Linux 
on Windows, since they specifically say there is no Linux kernel code present, 
and Linux really is only the kernel.
GNU/Linux naming controversy - Wikipedia, the free 
...
en.wikipedia.org
The GNU/Linux naming controversy is a dispute among members of the free and 
open source software community over whether to refer to computer operating 
systems that ...




From: IBM Mainframe Discussion List  on behalf of 
David Crayford 
Sent: Tuesday, August 9, 2016 7:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Enterprise COBOL API for dynamic capacity tables

I run Git for Windows on my work PC which is very good indeed. It has a
bash shell emulator and a nice GUI. We use SMB on z/OS and map the
network drives on windows, so it's easy to use git from the command line
with the working directory mapping to the zFS file system. It's simple
to push/pull stuff from/to github. We have a private github account and
it's a great platform for development. We use the issue tracking system
to create a backlog of work items. The tooling on github is superb.

I've recently been using a beta version of Windows 10 that has an
integrated Ubuntu Linux VM running so I can use bash natively
https://msdn.microsoft.com/en-us/commandline/wsl/about. It's great, much
[https://sec.ch9.ms/ch9/5db6/8ee786b7-9fc5-45bf-94d0-16ea91765db6/P488_960.jpg]

Bash on Ubuntu on Windows | 
MSDN
msdn.microsoft.com
Announcements Blogs. Mike Harsh's Blog -- Run Bash on Ubuntu on Windows; Scott 
Hanselman's Blog -- Developers Can Run Bash And Usermode Ubuntu Linux ...


better than VirtualBox running VMs or Cygwin. It's a smart move by
Microsoft. All the young kids are working on open source these days and
they all uses macs because of the toolset, bash, homebrew etc. By
integrating a Linux subsystem into Windows they may attract hipster
hackers back the platform. Desktop Linux is ok but it's nowhere near as
polished as iOS or Windows.


On 10/08/2016 1:27 AM, Frank Swarbrick wrote:
> Can you clarify?  Do you run 'git' on Windows (I assume) and specify SMB 
> folders that actually exist on USS as your local repository (or whatever its 
> called)?
>
> Sounds interesting.  Of course we don't use z/OS SMB, so that's an, umm, 
> "opportunity".  :-)
>
> Frank
> 
> From: IBM Mainframe Discussion List  on behalf of 
> David Crayford 
> Sent: Tuesday, August 9, 2016 9:56 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Enterprise COBOL API for dynamic capacity tables
>
> On 9/08/2016 11:49 PM, John McKown wrote:
>> On Tue, Aug 9, 2016 at 10:40 AM, Frank Swarbrick <
>> frank.swarbr...@outlook.com> wrote:
>>
>>> Since I developed it at work for work I'll have to ask my employer about
>>> that.  Of course perhaps I should have asked before posting it publicly,
>>> but that's water under the bridge now!
>>>
>>> Sidetracking, has anyone used GitHub for z/OS production source
>>> repository.  Meaning interacting with it directly from the mainframe?  All
>>> of our distributed development groups use it, and it might be nice if we
>>> could use it as well.
>>>
>> Just as a personal observation, I'd think that this would be difficult.
>> Someone would need to port the "git" command to z/OS. And that would likely
>> be a major undertaking since it uses the GNU tools to do a lot of it's
>> setup. It may also depend on some gcc (GNU compiler) specific
>> functionality. And, even if it is ported, there is the historic ASCII (UTF
>> actually) vs EBCDIC dilemma. You wouldn't believe the number of problems
>> I've read about due to the Windows CRLF vs UNIX LF-only line ending causing
>> "problems".
>>
> I use git for z/OS UNIX stuff via SMB and it works well from a PC shell.
> A script that mirrors PDS libraries should work.
>
>>> Frank
>>>
>>>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive 

Re: git on z/OS

[Kirk Wolf]

Gil,

You think that Enhanced ASCII support in z/OS is crap?  I've never heard
that before :-)

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

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

> On Wed, 10 Aug 2016 08:16:50 -0500, Jerry Callen 
> wrote:
>
> >[Prompted by mentions of git on another thread]
> >
> >Rocket is in the process of porting git to z/OS (on USS, of course). As
> others have noted, it's challenging, given the ASCII/EBCDIC issues.  ...
> >
> >http://forum.rocketsoftware.com/c/rocket-z-os-open-source-languages-tools
> >https://github.com/zorts/pause_release
> >
> What would be the obstacles to building it in Enhanced ASCII mode?  I know
> there are many; I've never succeed with anything significantly larger than
> "Hello, World" in Enhanced ASCII.
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: git on z/OS

[Paul Gilmartin]

On Wed, 10 Aug 2016 08:16:50 -0500, Jerry Callen  wrote:

>[Prompted by mentions of git on another thread]
>
>Rocket is in the process of porting git to z/OS (on USS, of course). As others 
>have noted, it's challenging, given the ASCII/EBCDIC issues.  ...
>
>http://forum.rocketsoftware.com/c/rocket-z-os-open-source-languages-tools
>https://github.com/zorts/pause_release
>
What would be the obstacles to building it in Enhanced ASCII mode?  I know
there are many; I've never succeed with anything significantly larger than
"Hello, World" in Enhanced ASCII.

-- gil

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

Re: git on z/OS

[Kirk Wolf]

Ed -

to clarify - your clients all have the git remote repo mounted with SMB and
then they use the "Local Protocol" ?

This is fine for some environments, but giving everyone r/w mounts to the
repo file system can be a little dangerous.
(for git connection protocols, see:
https://git-scm.com/book/en/v2/Git-on-the-Server-The-Protocols  )

Therefore I would think that it would be nice for many to have a git server
port for z/OS that would run with the ssh protocol.

Then again, for many I wouldn't see a huge benefit to having a git server
on z/OS at all.   The server could be anywhere that is vigorously secure
and backed up.


Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Wed, Aug 10, 2016 at 9:28 AM, Ed Jaffe 
wrote:

> On 8/10/2016 6:16 AM, Jerry Callen wrote:
>
>> Meanwhile: I use git with z/OS using the "large sledgehammer" approach. I
>> keep my actual git repositories on Windows and use WinSCP to periodically
>> copy the source back and forth between Windows and z/OS.
>>
>
> We maintain our git repositories on z/OS via the SMB server.
>
> --
> Edward E Jaffe
> Phoenix Software International, Inc
> 831 Parkview Drive North
> El Segundo, CA 90245
> http://www.phoenixsoftware.com/
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: git on z/OS

[Ed Jaffe]

On 8/10/2016 6:16 AM, Jerry Callen wrote:

Meanwhile: I use git with z/OS using the "large sledgehammer" approach. I keep 
my actual git repositories on Windows and use WinSCP to periodically copy the source back 
and forth between Windows and z/OS.


We maintain our git repositories on z/OS via the SMB server.

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

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

Re: Interesting C library file open mis-diagnosis

[Steve Smith]

e.g.:
ld -V -brent -o "//'USER.TEST.LOAD(TEST1)'" ...

sas

On Mon, Aug 8, 2016 at 9:47 PM, Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Mon, 8 Aug 2016 14:01:33 -0700, Charles Mills wrote:
>
> >> Was there a job log message, S213-rc identifying the catenand?
> >
> >15.52.57 JOB01527  IEC141I 013-18,IGG0191B,xxPL,
> PLKED,ASSEMOBJ-0009,1D41,LS050A,  325
> >   325 DATASET.NAME(CZAISAUT)
> >
> >When I spotted that I figured out the problem. But I started out looking
> at the program (PLINK) listing. When a program says "this is my problem" it
> ought to know what it's talking about, right?
> >
> Nah.  Just look up that IEC141I in M that will tell you what the "-0009"
> means,
> and try to remember than catenands are numbered starting from 0, not 1 (I
> think;
> how unlike IBM.  And it should really be "+", not "-".)
>
> Actually, it's just their subtle way of telling you that C programs should
> be built
> using UNIX facilities, not JCL.
>
> But does anyone know how to cause "make" to direct its program object
> output
> to a PDSE rather than a UNIX directory?
>
> But what I'd like even more is to see that UNIX directory supported as a
> catenand in STEPLIB.
>
> And another of my favorites:
> user@OS/390.25.00: rexx "say BPXWDYN( 'alloc path(''/tmp/wombat'')
> msg(2)' )"
> IKJ56228I PATH /tmp/wombat NOT IN CATALOG OR CATALOG CAN NOT BE
> ACCESSED
> -32745
>
> CATALOG?  I suppose the less you know, the easier it is to understand what
> it means.
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
sas

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

Re: How does COBOL detect a recursive call?

[John McKown]

On Tue, Aug 9, 2016 at 5:52 PM, Bill Woodger  wrote:

> OK, it is the RENT or REUS (either will do) on the link-edit/bindering.
>
> Without RENT/REUS you get a new executable for free. With RENT/REUS you
> get to "share" the original program, but it is necessarily a "recursive"
> use, so you get the "IGZ0064S A recursive call to active program..."
> message. Which is why IBM say you must CANCEL before the CALL to the ENTRY,
> which you can't do if the CALL is to an ENTRY in the same program.
> PROGRAM-ID ... IS RECURSIVE "gets around" the IGZ0064S, so there won't be a
> second condition, which causes another, and another. So LE will be happy.
>

​Ah, so my OCD about making everything RENT/REFR has risen up to bite me in
the butt.​



>
> So, you've discovered a way to nearly get a CALL to an ENTRY point with an
> ALIAS to work like it used to :-)
>
> However, there is overhead. The recursive CALL will share WORKING-STORAGE,
> but pretty much everything else will be initialised on each CALL, and then
> all thrown away on each GOBACK (since it is not actually recursing). For a
> one-shot use, this will not matter.
>
> Safe to use? Well, understanding how it works/doesn't work wasn't easy for
> me :-)
>
> Here's an example of the generated code from the COBOL compiler showing
> the recursion checking:
>
> ICM   2,15,336(9) IPCB=1+16
> L 11,40(0,12) PBL=1
> BC8,210(0,11) GN=6(0002E6)
> L 3,92(0,9)   TGTFIXD+92
> L 15,244(0,3) V(IGZCMSG )
> LA1,206(0,10) PGMLIT AT +202
> BASR  14,15
>
> PGMLIT AT +202 is X'40', which is the 64 for the IGZ message.
>
> There is similar code generated for an ENTRY.
>
> And here's the code from the GOBACK clearing up to say things will be OK
> for another CALL:
>
> L 3,336(0,9)  IPCB=1+16
> S 3,0(0,12)   SYSLIT AT +0
> ST3,336(0,9)  IPCB=1+16
>
>
>
​I really appreciate the time and effort you've taken to look into this and
explain it to me. I now know enough to be really dangerous! :-)​



-- 
Klein bottle for rent -- inquire within.

Maranatha! <><
John McKown

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

git on z/OS

[Jerry Callen]

[Prompted by mentions of git on another thread]

Rocket is in the process of porting git to z/OS (on USS, of course). As others 
have noted, it's challenging, given the ASCII/EBCDIC issues. Nonetheless, we 
hope to have a public beta available by the end of the year; it will be 
announced on Rocket's open source forum at:

http://forum.rocketsoftware.com/c/rocket-z-os-open-source-languages-tools

At least initially (and, I suspect, forever...), it will only support USS 
files, not MVS datasets (that's a whole nother kettle 'o fish...).

Meanwhile: I use git with z/OS using the "large sledgehammer" approach. I keep 
my actual git repositories on Windows and use WinSCP to periodically copy the 
source back and forth between Windows and z/OS. Crude, but functional. Once on 
Windows, I can push/pull github repos. Look here for a repos containing z/OS 
source: 

https://github.com/zorts/pause_release

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

Re: How does COBOL detect a recursive call?

[Hardee, Chuck]

The wherefores of using a main program and an ENTRY versus 2 programs is a 
political battle I am not prepared or willing to fight.
When initially assigned this project I was hoping that my Systems status within 
the company would grant me some carte blanche in how I engineered the solution 
but, alas, I was mistaken.

Suffice it to say, until/unless I find a technical problem to warrant the 
multiple program construct, or even the multiple programs per member construct, 
I am stuck with using the COBOL language verbs as they have been engineered. 
If, and when, they fail to function, I will have the ammunition I need to push 
for one of the other programming constructs.

I do appreciate all of your narratives of what was occurring.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Wednesday, August 10, 2016 6:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: How does COBOL detect a recursive call?

Hi Chuck,

Thanks. Yes, I was able to recreate the issue after making the post with the 
questions in. 

RENT,REUS or REUS or RENT, ie any combinaton, on the linkediting/bindering 
causes no new executable to be loaeded in this case, so tha ALIASed ENTRY is in 
the same executable as the CALL.

This causes COBOL to notice that the program has been entered again, before 
control has left the program (entered a subsequent time, prior to a GOBACK). 
This causes the IGZ0064S message to be attempted, which causes the handler 
(ENTRY) to be entered again, which causes (attempts) the IGZ message again, 
until LE reaches its defined limit for the number of "nested" conditions it is 
supposed to be able to deal with (user option).

Making the program RECURSIVE (PROGR-ID.  IS RECURSIVE) effectively removes 
the COBOL check that the program has been subsequently re-entered before a 
GOBACK has been processed, so that handler is not entered a second time.

So, you have a situation which "works", or more than one. Without RENT or REUS 
on the linkedit/bindering, you should get a new executable for the SET for the 
ENTRY and not have a problem with IGZ0064S.

With RENT or REUS and using PROGRAM-ID  IS RECURSIVE you should not have a 
problem, as long as you bear in mind that you are now "sharing" the 
WORKING-STORAGE, and that there are special-registers which you are not 
sharing. 

The IBM-recommended way to use the ENTRY for a dynamic CALL is to use CANCEL 
for the PROGRAM-ID to be able to use the ENTRY and for the ENTRY to be able to 
use the PROGRAM-ID (or another ENTRY). You can't do the CANCEL from *within* 
the program, so that is out.

There are at least two ways that a CALL to an ENTRY within the same program 
*should* be able to be made to work, even though there is no documentation for 
the CALL to an ENTRY within the same program, and I've never heard of it being 
done on the Mainframe, those outline above.

I'd personally feel exposed with "we can kind of get it working, it is not 
straightforward to understand, and isn't documented by IBM".

Note, I've reproduced with an "ordinary" CALL to a an ENTRY, not with an ENTRY 
which is established as a handler.

I'd do it as two programs, unless there is an absolute, paramount, overriding 
reason to do it as one program. It is difficult for me to imagine what that 
reason may be.

You currently have the "already needs a CBL/PROCESS/PARM for NAME(ALIAS), now 
also needs IS RECURSIVE or not to use RENT or REUS on the linkedit/binder".

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

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

Re: How does COBOL detect a recursive call?

[John McKown]

On Wed, Aug 10, 2016 at 12:16 AM, Peter Hunkeler  wrote:

>
>
> > I'm a bit OCD about trying to make all my code RENT,REUS. My main way to
> think of this is "would this still run correctly if it were burned into
> ROM?" I try to make the answer to that YES.​
>
>
> Put all your RENT modules into an APF authorized load library. No AC(1)
> required! The code will be loaded into subpool 252 key 0 storage. It will
> blow up with S0C4-4 if not really reentrant.
>

​That would work. And _I_ can do it, being the senior z/OS sysprog & senior
RACF person (and secondary tape librarian and programmer mentor and ... )
However, in a properly audited shop​, this would likely cause a "conniption
fit" with the auditors. If I am reading the z/OS 2.2 manual correctly, if
you do a "SETPROG REFPROT" command, then all modules which are loaded,
regardless of origin, which are marked REUS(REFR) will be loaded into key 0
storage.
ref:
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ieab100/reus.htm


REFRThe module is refreshable. It can be replaced by a new copy during
execution without changing the sequence or results of processing. A
refreshable module cannot be modified during execution.

A module can only be refreshable if all the control sections within it are
refreshable. The refreshable attribute is negated if any input modules are
not refreshable. Refreshable modules are also reenterable and serially
reusable.

The refreshable attribute can be specified for any nonmodifiable module.

If REFRPROT has been specified on the SETPROG command or in parmlib member
PROGxx, the module is protected from modification by placing it in key 0,
non-fetch protected storage, and page protecting the whole pages. Note that
debuggers, such as TSO TEST and UNIX debugging environments, will override
REFRPROT protection for particular TCBs so that they can modify module
storage in order to set breakpoints.




>
>
> --
> Peter Hunkeler
>
>
-- 
Klein bottle for rent -- inquire within.

Maranatha! <><
John McKown

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

IBM download director

[K]

Hi all 

During last days it seems that I cannot connect to my internet proxy server 
using IBM Download Director. So, I have to select direct connection instead of 
a proxy. Is this a known defect of the latest IBM download director ?

Kind regards

Kostas

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

RFE to consider - ACS routine access to PDSE Info

[Dyck, Lionel B. (TRA)]

Please consider voting for this RFE to expose the PDSE Version and Maxgen info 
in the SMS ACS routines:

http://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe_ID=92818


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


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

How does COBOL detect a recursive call?

[Bill Woodger]

Hi Chuck,

Thanks. Yes, I was able to recreate the issue after making the post with the 
questions in. 

RENT,REUS or REUS or RENT, ie any combinaton, on the linkediting/bindering 
causes no new executable to be loaeded in this case, so tha ALIASed ENTRY is in 
the same executable as the CALL.

This causes COBOL to notice that the program has been entered again, before 
control has left the program (entered a subsequent time, prior to a GOBACK). 
This causes the IGZ0064S message to be attempted, which causes the handler 
(ENTRY) to be entered again, which causes (attempts) the IGZ message again, 
until LE reaches its defined limit for the number of "nested" conditions it is 
supposed to be able to deal with (user option).

Making the program RECURSIVE (PROGR-ID.  IS RECURSIVE) effectively removes 
the COBOL check that the program has been subsequently re-entered before a 
GOBACK has been processed, so that handler is not entered a second time.

So, you have a situation which "works", or more than one. Without RENT or REUS 
on the linkedit/bindering, you should get a new executable for the SET for the 
ENTRY and not have a problem with IGZ0064S.

With RENT or REUS and using PROGRAM-ID  IS RECURSIVE you should not have a 
problem, as long as you bear in mind that you are now "sharing" the 
WORKING-STORAGE, and that there are special-registers which you are not 
sharing. 

The IBM-recommended way to use the ENTRY for a dynamic CALL is to use CANCEL 
for the PROGRAM-ID to be able to use the ENTRY and for the ENTRY to be able to 
use the PROGRAM-ID (or another ENTRY). You can't do the CANCEL from *within* 
the program, so that is out.

There are at least two ways that a CALL to an ENTRY within the same program 
*should* be able to be made to work, even though there is no documentation for 
the CALL to an ENTRY within the same program, and I've never heard of it being 
done on the Mainframe, those outline above.

I'd personally feel exposed with "we can kind of get it working, it is not 
straightforward to understand, and isn't documented by IBM".

Note, I've reproduced with an "ordinary" CALL to a an ENTRY, not with an ENTRY 
which is established as a handler.

I'd do it as two programs, unless there is an absolute, paramount, overriding 
reason to do it as one program. It is difficult for me to imagine what that 
reason may be.

You currently have the "already needs a CBL/PROCESS/PARM for NAME(ALIAS), now 
also needs IS RECURSIVE or not to use RENT or REUS on the linkedit/binder".

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

Re: How does COBOL detect a recursive call?

[Hardee, Chuck]

Bob,

Since John is working with a stripped down copy of my program I resurrected the 
copy of the program with my debugging displays in it where I had already coded 
the displays for the two addresses you asked about.

Displaying the main entry point address, that is, the name of the program as 
coded in the PROGRAM-ID clause, the address displayed is 11E00A10.
Displaying the program name as coded on the ENTRY statement, the address 
displayed is 11E02C78.
The difference between these two address is x'2268'.
According to the linkage map, the offset to the ENTRY statement name is x'2268'.

So, it appears that the runtime is getting the address of the code that is 
within the initially loaded module, not a fresh copy.

So, looking at the link output, it was reported that the module was linked as:
RENTYES
REUSYES

So, it is definitely a recursive call.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Tuesday, August 09, 2016 6:52 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: How does COBOL detect a recursive call?

OK, it is the RENT or REUS (either will do) on the link-edit/bindering.

Without RENT/REUS you get a new executable for free. With RENT/REUS you get to 
"share" the original program, but it is necessarily a "recursive" use, so you 
get the "IGZ0064S A recursive call to active program..." message. Which is why 
IBM say you must CANCEL before the CALL to the ENTRY, which you can't do if the 
CALL is to an ENTRY in the same program. PROGRAM-ID ... IS RECURSIVE "gets 
around" the IGZ0064S, so there won't be a second condition, which causes 
another, and another. So LE will be happy.

So, you've discovered a way to nearly get a CALL to an ENTRY point with an 
ALIAS to work like it used to :-) 

However, there is overhead. The recursive CALL will share WORKING-STORAGE, but 
pretty much everything else will be initialised on each CALL, and then all 
thrown away on each GOBACK (since it is not actually recursing). For a one-shot 
use, this will not matter.

Safe to use? Well, understanding how it works/doesn't work wasn't easy for me 
:-)

Here's an example of the generated code from the COBOL compiler showing the 
recursion checking:

ICM   2,15,336(9) IPCB=1+16 
L 11,40(0,12) PBL=1 
BC8,210(0,11) GN=6(0002E6)  
L 3,92(0,9)   TGTFIXD+92
L 15,244(0,3) V(IGZCMSG )   
LA1,206(0,10) PGMLIT AT +202
BASR  14,15 

PGMLIT AT +202 is X'40', which is the 64 for the IGZ message.

There is similar code generated for an ENTRY.

And here's the code from the GOBACK clearing up to say things will be OK for 
another CALL:

L 3,336(0,9)  IPCB=1+16   
S 3,0(0,12)   SYSLIT AT +0
ST3,336(0,9)  IPCB=1+16   

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

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

Re: AST tracking help - OA47207

[Richards, Robert B.]

There is no date yet, but the PTFs being created are:

UA82358  2.1
UA82359  2.2

After reading the APAR description, I *am* tracking it.  :-)

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jake Anderson
Sent: Wednesday, August 10, 2016 12:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AST tracking help - OA47207

Hi,

I am unable to open the AST tracking link to know when there will be a GA PTF 
for the APAR OA47207.

Could someone please help ?

Jake

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

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

Re: Delta Outage

[Vernooij, Kees (ITOPT1) - KLM]

Dutch television had the info that passengers were in trouble because their 
data was lost in the disaster. If true, this is of course totally unacceptable 
for such a company, whatever the disaster.

Kees.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gerhard Adam
Sent: 09 August, 2016 18:06
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Delta Outage

Apparently there are 500 servers involved.  I have my own speculations as to
why they didn't declare a disaster.

As a result, the outage was extended because it appears to be taking them in
excess of 12 hours to reboot everything.



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Steve Beaver
Sent: Tuesday, August 9, 2016 8:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Delta Outage

Then WHY did they not initiate their DR and move all systems to the HOT
Site.  I just finished putting in a System that has a RTO=RPO=0 

 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Gerhard Adam
Sent: Tuesday, August 9, 2016 10:17 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Delta Outage

>From what I understand, it isn't a simple power outage, but rather a fire in
the data center.

http://arstechnica.com/business/2016/08/data-center-disaster-disrupts-delta-
airlines/



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Steve Beaver
Sent: Tuesday, August 9, 2016 8:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Delta Outage

I live in Texas and we have ERCOT, and Texas produces more wind energy than
3 countries.  And Texas has NO Interconnects To other grids.  

It its reprehensible that Delta does not have enough battery power and
gen-sets to cover the screw-ups by Atlanta Power. AA is in  Irving and
unless there is a major storm in that area does not lose power  

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

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

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

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

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

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



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