Re: [EXT] Re: Cloud may be overpriced compared to on-premises systems

[Savor, Thomas]

Not a gay hater...never said anything of the sort but hey nice 
diversioneverything you said, beautiful city...high paying 
jobsWAS..Place smells like sewage based on the shit people take in the 
sidewalk and street.  Hard to walk down the sidewalk step over/around the 
bums/shit/needles/tents and RV's everywhere.  You haven't been there in a while 
to miss your mess.  Oh, here's a good idea, you can shoplift all you want no 
prosecutionnow most retailers are or have left downtownthere like no 
people downtown only homelessso yea, no thanks...so again, why don't you go 
back to your Utopia that you Progressives created ??



Thanks,

Tom





-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Johnson
Sent: Tuesday, August 8, 2023 11:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXT] Re: Cloud may be overpriced compared to on-premises systems

lol, gay hater huh. I've been to SF. It's a beautiful city. And jobs there are 
high paying. Maybe you'd prefer the states that always rate near the bottom in 
education, health care, GDP. Mostly Republican states. 70% of US GDP is in 
Democratic counties.

https://www.cnbc.com/2020/11/10/election-2020-democrats-republicans-economy.html




Sent from Yahoo Mail for iPhone


On Tuesday, August 8, 2023, 10:45 PM, Savor, Thomas 
<0330b7631be3-dmarc-requ...@listserv.ua.edu> wrote:

Why don't you go move to the Utopia that you and your ilk created in San 
Francisco ??
Instead of spreading your disease somewhere else..

Thanks,

Tom

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Johnson
Sent: Tuesday, August 8, 2023 8:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXT] Re: Cloud may be overpriced compared to on-premises systems

Health care, US is rated 30th. France 1st. Germany 6th.
Infant mortality. US is rated 50th.

The US health care system is number 1 in one thing, cost. Sucking down 18% of 
GDP.

https://wisevoter.com/country-rankings/best-healthcare-in-the-world/

No doubt you'll bash the World Health Organization because their rankings don't 
fit you "Opinion".

Sent from Yahoo Mail for iPhone


On Tuesday, August 8, 2023, 8:33 PM, Jon Perryman  wrote:

> On Tuesday, August 8, 2023 at 07:38:32 AM PDT, Bill Johnson wrote:

> You're right, Europe is different. They actually care about people
> over profits. Much better infrastructure, better health care, and better 
> quality of lives.

What world do you live in? For Germany, I will give you Infrastructure but 
everything beyond that is questionable.

German health care: I showed up at the hospital in agony. Sorry we can't help 
you. Where can I get help? What are your symptoms. This happened on 3 different 
occasions. If you have something cool to be cured, they are happy to help you.

German quality of life: There's a reason you get 6 weeks of vacation. Life is 
extremely stressful. Germans will tell you how loved they are in other 
countries but I can tell you from driving a car licensed in Germany, I got a 
lot of abuse until they realized I was American. When driving thru borders 
checking passports, always hold it upside down. The color makes them think you 
are from the UK otherwise you spend an hour for them to practice their english. 
If you drive to the UK and you have a carload of Brits, insert your passport 
upside down in the middle because they usually wave you through.

Care for you over profits: In Germany, every employee signs a long contract. 
Mine required 9 months notice but I know Germans with 2 years notice. At the 
end of 1 year in Germany, the company notified me that I must return the car 
because my drivers license was no longer valid for Germany. I told them sorry 
but I'm in the Netherlands and can't drive in Germany. My drivers license 
showed up the next day. Many companies have open floorplans without any walls 
except around the window offices. There are some nice perks but this is not 
about the care for you.


--
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 The information 
contained in this message is proprietary and/or confidential. If you are not 
the intended recipient, please: (i) delete the message and all copies; (ii) do 
not disclose, distribute or use the message in any manner; and (iii) notify the 
sender immediately. In addition, please be aware that any message addressed to 
our domain is subject to archiving and review by persons other than the 
intended recipient. Thank you.

--
For IBM-MAIN subscrib

Re: [EXT] Re: Cloud may be overpriced compared to on-premises systems

[Savor, Thomas]

Why don't you go move to the Utopia that you and your ilk created in San 
Francisco ??
Instead of spreading your disease somewhere else..

Thanks,

Tom

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Johnson
Sent: Tuesday, August 8, 2023 8:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXT] Re: Cloud may be overpriced compared to on-premises systems

Health care, US is rated 30th. France 1st. Germany 6th.
Infant mortality. US is rated 50th.

The US health care system is number 1 in one thing, cost. Sucking down 18% of 
GDP.

https://wisevoter.com/country-rankings/best-healthcare-in-the-world/

No doubt you'll bash the World Health Organization because their rankings don't 
fit you "Opinion".

Sent from Yahoo Mail for iPhone


On Tuesday, August 8, 2023, 8:33 PM, Jon Perryman  wrote:

> On Tuesday, August 8, 2023 at 07:38:32 AM PDT, Bill Johnson wrote:

> You're right, Europe is different. They actually care about people
> over profits. Much better infrastructure, better health care, and better 
> quality of lives.

What world do you live in? For Germany, I will give you Infrastructure but 
everything beyond that is questionable.

German health care: I showed up at the hospital in agony. Sorry we can't help 
you. Where can I get help? What are your symptoms. This happened on 3 different 
occasions. If you have something cool to be cured, they are happy to help you.

German quality of life: There's a reason you get 6 weeks of vacation. Life is 
extremely stressful. Germans will tell you how loved they are in other 
countries but I can tell you from driving a car licensed in Germany, I got a 
lot of abuse until they realized I was American. When driving thru borders 
checking passports, always hold it upside down. The color makes them think you 
are from the UK otherwise you spend an hour for them to practice their english. 
If you drive to the UK and you have a carload of Brits, insert your passport 
upside down in the middle because they usually wave you through.

Care for you over profits: In Germany, every employee signs a long contract. 
Mine required 9 months notice but I know Germans with 2 years notice. At the 
end of 1 year in Germany, the company notified me that I must return the car 
because my drivers license was no longer valid for Germany. I told them sorry 
but I'm in the Netherlands and can't drive in Germany. My drivers license 
showed up the next day. Many companies have open floorplans without any walls 
except around the window offices. There are some nice perks but this is not 
about the care for you.


--
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
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: Not aging well (know-it-alls)

[Savor, Thomas]

BillPlease get off the cross and stop telling everyone how great you are.  
The actual greats never have to convince everyone that their great.  Here's a 
word you need to embrace  is "HUMBLE"...try it some time.

Thanks,

Tom






-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Johnson
Sent: Friday, April 7, 2023 6:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Not aging well (know-it-alls)

I don’t lie, cheat, steal, smoke, do drugs, drink alcohol. I do lots a charity, 
give huge tips, help animal shelters, and much much more.


Sent from Yahoo Mail for iPhone


On Friday, April 7, 2023, 4:26 PM, Mike Shaw  wrote:

On Fri, Apr 7, 2023, 1:02 PM Bill Johnson < 
0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:

> <...snip...>

>  I know my character is flawless.

<...snip...>

Wow.

Mike Shaw
MVS/QuickRef Support
Chisoft

--
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
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: Soc7 abend

[Savor, Thomas]

> 05 INP-VNDR-PACK-COST PIC 9(9)V9(4).
> 05 WS-VNDR-PACK-COST PIC S9(9)V9(4) COMP-3.

> INP-VNDR-PACK-COST -035.65  <-- this in wrong.  The period doesn’t 
> belong here.
It should be 03565

Thanks,

Tom

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
John Pratt
Sent: Thursday, January 12, 2023 9:12 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Soc7 abend

Hi Ron,

> I was looking a Cobol code module developed and we ran in to a sco7 issue. I 
> > am not able to figure why this is abending.
>
> Any help to fix is much appreciated.
>
> Here is the spool display i have captured.

> 05 INP-VNDR-PACK-COST PIC 9(9)V9(4).
> 05 WS-VNDR-PACK-COST PIC S9(9)V9(4) COMP-3.

> INP-VNDR-PACK-COST -035.65
> WS-VNDR-PACK-COST -0

Something looks amiss to me as your displays(?) of the two fields do not match 
their PICtures.

Also, I'm guessing you set hex on in SDSF though cannot imagine why you'd think 
this would help solve the data exception abend.

Perhaps consider showing details from a dump or possibly using Abend-Aid or 
Fault Analyzer or some other abend analysis tool that you may have available.

John.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: EXTERNAL: Re: Programs that work right the first time.

[Savor, Thomas]

Typical Liberal.trying your best to spin it into Trumps fault...all Trump 
tried to do is get the Afgan folks and the Taliban folks to work out a deal so 
we could leave and they could live together...but they couldn't agree...so we 
were still there.

I don't remember under Trump cargo planes taking off from Kabul with folks 
hanging off of them...and falling off and dying, but I do remember seeing it on 
TV last weekand I also have family stuck over there, so yes I know who got 
out and whos been left to find your own way out.

Also don't remember British holding Trump in contempt for leaving their troops 
there, but I do remember this happening under Biden's watch last week.

And "if he falls ill"...i guess you've never been around someone with 
Dementia...he couldn't even find the front door to the white house last 
weekreally...i guess Trump hid it from him...WAKE UP !!!

It pleases me to see even CNN turn on him now...i love it.
By the way, how are your gas prices ??

Thanks,

Tom

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Johnson
Sent: Sunday, August 22, 2021 9:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EXTERNAL: Re: Programs that work right the first time.

 Trump started the process of leaving Afghanistan. Even released 5000 Taliban 
including their current leader. We aren't leaving Americans behind. Biden will 
be president for another 3 1/2 years, unless he falls ill and Kamala takes 
over. And knowing that probably really gets you going pleases me.

On Sunday, August 22, 2021, 08:01:21 PM EDT, Savor, Thomas 
<0330b7631be3-dmarc-requ...@listserv.ua.edu> wrote:

 Your guy is in-defensible...great job in Afghanistan...superb !!!
Not only did we leave a bunch of US citizens there, but left NATO troops 
there...so Ooooh another Dumbass !!!
Biden makes Carter look good...I thought Obozo was bad...Biden is probably 
going to be removed soon...or at least starting the process.

Thanks,

Tom


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Johnson
Sent: Sunday, August 22, 2021 7:45 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EXTERNAL: Re: Programs that work right the first time.

Ooooh, another trumper.


Sent from Yahoo Mail for iPhone


On Sunday, August 22, 2021, 7:42 PM, Wayne Bickerdike  wrote:

*I knew I'd trigger the trumpers here.*

Trolls have that effect.

On Mon, Aug 23, 2021 at 9:38 AM Bill Johnson < 
0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:

> I knew I'd trigger the trumpers here.
>
>
> Sent from Yahoo Mail for iPhone
>
>
> On Sunday, August 22, 2021, 7:27 PM, Savor, Thomas <
> 0330b7631be3-dmarc-requ...@listserv.ua.edu> wrote:
>
> "In April 2020, a voter fraud study covering 20 years by the
> Massachusetts Institute of Technology found the level of mail-in
> ballot fraud "exceedingly rare" since it occurs only in "0.6
> percent" of instances nationally, and, in one state, "0.04 percent
> - about five times less likely than getting hit by lightning."
>
> That's by far the stupidest comment I've heard in long
> time.MIT...Mass..area nothing but Democrats (of course, the
> election was clean).  We already know that Arizona was fraud, Georgia
> was fraud...Georgia is trying to figure out how to audit Fulton County
> where terrible voting irregularities occurred...but the fraud machine
> is heavy...Next you are going to tell me that the Georgia voting law
> is wrong...if you think so STOP WATCHING CNN.  But I know nothing will happen.
>
> We will not be secure with our elections until we go back to paper
> ballots...i don't trust electronic voting at all...the Rats didn't
> like under Bush, the GOP doesn't like it now.
>
> You say, " how can they cheat electronically"...guys think about it.
> Your PC recognizes when you plug something into USB...right.
> Volkswagen got into a lot of trouble when diesel car was plugged into
> emissions test...system recognized it, and changed the settings to
> pass emissions...then when unplugged, car computer reset system back to 
> normal.
> So easily, a voting machine can recognize being audited, do things
> correctly, then when unplugged, go back to "coded" settingsvoting
> machines by Law, once certified, are supposed to be dis-connected from
> the Internet, but we know that didn't happen in Arizona.
>
> There were 153 million registered voters in 2016, when 60%
> voted...which is a pretty high amount.
> In 2020, 168 million registered voters, 80+ for Biden  74+ for Trump,
> for 92% voted...impossible.
>
> Biden tried to have a rally here in Georgia during the
> election...couldnt get 100 people to show up...Trump had a rally here
> in Georgia filled up Mercedes Benz stadium, with about 50-60 thousand 

Re: EXTERNAL: Re: Programs that work right the first time.

[Savor, Thomas]

Tell me whats wrong.typical dumbass liberal that doesn't have ANY 
facts...just that its wrongwhere the fuck is it wrong.
School is where YOU went off the rails...nothing but teaching Communism 
bullshit.

Thanks,

Tom

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
John Clifford
Sent: Sunday, August 22, 2021 8:05 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EXTERNAL: Re: Programs that work right the first time.

Dead wrong. Typical trumpette.
Back to school.

On Sun, Aug 22, 2021, 7:27 PM Savor, Thomas < 
0330b7631be3-dmarc-requ...@listserv.ua.edu> wrote:

> "In April 2020, a voter fraud study covering 20 years by the
> Massachusetts Institute of Technology found the level of mail-in
> ballot fraud "exceedingly rare" since it occurs only in "0.6
> percent" of instances nationally, and, in one state, "0.04 percent
> - about five times less likely than getting hit by lightning."
>
> That's by far the stupidest comment I've heard in long
> time.MIT...Mass..area nothing but Democrats (of course, the
> election was clean).  We already know that Arizona was fraud, Georgia
> was fraud...Georgia is trying to figure out how to audit Fulton County
> where terrible voting irregularities occurred...but the fraud machine
> is heavy...Next you are going to tell me that the Georgia voting law
> is wrong...if you think so STOP WATCHING CNN.  But I know nothing will happen.
>
> We will not be secure with our elections until we go back to paper
> ballots...i don't trust electronic voting at all...the Rats didn't
> like under Bush, the GOP doesn't like it now.
>
> You say, " how can they cheat electronically"...guys think about it.
> Your PC recognizes when you plug something into USB...right.
> Volkswagen got into a lot of trouble when diesel car was plugged into
> emissions test...system recognized it, and changed the settings to
> pass emissions...then when unplugged, car computer reset system back to 
> normal.
> So easily, a voting machine can recognize being audited, do things
> correctly, then when unplugged, go back to "coded" settingsvoting
> machines by Law, once certified, are supposed to be dis-connected from
> the Internet, but we know that didn't happen in Arizona.
>
> There were 153 million registered voters in 2016, when 60%
> voted...which is a pretty high amount.
> In 2020, 168 million registered voters, 80+ for Biden  74+ for Trump,
> for 92% voted...impossible.
>
> Biden tried to have a rally here in Georgia during the
> election...couldnt get 100 people to show up...Trump had a rally here
> in Georgia filled up Mercedes Benz stadium, with about 50-60 thousand outside.
>
> Thanks,
>
> Tom
>
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Bill Johnson
> Sent: Sunday, August 22, 2021 6:37 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: EXTERNAL: Re: Programs that work right the first time.
>
> CAUTION: This email originated from outside of the company. Do not
> click links or open attachments unless you recognize the sender and
> know the content is safe.
>
>
>
> The number of lines of code is absolutely a good way to determine
> complexity. To say otherwise is silly. Is it a 100% correlation, of
> course not. Reminds me of people who say that elections are fraudulent
> and point to the handful of voter fraud incidents when the reality is,
> voter fraud is in effect zero.
> In April 2020, a voter fraud study covering 20 years by the
> Massachusetts Institute of Technology found the level of mail-in
> ballot fraud "exceedingly rare" since it occurs only in "0.6
> percent" of instances nationally, and, in one state, "0.04 percent
> - about five times less likely than getting hit by lightning.
>
>
> Sent from Yahoo Mail for iPhone
>
>
> On Sunday, August 22, 2021, 6:25 PM, Jeremy Nicoll <
> jn.ls.mfrm...@letterboxes.org> wrote:
>
> On Sun, 22 Aug 2021, at 19:49, Bill Johnson wrote:
> > You claim to know of a 1 line APL super complex program but when
> > asked to prove it can't.
>
> What I actually said was:
>
>  "A good case in point is that in APL a useful program can be written
> in one line."
>
> I /did not/ say that I knew of a (specific) 1 line super complex
> program, just indicating that useful one-liners exist in APL.
>
> I was merely suggesting that the number of lines in a program was not
> a good way of estimating complexity.
>
> The two examples I pointed you at on the APL wikipedia page are both
> (I
> think) good examples of how a single line of code can (a) do a lot,
> and (b) be hard to understand at a glance.  

Re: EXTERNAL: Re: Programs that work right the first time.

[Savor, Thomas]

And where was the fraud ??  of course, Fulton County.
The swamp is deep.

I don't care who wins anything (well actually I do), but I just want it to be 
fair.

And just because Arizona and Georgia are GOP (the Governors)...not all Counties 
are...Fulton for sure isn't.
Guys, think about this...they allowed mail-in ballots WITHOUT verifying the 
signatureSeriously 

Thanks,

Tom



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Joe 
Monk
Sent: Sunday, August 22, 2021 7:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EXTERNAL: Re: Programs that work right the first time.

Fulton County is 100% Democrat, just like Maricopa County.

Joe

On Sun, Aug 22, 2021 at 6:48 PM Bill Johnson < 
0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:

> We know Arizona was fraud, Georgia was fraud. States run by Republicans.
>
>
> Sent from Yahoo Mail for iPhone
>
>
> On Sunday, August 22, 2021, 7:27 PM, Savor, Thomas <
> 0330b7631be3-dmarc-requ...@listserv.ua.edu> wrote:
>
> "In April 2020, a voter fraud study covering 20 years by the
> Massachusetts Institute of Technology found the level of mail-in
> ballot fraud "exceedingly rare" since it occurs only in "0.6
> percent" of instances nationally, and, in one state, "0.04 percent
> - about five times less likely than getting hit by lightning."
>
> That's by far the stupidest comment I've heard in long
> time.MIT...Mass..area nothing but Democrats (of course, the
> election was clean).  We already know that Arizona was fraud, Georgia
> was fraud...Georgia is trying to figure out how to audit Fulton County
> where terrible voting irregularities occurred...but the fraud machine
> is heavy...Next you are going to tell me that the Georgia voting law
> is wrong...if you think so STOP WATCHING CNN.  But I know nothing will happen.
>
> We will not be secure with our elections until we go back to paper
> ballots...i don't trust electronic voting at all...the Rats didn't
> like under Bush, the GOP doesn't like it now.
>
> You say, " how can they cheat electronically"...guys think about it.
> Your PC recognizes when you plug something into USB...right.
> Volkswagen got into a lot of trouble when diesel car was plugged into
> emissions test...system recognized it, and changed the settings to
> pass emissions...then when unplugged, car computer reset system back to 
> normal.
> So easily, a voting machine can recognize being audited, do things
> correctly, then when unplugged, go back to "coded" settingsvoting
> machines by Law, once certified, are supposed to be dis-connected from
> the Internet, but we know that didn't happen in Arizona.
>
> There were 153 million registered voters in 2016, when 60%
> voted...which is a pretty high amount.
> In 2020, 168 million registered voters, 80+ for Biden  74+ for Trump,
> for 92% voted...impossible.
>
> Biden tried to have a rally here in Georgia during the
> election...couldnt get 100 people to show up...Trump had a rally here
> in Georgia filled up Mercedes Benz stadium, with about 50-60 thousand outside.
>
> Thanks,
>
> Tom
>
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Bill Johnson
> Sent: Sunday, August 22, 2021 6:37 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: EXTERNAL: Re: Programs that work right the first time.
>
> CAUTION: This email originated from outside of the company. Do not
> click links or open attachments unless you recognize the sender and
> know the content is safe.
>
>
>
> The number of lines of code is absolutely a good way to determine
> complexity. To say otherwise is silly. Is it a 100% correlation, of
> course not. Reminds me of people who say that elections are fraudulent
> and point to the handful of voter fraud incidents when the reality is,
> voter fraud is in effect zero.
> In April 2020, a voter fraud study covering 20 years by the
> Massachusetts Institute of Technology found the level of mail-in
> ballot fraud "exceedingly rare" since it occurs only in "0.6
> percent" of instances nationally, and, in one state, "0.04 percent
> - about five times less likely than getting hit by lightning.
>
>
> Sent from Yahoo Mail for iPhone
>
>
> On Sunday, August 22, 2021, 6:25 PM, Jeremy Nicoll <
> jn.ls.mfrm...@letterboxes.org> wrote:
>
> On Sun, 22 Aug 2021, at 19:49, Bill Johnson wrote:
> > You claim to know of a 1 line APL super complex program but when
> > asked to prove it can't.
>
> What I actually said was:
>
>  "A good case in point is that in APL a useful program can be written
> in one line."
>
> I /did not/ say t

Re: EXTERNAL: Re: Programs that work right the first time.

[Savor, Thomas]

Your guy is in-defensible...great job in Afghanistan...superb !!!
Not only did we leave a bunch of US citizens there, but left NATO troops 
there...so Ooooh another Dumbass !!!
Biden makes Carter look good...I thought Obozo was bad...Biden is probably 
going to be removed soon...or at least starting the process.

Thanks,

Tom


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Johnson
Sent: Sunday, August 22, 2021 7:45 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EXTERNAL: Re: Programs that work right the first time.

Ooooh, another trumper.


Sent from Yahoo Mail for iPhone


On Sunday, August 22, 2021, 7:42 PM, Wayne Bickerdike  wrote:

*I knew I'd trigger the trumpers here.*

Trolls have that effect.

On Mon, Aug 23, 2021 at 9:38 AM Bill Johnson < 
0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:

> I knew I'd trigger the trumpers here.
>
>
> Sent from Yahoo Mail for iPhone
>
>
> On Sunday, August 22, 2021, 7:27 PM, Savor, Thomas <
> 0330b7631be3-dmarc-requ...@listserv.ua.edu> wrote:
>
> "In April 2020, a voter fraud study covering 20 years by the
> Massachusetts Institute of Technology found the level of mail-in
> ballot fraud "exceedingly rare" since it occurs only in "0.6
> percent" of instances nationally, and, in one state, "0.04 percent
> - about five times less likely than getting hit by lightning."
>
> That's by far the stupidest comment I've heard in long
> time.MIT...Mass..area nothing but Democrats (of course, the
> election was clean).  We already know that Arizona was fraud, Georgia
> was fraud...Georgia is trying to figure out how to audit Fulton County
> where terrible voting irregularities occurred...but the fraud machine
> is heavy...Next you are going to tell me that the Georgia voting law
> is wrong...if you think so STOP WATCHING CNN.  But I know nothing will happen.
>
> We will not be secure with our elections until we go back to paper
> ballots...i don't trust electronic voting at all...the Rats didn't
> like under Bush, the GOP doesn't like it now.
>
> You say, " how can they cheat electronically"...guys think about it.
> Your PC recognizes when you plug something into USB...right.
> Volkswagen got into a lot of trouble when diesel car was plugged into
> emissions test...system recognized it, and changed the settings to
> pass emissions...then when unplugged, car computer reset system back to 
> normal.
> So easily, a voting machine can recognize being audited, do things
> correctly, then when unplugged, go back to "coded" settingsvoting
> machines by Law, once certified, are supposed to be dis-connected from
> the Internet, but we know that didn't happen in Arizona.
>
> There were 153 million registered voters in 2016, when 60%
> voted...which is a pretty high amount.
> In 2020, 168 million registered voters, 80+ for Biden  74+ for Trump,
> for 92% voted...impossible.
>
> Biden tried to have a rally here in Georgia during the
> election...couldnt get 100 people to show up...Trump had a rally here
> in Georgia filled up Mercedes Benz stadium, with about 50-60 thousand outside.
>
> Thanks,
>
> Tom
>
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Bill Johnson
> Sent: Sunday, August 22, 2021 6:37 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: EXTERNAL: Re: Programs that work right the first time.
>
> CAUTION: This email originated from outside of the company. Do not
> click links or open attachments unless you recognize the sender and
> know the content is safe.
>
>
>
> The number of lines of code is absolutely a good way to determine
> complexity. To say otherwise is silly. Is it a 100% correlation, of
> course not. Reminds me of people who say that elections are fraudulent
> and point to the handful of voter fraud incidents when the reality is,
> voter fraud is in effect zero.
> In April 2020, a voter fraud study covering 20 years by the
> Massachusetts Institute of Technology found the level of mail-in
> ballot fraud "exceedingly rare" since it occurs only in "0.6
> percent" of instances nationally, and, in one state, "0.04 percent
> - about five times less likely than getting hit by lightning.
>
>
> Sent from Yahoo Mail for iPhone
>
>
> On Sunday, August 22, 2021, 6:25 PM, Jeremy Nicoll <
> jn.ls.mfrm...@letterboxes.org> wrote:
>
> On Sun, 22 Aug 2021, at 19:49, Bill Johnson wrote:
> > You claim to know of a 1 line APL super complex program but when
> > asked to prove it can't.
>
> What I actually said was:
>
>  "A good case in point is that in APL a useful program can be written
>in  one line."
&g

Re: EXTERNAL: Re: Programs that work right the first time.

[Savor, Thomas]

"In April 2020, a voter fraud study covering 20 years by the Massachusetts 
Institute of Technology found the level of mail-in ballot fraud "exceedingly 
rare" since it occurs only in "0.6 percent" of instances nationally, and, 
in one state, "0.04 percent - about five times less likely than getting hit 
by lightning."

That's by far the stupidest comment I've heard in long 
time.MIT...Mass..area nothing but Democrats (of course, the election was 
clean).  We already know that Arizona was fraud, Georgia was fraud...Georgia is 
trying to figure out how to audit Fulton County where terrible voting 
irregularities occurred...but the fraud machine is heavy...Next you are going 
to tell me that the Georgia voting law is wrong...if you think so STOP WATCHING 
CNN.  But I know nothing will happen.

We will not be secure with our elections until we go back to paper ballots...i 
don't trust electronic voting at all...the Rats didn't like under Bush, the
GOP doesn't like it now.

You say, " how can they cheat electronically"...guys think about it.  Your PC 
recognizes when you plug something into USB...right.  Volkswagen got into a lot 
of trouble when diesel car was plugged into emissions test...system recognized 
it, and changed the settings to pass emissions...then when unplugged, car 
computer reset system back to normal.  So easily, a voting machine can 
recognize being audited, do things correctly, then when unplugged, go back to 
"coded" settingsvoting machines by Law, once certified, are supposed to be 
dis-connected from the Internet, but we know that didn't happen in Arizona.

There were 153 million registered voters in 2016, when 60% voted...which is a 
pretty high amount.
In 2020, 168 million registered voters, 80+ for Biden  74+ for Trump, for  92% 
voted...impossible.

Biden tried to have a rally here in Georgia during the election...couldnt get 
100 people to show up...Trump had a rally here in Georgia filled up Mercedes 
Benz stadium, with about 50-60 thousand outside.

Thanks,

Tom

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Johnson
Sent: Sunday, August 22, 2021 6:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXTERNAL: Re: Programs that work right the first time.

CAUTION: This email originated from outside of the company. Do not click links 
or open attachments unless you recognize the sender and know the content is 
safe.



The number of lines of code is absolutely a good way to determine complexity. 
To say otherwise is silly. Is it a 100% correlation, of course not. Reminds me 
of people who say that elections are fraudulent and point to the handful of 
voter fraud incidents when the reality is, voter fraud is in effect zero.
In April 2020, a voter fraud study covering 20 years by the Massachusetts 
Institute of Technology found the level of mail-in ballot fraud "exceedingly 
rare" since it occurs only in "0.6 percent" of instances nationally, and, 
in one state, "0.04 percent - about five times less likely than getting hit 
by lightning.


Sent from Yahoo Mail for iPhone


On Sunday, August 22, 2021, 6:25 PM, Jeremy Nicoll 
 wrote:

On Sun, 22 Aug 2021, at 19:49, Bill Johnson wrote:
> You claim to know of a 1 line APL super complex program but when asked
> to prove it can't.

What I actually said was:

 "A good case in point is that in APL a useful program can be written  in one 
line."

I /did not/ say that I knew of a (specific) 1 line super complex program, just 
indicating that useful one-liners exist in APL.

I was merely suggesting that the number of lines in a program was not a good 
way of estimating complexity.

The two examples I pointed you at on the APL wikipedia page are both (I think) 
good examples of how a single line of code can (a) do a lot, and (b) be hard to 
understand at a glance.  Even if the individual APL operators (all those greek 
characters) were represented by operator names, or even function names (though 
they are not functions) I do not think anyone could guess what those lines do.

There's a short line of code (only 17 characters!) that determines "all the 
prime numbers up to R".  Search (for the text in quotes) on the quite long 
webpage at

 
https://eur02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fcomputerhistory.org%2Fblog%2Fthe-apl-programming-language-source-code%2Fdata=04%7C01%7Cthomas.savor%40fisglobal.com%7C604acc7f24084e289bde08d965bd7f52%7Ce3ff91d834c84b15a0b418910a6ac575%7C0%7C0%7C637652686827582443%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=Y8SIQh32uaTFYS0FywdIiDm5uWdiM8cjh7PY%2Ffvct08%3Dreserved=0

to see it, with an explanation there of how that program works.

It's a whole lot less easy to understand than the equivalent written in, say 
COBOL.

--
Jeremy Nicoll - my opinions are my own.

--
For IBM-MAIN subscribe / signoff / archive access 

Re: EXTERNAL: Coding for the future

[Savor, Thomas]

 ==>LAR7,5  Put 5 in register 7

It depends on the intended target audience.  Now I and you know that a 5 is put 
in Register 7, but many shops have only a couple Assembler Programmersbut 
many more Cobol programmers.  Telling "them" that a 5 is put in Register 7 can 
be helpful to solving a problem or learning what a program does.

Way too many Cobol programmers that I run into are scared of looking at 
Assembler...like just looking at it or trying to learn it is going to give you 
Ebola...so even very basic instructions can be helpful...especially if 
Instruction says LA   7,5  then it really helps "them".

Thanks,

Tom




-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Wednesday, June 16, 2021 11:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EXTERNAL: Coding for the future

Long ago in a galaxy far away, they handed each of us a stack of manuals and 
told use that we were all enrolled in a 7070 class and had to read all of the 
manuals before the class started. It turned out that some of the students were 
answering questions that stumped the instructor, and that if you read the 
manuals you didn't need the course.

The worst are the ones that score based on the quantity of comments instead of 
their quality. That guaranties cluttered and unhelpful comments. People will 
behave in such a fashion as to optimize how their organization ranks them; if 
teir grades or performance reviews depend on doing something sub-optimal, then 
that's what they'll do. Measure the things that actually matter.

I generally frown on marking students down on stylistic issues like labels on 
separate lines, but I will mark down for

 LAR7,5  Put 5 in register 7

Don't tell me what LA does, tell me why you're putting that value in that 
register. If there is nothing useful to say in the comment, then omit it.


--
Shmuel (Seymour J.) Metz
https://eur02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7Cthomas.savor%40fisglobal.com%7Cbe99c6f1bde54085afe408d930df9961%7Ce3ff91d834c84b15a0b418910a6ac575%7C0%7C0%7C637594559179362403%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=kaKOh28RkIFxgof3dWR3QMgfWMAyZeQ8ijJ7XLqXpXE%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Phil Smith III [li...@akphs.com]
Sent: Wednesday, June 16, 2021 11:17 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EXTERNAL: Coding for the future

Crawford, Robert C. wrote, in part:

>Oh, and I used to this:

>LOOP  MVC   HERE,THERE



>And now do this:

>LOOP  DS   0H

>MVC   HERE,THERE



Yes, I was taught that early. Then I took a Commodore SuperPet assembler class 
(after writing 370 assembler for several years). That assembler had no

   DS  0H
but it did have
   EQU *
So I used that-and was marked down for it. At that point, I stopped taking the 
class seriously.


--
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
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Punch out Program via the Assembler

[Savor, Thomas]

Sorry, need to get into the way back machinemaybe 25 years agomaybe 
more.

I worked on an application that was COBOL and had Assembler macros that were 
used in the code.
Like a COBOL Copybook was turned into an Assembler macro so that you could 
specify PFX=WRK or BCN or whatever is needed.
Then when you Compile your program, first it would go thru the Assembler.  The 
Assembler would do nothing but pull in the Copybook
Macro and generate it with the PFX resolved.  The Assembler would pass thru the 
source that was input to the COBOL compiler.

Does anyone know if this is still possible ??
I don't see any Assemble Options that act like a pass thrui've tried 
various options using DECK to get program passed thru to SYSPUNCH,
But the SYSPUNCH output is prepped for the Binder, instead of Source Statements.
If its still possible, anyone know how to do this ??

Thanks,

Tom
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: EXTERNAL: COBOL V6.2 possible change in behavior with recent patch level

[Savor, Thomas]

Mr Monk,

I agree with you 100%and I wish everyone was on the same pagebut that’s 
fantasy world talking.
The reality is that each data center believes that they are doing things 
properly...even within the same company.
And each site has totally different schedules as to when software upgrades 
occurs, maintenance occurs or who gets upgraded box.
Some sites lease their boxes and equipment, some own it...so when a contract is 
up comes into play or might even be a site that IBM runs compared to a site 
that we run...then you have Endeavor at some sites, others PDSMAN or just god 
old PDS's.  Just keeping everyone or trying to insure everyone is using the 
same compiler options is a chore.

But still each box generates different code from compiler...and it stinks when 
you get the stink eye when your change blows up and you keep claiming that you 
tested itunfortunately sometimes you get some bosses that aren’t mainframe 
savvy and things suffer.

Thanks,

Tom



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Joe 
Monk
Sent: Saturday, March 13, 2021 6:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EXTERNAL: COBOL V6.2 possible change in behavior with recent patch 
level

I used to  write code for and maintain the code base of a Pension and 401k 
accounting system written in  COBOL ... we ran at the top 6% of the banks in 
the USA.

The way you fix your problem is you have support levels. Yes there are tons of 
customer with different compiler levels. BUT your company, as an  organization, 
can  have a minimum support level...

Z13? OK cobol 6.2 patch level such-and-such is required to run our software.
Z14? OK cobol 6.2 patch  level such-and-such is required to run our software.

Joe

On Sat, Mar 13, 2021 at 1:52 AM Savor, Thomas < 
0330b7631be3-dmarc-requ...@listserv.ua.edu> wrote:

> Mr Ross,
>
> I'm not sure that you guys at IBM have realized that you have created
> a nightmare out there in the field for a lot of customers and
> especially vendors of COBOL applications.  I'm a part of many that
> support/write Assembler/Cobol code for a giant Credit Software system.
> We have 5+ million lines of code.
>
> Now as a vendor, we also have "many" processing centers around the
> World running our software.  Some sites we run, some sites IBM runs.
> Do you think that each and every site has the same box, same Z/os
> level, same compiler , same maintenance level , same ARCH level or use
> same OPT setting ??  All the application folks can do is recommend.
> But Management and Systems Programmers tend to do what they want.
>
> If I'm directed that my Test box is a Z13 (and is), but my Production
> box is a Z15 (it's a Z14 at this very moment).  Then I'm NEVER testing
> code that goes into Production EVER.  And this has caused
> problemssome in the form of abends, some in the form of added run
> times.  Its very unrealistic to think that I have to regression test
> 5+ million lines of code every time maintenance to the compiler is
> applied, let alone go from
> 6.2 to the next Cobol release...who the hell is going to pay for this ??
> The application folks NEVER know when maintenance is going in or when
> the next compiler release goes in.until after the fact.
>
> IBM and even System Programmers need to stop hiding behind "fix your
> crap code", how about "stop changing the behavior of our programs on a whim".
>
> Last year we had a little very small program cause much grief after
> 30+ years of NO PROBLEMS.  Our release goes out to a good customer and
> run time goes from 10 minutes to 1.5 hours on a transaction edit
> process of 1+ million recordsterrible.  We found out from our
> customer thru STROBE that 95% of the time was spent in Abend Recovery
> because a Leap Year date calculation routine that couldn't care less
> about the result of a division compute statement...only the remainder.
> But because the result was too small, program blew up, went into Abend
> Recovery and continued on.  Testing and UAT had no idea.  This was
> because of the sensitivity of the Vector Packed Decimal instructions
> that were on a Z14 box.  We were able to reproduce error on a Z13 with
> OPT(2)but had no idea of the ramifications.
>
> Personally, I wish we could just stay on COBOL 4.2...but no such luck.
>
> Thanks,
>
> Tom
>
>
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Tom Ross
> Sent: Friday, March 12, 2021 11:45 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: EXTERNAL: COBOL V6.2 possible change in behavior with recent
> patch level
>
> CAUTION: This email originated from outside of the company. Do not
> click links or open attachments unless you recognize the sender and
> know the c

Re: EXTERNAL: COBOL V6.2 possible change in behavior with recent patch level

[Savor, Thomas]

Mr Ross,

I'm not sure that you guys at IBM have realized that you have created a 
nightmare out there in the field for a lot of customers and especially vendors 
of COBOL applications.  I'm a part of many that support/write Assembler/Cobol 
code for a giant Credit Software system.  We have 5+ million lines of code.

Now as a vendor, we also have "many" processing centers around the World 
running our software.  Some sites we run, some sites IBM runs.  Do you think 
that each and every site has the same box, same Z/os level, same compiler , 
same maintenance level , same ARCH level or use same OPT setting ??  All the 
application folks can do is recommend.  But Management and Systems Programmers 
tend to do what they want.

If I'm directed that my Test box is a Z13 (and is), but my Production box is a 
Z15 (it's a Z14 at this very moment).  Then I'm NEVER testing code that goes 
into Production EVER.  And this has caused problemssome in the form of 
abends, some in the form of added run times.  Its very unrealistic to think 
that I have to regression test 5+ million lines of code every time maintenance 
to the compiler is applied, let alone go from 6.2 to the next Cobol 
release...who the hell is going to pay for this ??  The application folks NEVER 
know when maintenance is going in or when the next compiler release goes 
in.until after the fact.

IBM and even System Programmers need to stop hiding behind "fix your crap 
code", how about "stop changing the behavior of our programs on a whim".

Last year we had a little very small program cause much grief after 30+ years 
of NO PROBLEMS.  Our release goes out to a good customer and run time goes from 
10 minutes to 1.5 hours on a transaction edit process of 1+ million 
recordsterrible.  We found out from our customer thru STROBE that 95% of 
the time was spent in Abend Recovery because a Leap Year date calculation 
routine that couldn't care less about the result of a division compute 
statement...only the remainder.  But because the result was too small, program 
blew up, went into Abend Recovery and continued on.  Testing and UAT had no 
idea.  This was because of the sensitivity of the Vector Packed Decimal 
instructions that were on a Z14 box.  We were able to reproduce error on a Z13 
with OPT(2)but had no idea of the ramifications.

Personally, I wish we could just stay on COBOL 4.2...but no such luck.

Thanks,

Tom





-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Ross
Sent: Friday, March 12, 2021 11:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXTERNAL: COBOL V6.2 possible change in behavior with recent patch 
level

CAUTION: This email originated from outside of the company. Do not click links 
or open attachments unless you recognize the sender and know the content is 
safe.



>We recently applied patches up through September 2020 to our Enterprise
>COB= OL V6.2 compiler.  Prior to this we had patches through September
>2019.  Th= is appears to have changed how some code is generate, even
>though the compi= ler options have not changed.

Frank, this is unfortunate, but I have to say, we do not recommend running 
COBOL programs with invalid data, and we do not recommend using ZONEDATA with 
other than (PFD) as the sub option.  We keep finding new ways that older COBOL 
behaved differently than new COBOL with invalid data, and in the case you 
mention we had a customer complaining that the example you posted ABENDed with 
COBOL V4 but not COBOL V6 with ZONEDATA(MIG), so we changed the code.  The 
intention of ZONEDATA(other than PFD) is to mimic COBOL V4, and this is a 
little bit of an ongoing process.  We, of course, NEVER used to test with 
invalid data (data that does not match the PICTURE and USAGE) so this is a 
challenging job!

The best way to go is to correct your programs and data to follow the rules.
For example, we had a customer recompile all programs in an application with 
COBOL V6.1, but they did NOT folow our 2-compile 2-test migration process to 
find and clean up invalid data.  The results o their regression tests were OK, 
so they went into production!  All was well until they moved to COBOL V6.2 to 
compile with ARCH(12) and exploit z14.  At that point they discovered they had 
some invalid data processing that started causing new ABENDs with Vector Packed 
Decimal instructions.

I recommend cleaning things up before declaring migration to COBOL V6 complete!

Cheers,
TomR  >> COBOL is the Language of the Future! <<

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) 

Re: EXTERNAL: Re: Acquire Storage

[Savor, Thomas]

Im running in USER keyits an application program
Programs are AMODE(31)  RMODE(ANY)

Thanks,

Tom
-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Binyamin Dissen
Sent: Wednesday, March 3, 2021 5:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXTERNAL: Re: Acquire Storage

CAUTION: This email originated from outside of the company. Do not click links 
or open attachments unless you recognize the sender and know the content is 
safe.



I would recommend going to LE and let it take care of things.

You must consider whether you are using storage protection in which case you 
are running in key9.

On Wed, 3 Mar 2021 21:30:04 + "Savor, Thomas"
<0330b7631be3-dmarc-requ...@listserv.ua.edu> wrote:

:>Ok, got a question for you CICS Assembler folks.
:>
:>I have a CICS Assembler program that works fineits Re-Entrant of course.
:>Now I also have some Assembler Sub-programs that can run in Batch.
:>And I want to add them to my Online Program.
:>But...in order to be able to execute in Online it needs to also be 
re-entrantwhich is fine for Batch, but Online not so much
:>Now in the sub-program, im executing a STORAGE OBTAIN for the Register 
SAVEAREA.
:>But as soon as I try and store the first Register in this acquired storage 
area, Protection Exception - Abend  (I think it was a S0C4) :>Anyway, Is there 
a sub pool to properly acquire storage that makes Batch and Online Happy or is 
GETMAIN better or what is the proper way to acquire storage in both Worlds ??

--
Binyamin Dissen 
https://eur02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.dissensoftware.com%2Fdata=04%7C01%7Cthomas.savor%40fisglobal.com%7C6edf0bb93c464188180208d8de911a22%7Ce3ff91d834c84b15a0b418910a6ac575%7C0%7C0%7C637504062097170113%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=W8ebJHKQse3khlFN8oclFKtA22IuHsQ1c%2BxPGRPJpEs%3Dreserved=0

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...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Acquire Storage

[Savor, Thomas]

Ok, got a question for you CICS Assembler folks.

I have a CICS Assembler program that works fineits Re-Entrant of course.
Now I also have some Assembler Sub-programs that can run in Batch.
And I want to add them to my Online Program.
But...in order to be able to execute in Online it needs to also be 
re-entrantwhich is fine for Batch, but Online not so much
Now in the sub-program, im executing a STORAGE OBTAIN for the Register SAVEAREA.
But as soon as I try and store the first Register in this acquired storage 
area, Protection Exception - Abend  (I think it was a S0C4)
Anyway, Is there a sub pool to properly acquire storage that makes Batch and 
Online Happy or is GETMAIN better or what is the proper way to acquire storage 
in both Worlds ??

Sorry for the dump question but I cant find anything on this.

Thanks,

Tom
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: EXTERNAL: Compiling CICS COBOL 6 Programs with No EXEC CICS Commands

[Savor, Thomas]

If you use DYNAM, then all programs and sub-programs must reside in a LOAD 
Library that's concatenated to CICS under DFHRPL.

Thanks,

Tom



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
esst...@juno.com
Sent: Thursday, February 25, 2021 4:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXTERNAL: Compiling CICS COBOL 6 Programs with No EXEC CICS Commands

CAUTION: This email originated from outside of the company. Do not click links 
or open attachments unless you recognize the sender and know the content is 
safe.



Hello,
.
We are beginning to migrate our CICS V5.4 COBOL programs to COBOL 6.
.
I need some clarification on compiling CICS COBOL 6 Programs without a 
Translator.
These programs DO NOT contain any EXEC CICS commands and are invoked via a CALL 
statement and NOT an EXEC CICS LINK.
.
In this scenario should these CICS COBOL 6 programs be compiled with the DYNAM 
OR NODYNAM Cobol 6 option. These programs do not get compiled with a CICS 
Translator.
.
Paul D'Angelo
.
.
.

.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: EXTERNAL: Re: SVC 99 unallocating a concatenated dataset

[Savor, Thomas]

Hi Lennie,
I'm interestedPlease it as well

Thanks,

Tom

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
David Spiegel
Sent: Thursday, October 1, 2020 3:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXTERNAL: Re: SVC 99 unallocating a concatenated dataset

Hi Lennie,
I am interested. Please send it.

Thanks and regards,
David

On 2020-10-01 14:46, Lennie Dymoke-Bradshaw wrote:
> Long ago (actually 1989 I think) I wrote a CONCAT TSO command which can be 
> used to add or remove data sets from a concatenated list. It can also perform 
> a FREE. This loops round each entry in the concatenated set and frees each 
> data set.
>
> It still works a treat.
>
> I still have the code should anyone want it.
>
> Lennie Dymoke-Bradshaw
> Consultant working on contract for BMC mainframe Services by RSM
> Partners ‘Dance like no one is watching. Encrypt like everyone is.’
>
>
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Joseph Reichman
> Sent: 01 October 2020 18:25
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SVC 99 unallocating a concatenated dataset
>
> I’m running the program under test
> After I do decocatenate verb 04
> With the ddname text 01
> I get a rc 0 from SVC 99
> I then go to ISPF
> Do a ISRDDN
>
> And I have a number of files actually 100 Each with a ddname
> SYS7,SYS8  etc. This indicates to me that although they are
> decocatenated they are still allocated
>
> Thanks
>
>
>
>> On Oct 1, 2020, at 12:35 PM, Binyamin Dissen  
>> wrote:
>>
>> On Thu, 1 Oct 2020 07:58:56 -0400 Joseph Reichman
>> 
>> wrote:
>>
>> :>I allocate a number of datasets the last text unit being DALCLOSE
>> :>(unallocated on close)  In my  second step I concatenate the datasets. At
>> :>EOF I  close them after wards Ideconcatenate them My question is
>> :>shouldn't the individual datasets be unallocated as well
>>
>> What happens when you, thru JCL, concat several datasets with FREE=CLOSE?
>>
>> --
>> Binyamin Dissen 
>> https://eur02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.
>> dissensoftware.com%2Fdata=02%7C01%7Cthomas.savor%40fisglobal.com
>> %7C2be776a89a074b19153308d8663ff064%7Ce3ff91d834c84b15a0b418910a6ac57
>> 5%7C0%7C1%7C637371772099783416sdata=%2BhW4%2FI8Wgm6vUy%2Blzujep3
>> gz5fY67iWVbSqjkJuLYNA%3Dreserved=0
>>
>> 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...@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
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: EXTERNAL: Re: PL/I support of vector instructions?

[Savor, Thomas]

>Enterprise PL/I 5.2 supports ARCH(12) so has your desired vector instruction 
>support.  For completeness, so do Cobol 6.2, XL/C 2.3 and Java 8.5.  >Again no 
>source code change in PL/I is needed, just recompile with
>ARCH(12) option.  Really sad that IBM doesn't publicize these features 
>better vector usage can cut cpu and elapsed time dramatically (I've >seen 
>80% reduction for intensive programs).  Great reason to upgrade the hardware 
>and compilers :)

The vector instructions are faster ...we saw about 15% between ARCH(11) to 
ARCH(12).
BUT.
Before we got to that point, we have the rug yanked out from under us as 
evidently these vector instructions are VERY sensitive to field sizes.
Example:  The application that I was supporting, some of this code is from VSE 
(late 70's), on every transaction, the transaction date is calculated to insure 
if Leap Year or not.  This calculation has been there for 30+ years, it could 
care less what the answer is, just the remainder.  If remainder, not a leap 
year in simple termsanyway answer field was to small to do 
calculation...previous versions of Cobol or ARCH levels truncated the answer 
and we moved on and were happy.  ARCH(12), caused a major job that processed 
1.5 million transactions to go from 10-15 minutes to 1.5 to 2 hours.  Why ??  
Jobs ran to successful completion, but every transaction abended, went into 
abend recovery, recovered...said nothing...and continued onward.  Strobe said 
that we were spending 95% of our time in abend recovery...which upon further 
investigation pointed to Leap Year calculation error.  My opinion, Cobol should 
tell you when going into abend recovery, but it didn’t.

Thanks,

Tom

The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: Enterprise COBOL 6.3 and IBM Programmer Tools

[Savor, Thomas (Alpharetta)]

>So what can you do *today* if you have an immediate requirement for an AMODE 
>64 COBOL program per Tom Savor's comment, a program that must run both in CICS 
>>Transaction Server for z/OS and in non-CICS batch mode? Tom Marchant provides 
>one answer that works today and is fully IBM supported:
>compile both AMODE 31 and AMODE 64 versions of the same COBOL program from the 
>same source code. Invoke the former within CICS TS, and invoke the latter in 
>(non->CICS) batch, assuming the program can otherwise run both inside and 
>outside CICS TS. Before you dismiss this idea out of hand, let's recognize 
>that many software vendors >already do this and have for many years, for 
>example when they compile and distribute "performance tuned" and "compatible" 
>releases of their software products, each using >different compiler parameters 
>(ARCH, TUNE, etc., as applicable). Also, "debug" and "non-debug" versions, and 
>"ABO'ed" and "non-ABO'ed." Importantly, it's not two versions >of source code; 
>it's only two versions post-compilation.

For us, the programs that run in Batch and Online are DB2 i/o programs.  So 
your solution wont work for us as SQL and LP(64) are in-compatible.
 

Thanks,

Tom Savor

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

Re: it was 20 years ago today ....

[Savor, Thomas (Alpharetta)]

You mean the Mayor that killed corruption and the Mafia in Nyc...that idiot ?? 

Thanks,

Tom Savor
-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Barkow, Eileen
Sent: Friday, January 3, 2020 1:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: it was 20 years ago today 

  ⚠ EXTERNAL MESSAGE – Think Before You Click



The current and past idiot Rudolph  Guilianni

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jesse 1 Robinson
Sent: Friday, January 3, 2020 1:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: it was 20 years ago today 

OK, bonus homework question: who was mayor of New York City in Jan 1, 2000?

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

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

Re: Dynamic and static linked COBOL programs

[Savor, Thomas (Alpharetta)]

Look at the code:
If it says:  CALL  'program' using anything  this is a static call.  That 
program is expected to be in CALLers load module.
If it says:  CALL my-program using anything  this is a dynamic call.  That 
program is not in CALLers load module.
Then look for field my-programit has the name of program to be called. 

Thanks,

Tom Savor
-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
McCabe, Ron
Sent: Thursday, January 2, 2020 4:23 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Dynamic and static linked COBOL programs

  ⚠ EXTERNAL MESSAGE – Think Before You Click



Hello List,

Is there a way I can tell if a COBOL program was compiled and linked 
dynamically or statically?  Most of our programmers can't tell and there are 
times when they compile and link and static program as dynamic and it causes 
issues when the program is executed.

Thanks,
Ron McCabe
Manager of Mainframe/Midrange Systems
Mutual of Enumclaw


Confidentiality Notice: This e- mail and all attachments may contain 
CONFIDENTIAL information and are meant solely for the intended recipient. It 
may contain controlled, privileged, or proprietary information that is 
protected under applicable law and shall not be disclosed to any unauthorized 
third party. If you are not the intended recipient, you are hereby notified 
that any unauthorized review, action, disclosure, distribution, or reproduction 
of any information contained in this e- mail and any attachments is strictly 
PROHIBITED. If you received this e- mail in error, please reply to the sender 
immediately stating that this transmission was misdirected, and delete or 
destroy all electronic and paper copies of this e-mail and attachments without 
disclosing the contents. This e- mail does not grant or assign rights of 
ownership in the proprietary subject matter herein, nor shall it be construed 
as a joint venture, partnership, teaming agreement, or any other formal 
business relationship.

--
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 6.3 and IBM Programmer Tools

[Savor, Thomas (Alpharetta)]

If I read the Manual correctly, only Batch is 64-bit supported.  CICS is not 
64-bit supported.
I have many DB2 programs that run Batch and Online, so I guess they will have 
to be forced to run as 31-bit. 

Thanks,

Tom Savor
-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Tuesday, December 24, 2019 2:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Enterprise COBOL 6.3 and IBM Programmer Tools

  ⚠ EXTERNAL MESSAGE – Think Before You Click



A wild guess is that a debugger will need significant upgrades to support 
64-bit storage, a key feature of COBOL 6.3 as I understand things.

Charles


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

Re: Backward compat--how far?

[Savor, Thomas (Alpharetta)]

You can use AMODE 31, RMODE ANY for everything QSAM, BPAM...doesnt matter.
Sometimes a few more hoops have to be jumped thru, but it works just fine.

Thanks,

Tom Savor


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Monday, December 16, 2019 5:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Backward compat--how far?

  ⚠ EXTERNAL MESSAGE – Think Before You Click



AMODE 31, RMODE 24 is not illegal. It is what I would use if I were to write a 
non-RENT program that did QSAM or BPAM I/O.

If you think about it, it is a subset of the conditions allowed by AMODE 31, 
RMODE ANY.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Rupert Reynolds
Sent: Monday, December 16, 2019 1:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Backward compat--how far?

'Whinge' similar to 'complain'. Spellings vary :-)

You're right about the AMODE/RMODE, though. I had them reversed. AMODE 31, 
RMODE ANY, although it was AMODE 31, RMODE 24 in one circumstance I'd have to 
think about.

--
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: Findproc CBTTAPE ?

[Savor, Thomas (Alpharetta)]

>Hi. If you have IBM File Manager then the (FM) FM Enhanced Search 
>facility can be used to search the PROCLIB data sets for a string and 
>return a "smart" list of members containing the string. For z/OS 
>releases prior to
>2.2 SDSF is required. Look for the description of the EFind command in 
>the following section of the FM User's Guide and Reference:
>https://www.ibm.com/support/knowledgecenter/en/SSXJAV_14.1.0/com.ibm.fi
>lemanager.doc_14.1/base/enhancedschfac.html
>

Quick and Dirtyand Free:
If I needed to search members in a chain of PROCLIB's...
I would allocate those PROCLIB's to a DD under ISPFmaybe set this up in my 
logon clist.
Then ISRDDN from Option 6select the PROCLIB DD and search away.
ISRDDN also has a nice way of telling you where in the concatenation a member 
was found in first.

Thanks,

Tom Savor

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

Re: Just how secure are mainframes? | Trevor Eddolls

[Savor, Thomas (Alpharetta)]

In securing Mainframe:
 
One thing I've noticed over the years is how a Company will "hide" their 
Mainframe hardware.
The Hardware for me now is in a unmarked Building that looks like a bunker (I'm 
told).  Pretty bad that the location is in my town, however the address is NOT 
circulated.  The first installation that I worked at, it was well known where 
the data center was.  It was no issue to walk into Operations and tour new 
equipment or talk to operators.  Now, forget it.

Thanks,

Tom Savor

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Schuffenhauer, Mark
Sent: Wednesday, May 29, 2019 2:23 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Fwd: Just how secure are mainframes? | Trevor Eddolls

  ⚠ EXTERNAL MESSAGE – Think Before You Click



My sales favorite was knowing key functionality is vaporware, talking up 
everything the software would do some day. Then being horrified when you 
realize the 'decision makers' are eating it up.  None of them ends up in hell 
when the product doesn't work and the functionality delivery date keeps getting 
pushed forward... but, I got to work with a 3745 until 2009.

Security is no good without PEN testing and auditing from the  Security 
Technical Implementation Guide (STIG) documents.  If you haven't crossed your 
eyes and dotted your teas wait, reverse that.  Your odds of solid security 
can be greatly decreased.

No security by obscurity.
EBCDIC is not a method of encryption.
Stop people from using stupid passwords.  Ideally daily ID's have no elevated 
access, any elevated id must be checked out, activated, with a new password on 
each use.  I realize that would be messy, but if you have better password 
security(pass phrases, excluded words (months of the year, or seasons) or MFA 
going, never mind.  This isn't the paragraph you're looking for...

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Ray 
Overby
Sent: Wednesday, May 29, 2019 10:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Fwd: Just how secure are mainframes? | Trevor Eddolls

In response to "Mistakes, lack of time, lack of control, lack of skills.
Not a platform weakness." comment: The mainframe platform, z/OS, and ESM's all 
rely on integrity to function. A single TRAP DOOR code vulnerability pierces 
the veil of integrity and can be used to compromise the mainframe. Is this a 
platform weakness? I think so. The platform relies on all code it runs adhering 
to certain rules. z/OS could be changed to better check and enforce those rules.

Would you say that the elimination of User Key Common storage is an example of 
a z/OS change to address a mainframe platform weakness? I think so.

An interesting observation. Thanks.

On 5/29/2019 5:25 AM, R.S. wrote:
> That's classical FUD.
> Frightening people.
> "if an exploit", "if job reads you RACF db", "unintended consequences".
> What exactly hacking scenario can provide RACF db to the hacker?
> Yes, I saw APF libraries with UACC(ALTER), UID(0) as standard TSO user 
> attribute, even UPDATE to RACF db. But it's problem of people.
> Mistakes, lack of time, lack of control, lack of skills. Not a 
> platform weakness.
>
> It's typical that assurance/lock/gun salesmen tend to talk about 
> risks, threats and dangers. They create a vision.
> My English is poor, but I can observe it for two of debaters here.
> It's visible. I don't like social engineering.
>

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DISCLAIMER: This email and any attachments may contain confidential information 
that is intended solely for use by the intended recipient(s). If you are not 
the intended recipient, you are strictly prohibited from disclosing, copying, 
distributing or using any of the information contained in the communication. If 
you received this email in error, please contact the sender by reply email and 
immediately delete the communication.

--
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: Burroughs WFM vs. z/OS JCl and VSE JCL wasRe: REXX as JCL replacement

[Savor, Thomas (Alpharetta)]

Many years ago when Converting a DDA system from Burroughs to IBM, Burroughs 
packed fields had the annoying habit of putting the sign at the beginning of 
the fieldinstead of the end of the field like IBM.
Made for pages and pages of "Move with Offsets" in the Assembler 
programsCobol didn’t care for it at all.

Does Burroughs still do that ??

Thanks,

Tom Savor

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

Re: z/OS V2R5 Will be the Last Release to Include JES3

[Savor, Thomas (Alpharetta)]

Don't want to start a War between the 2 versions, but I'm curious as to why you 
believe JES3 to be superior to JES2 ??  Is this from a Systems perspective ??  
Maybe JES3 does far many things that JES2 doesn't IDK.  But for me, I'm not a 
System guy, I'm a technical guy that has worked with many applications for 
vendors.  Almost all sites I have worked on used JES2 (and I'm very comfortable 
with it).  But 1 site had JES3...when you develop a Credit Card application for 
a large Bank on JES2...it had about 3200+ jobs to run daily.  Putting those 
jobs on JES3 was a total disaster.  At the time, JES3 required all datasets to 
exist or the job would JCL Error.  Even jobs with a couple input files, 
creating an output file...it would require output to be there.  To fix this, it 
required us to split many jobs in half, some even more...the run total got to 
be somewhere around 6500+ jobs in total.  But we had to build dataset create 
jobs that were parm cards to a utility to create the files, because if JES3 
scanned the JCL and couldn't find it...boom JCL ERROR.

So, I was scarred because "I" saw this restriction as pretty stupid...and never 
saw the point.

To me JES2 is and was exactly what I believe it was designed for a tool to 
support and run applications very efficiently, whereas I felt that JES3 was 
getting in the way of normal application jobs.  Seemed like we were constantly 
trying to please JES3 in some way...so I hope and pray this "standard" wont 
make it to JES2.  

Thanks,

Tom Savor


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Seymour J Metz
Sent: Wednesday, February 27, 2019 4:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: z/OS V2R5 Will be the Last Release to Include JES3

I would consider JES3 superior to JES2, but such questions rarely have a 
consensus answer.

Is TSO really considered by all to be better than CMS? Is REXX really 
considered by all to be better than Perl? Is P/I really considered by all to be 
superior to C? I couldn't even get consensus on C versus C++, and they are at 
least similar.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of 
Savor, Thomas (Alpharetta) 
Sent: Wednesday, February 27, 2019 11:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: z/OS V2R5 Will be the Last Release to Include JES3

>That means a) IBM has until September 2023 to fully bring JES2 up to
>JES3 standard

Is JES3 really considered by all to be better than JES2 ??
I know it was 20 years ago, but JES3 gave me nightmares, whereas JES2 never has.
>From an application point of view.

Thanks,

Tom Savor

--
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: z/OS V2R5 Will be the Last Release to Include JES3

[Savor, Thomas (Alpharetta)]

>That means a) IBM has until September 2023 to fully bring JES2 up to
>JES3 standard

Is JES3 really considered by all to be better than JES2 ??
I know it was 20 years ago, but JES3 gave me nightmares, whereas JES2 never has.
From an application point of view.

Thanks,

Tom Savor

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

Re: Wells Fargo? Well f*&%#d at the moment: Data center up in smoke, bank website, app down . The Register

[Savor, Thomas (Alpharetta)]

>We've been doing DR mirroring for 20 years. It gets tested often. We've moved 
>production twice to another >data center using our procedures. What we've 
>never done is run production in another location >temporarily. 'Temporary' 
>means move it, run it until at least one transaction is committed, then move 
>it >*all* back. That is hugely complex and costly. 

>A lot of management fantasizes about a big A-B switch that we throw one way or 
>the other. So wrong.

About 5-6 years ago, I was working as a vendor (Daily Support) for Credit Card 
Software for Halifax/Bank of Scotland.  I believe the first time I was given a 
"heads up" was when we were supporting 12 Million Cardholders.  The "Heads up" 
was that on Friday evening at 6pm Main site was going to shut down and the 
whole weekend PRODUCTION was going to run on DR site, then 6am Monday Morning, 
Main site is to come back up and continue as if nothing happened !!!  I 
literally peed  in my pants !!!  Probably everyone in Atlanta could hear 
me...NO !!!  Thinking of all the network signons with Visa and 
Mastercard...all the credit card Authorizations...there was absolutely zero 
chance of this working without issues.

Well, came in Monday morning after receiving no calls over the week-end 
everything was fine.  We ran the Batch Monday night...and that would be 
pulling in transactions from over the week-end from DR site.  
NO ISSUES !!!   Everything was fine.

Whoever did this, from a Systems perspectiveI tip my hat.  I've never seen 
someone do this with Production, but it worked fine...so what do I know.  Never 
seen anyone else do this in my 42 years of Mainframing either.

Unfortunately, Halifax/Bank of Scotland is no longer with us.  They were 
absorbed by Lloyds Banking Group. 


Thanks,
Tom Savor

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

Re: [EXTERNAL] Re: how many OSes run on IBMz

[Savor, Thomas (Alpharetta)]

Here in the USBS = Bull S**t

Thanks,

Tom Savor


The polite translation is Bovine Scatology. Literally the stuff that comes out 
of the south end of a north-bound bull.

In a message dated 1/26/2019 8:39:10 AM Central Standard Time, 
r.skoru...@bremultibank.com.pl writes:
Enlight me, what is BS?

--
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: Are there compiler options to move Working Storage in Cobol above the line?

[Savor, Thomas (Alpharetta)]

DATA(31) - allocates working storage above-the-line
DATA(24) - allocates working storage below-the-line

ALL31 being OFF - is probably what is needed in a mixed  environment.
ALL31 being ON - would say that you have no below-the-line programs for COBOL 
to deal with.


Thanks,

Tom Savor
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Thursday, January 24, 2019 9:42 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Are there compiler options to move Working Storage in Cobol above 
the line?

So when I look at the compiler options, they have DATA(31)

ALL31 in LE is OFF

Only things I can think of for now.

Lizette

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

Re: Are there compiler options to move Working Storage in Cobol above the line?

[Savor, Thomas (Alpharetta)]

Use DATA(31)

Thanks,

Tom Savor
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Doug
Sent: Thursday, January 24, 2019 8:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Are there compiler options to move Working Storage in Cobol above 
the line?

What version of COBOL?

.

On Jan 24, 2019, at 20:06, Lizette Koehler  wrote:

A friend of mine is having a bit of problem with a Cobol program.  WS is about 
7M in size below the line.  This creates the perfect environment for S878-10 
abends.

Is there a compiler option that would move WS above the line?  Or is there a 
different solution.  If there is an option, what level of Cobol did it show up 
in?


No, I do not know what they are doing.  But I am told they cannot change the 
code.

Thanks



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

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

--
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: Pds Copy for Load Lib Members

[Savor, Thomas (Alpharetta)]

From what I see on PDSE, field PDS2TTRT is always low values.  So, if that 
holds true, PDSE wont be an issue.
Program will just need to determine if library is PDS or PDSEI can do that.
Now for a PDS, I need to figure out how to populate it. 

Thanks,

Tom Savor

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Monday, January 07, 2019 6:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Pds Copy for Load Lib Members

On Mon, 7 Jan 2019 22:55:32 +, Savor, Thomas (Alpharetta) wrote:

>I'm trying to write a copy program for Source code or Load Data from one Pds 
>to Another.
>
Doesn't IBM already supply one?

>The Source Code part seems to be working...no issues.
>The Load library code however, I cant seem to figure out how PDS2TTRT  is 
>populated.
> 
What will you do as more objects move to PDSE?  IBM owns the spec; doesn't 
readily disclose it; probably retains the right to change it (upward 
compatible) with no notice.

-- 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: Pds Copy for Load Lib Members

[Savor, Thomas (Alpharetta)]

I understand IBM supplies IEBCOPY.
I haven’t tried slaying the PDSE dragon yetjust regular PDS for now.
I was hoping it wasn’t classified info.  
It seems that CBT PDS calculates this but, it's doing some EXCP's...I don’t 
understand what its trying to do. 

I've learned a lot from writing my own...this is a learning experience.

Thanks,

Tom Savor


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Monday, January 07, 2019 6:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Pds Copy for Load Lib Members

On Mon, 7 Jan 2019 22:55:32 +, Savor, Thomas (Alpharetta) wrote:

>I'm trying to write a copy program for Source code or Load Data from one Pds 
>to Another.
>
Doesn't IBM already supply one?

>The Source Code part seems to be working...no issues.
>The Load library code however, I cant seem to figure out how PDS2TTRT  is 
>populated.
> 
What will you do as more objects move to PDSE?  IBM owns the spec; doesn't 
readily disclose it; probably retains the right to change it (upward 
compatible) with no notice.

-- 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

Pds Copy for Load Lib Members

[Savor, Thomas (Alpharetta)]

I'm trying to write a copy program for Source code or Load Data from one Pds to 
Another.
The Source Code part seems to be working...no issues.
The Load library code however, I cant seem to figure out how PDS2TTRT  is 
populated.

Here is an example:
- DSN=ISPF..LINKLIB,VOL=SER=DVL010  MEM=PDS$DMP1  -
>dir pds$dmp1
 PDS143I PDS$DMP1 DIRECTORY ENTRY, LENGTH=36
    D7C4E25B C4D4D7F1  01D9082C 01DA0400  *PDS$DMP1.R..*
  0010   02E2001C  C01CC000 8812  *.S..{.{...h.*
  0020  0101  **

 PDS262I LOC NAME VALUE DESCRIPTION
 PDS262I ---  - ---
 PDS262I 00  PDS2NAME PDS$DMP1  MEMBER NAME
 PDS262I 08  PDS2TTRP 01D908TTR OF FIRST BLOCK OF DATA
 PDS262I 0B  PDS2INDC 2C1 TTRS FOLLOW; 12 HALFWORDS OF DATA
 PDS262I 0C  PDS2TTRT 01DA04,00 TTR OF FIRST TEXT BLOCK
 PDS262I 10  PDS2TTRN 00,00 (NOT USED FOR THIS MEMBER)
 PDS262I 14  PDS2ATR1 02NOT REENTRANT; NOT REUS; NOT OVERLAY; NOT TEST
 PDS262INOT ONLY LOAD; NOT SCATTER; EXEC; NOT 1 TEXT
 PDS262I 15  PDS2ATR2 E2NOT DC; TEXT ORG=0; EP=0; HAS RLDS

The data was written to PDS using WRITE Macro, the Directory using STOW Add.
PDS2TTRT "seems" to be an offset as to where load member starts.  But there 
doesn't seem to be a clear way to calculate this.
I have looked at PDS from CBT, but I don't understand what's going on.
Sometimes for the same member, the "offset" changes.
Is there a simple way to figure out what this value should be ??

Thanks,

Tom Savor

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

Re: Where did IBM hide TASID?

[Savor, Thomas (Alpharetta)]

Is there Source code anywhere available for TASID ??
Personally, I'm just curious. 

Thanks,

Tom Savor

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

Re: OT: Rap music (was Re: opinion: multi-platform program design)

[Savor, Thomas (Alpharetta)]

Weird, here is the English translation I have:
You
You have
You have me
You have me to say
You have me to say
And I did not obey

Will you until death does sever
Be upright to her forever

Never

Will you 'til death be her rider
Her lover too, to stay inside her

Never

Thanks,

Tom Savor


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ron hawkins
Sent: Saturday, June 09, 2018 3:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: OT: Rap music (was Re: opinion: multi-platform program design)

You have asked me and I have said nothing.

From Du Hast - Rammstein.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
David Crayford
Sent: Friday, June 8, 2018 11:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [IBM-MAIN] OT: Rap music (was Re: opinion: multi-platform program 
design)

On 9/06/2018 7:03 AM, Ron hawkins wrote:
> You have asked me and I have said nothing.

Are they lyrics from a Barnsey song?

>
> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of Savor, Thomas (Alpharetta)
> Sent: Thursday, June 7, 2018 9:50 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: [IBM-MAIN] OT: Rap music (was Re: opinion: multi-platform 
> program design)
>
> Rammstein
>
> Thanks,
>
> Tom Savor
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of David Crayford
> Sent: Friday, June 08, 2018 12:12 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: OT: Rap music (was Re: opinion: multi-platform program
> design)
>
> On 8/06/2018 3:15 AM, Peter Hunkeler wrote:
>> It's amost Friday, right. At least here in Zurich
>>> Rap music is performed by those that can not sing so others can not think.
>> rap music? Isn't this a contradiction in terms ;-)
>
> What do you listen to, Beethoven? Ramstein? :)
>
>
>> Apologies to all the rappers out there, and the ones who like that 
>> contradiction, ahem.. music. No offense intended.
>>
>>
>> --
>> Peter Hunkeler
>>
>>
>>
>> -
>> - 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 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: OT: Rap music (was Re: opinion: multi-platform program design)

[Savor, Thomas (Alpharetta)]

Rammstein

Thanks,

Tom Savor


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Crayford
Sent: Friday, June 08, 2018 12:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: OT: Rap music (was Re: opinion: multi-platform program design)

On 8/06/2018 3:15 AM, Peter Hunkeler wrote:
> It's amost Friday, right. At least here in Zurich
>> Rap music is performed by those that can not sing so others can not think.
>
> rap music? Isn't this a contradiction in terms ;-)


What do you listen to, Beethoven? Ramstein? :)


>
> Apologies to all the rappers out there, and the ones who like that 
> contradiction, ahem.. music. No offense intended.
>
>
> --
> Peter Hunkeler
>
>
>
> --
> 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: Product license key program

[Savor, Thomas (Alpharetta)]

Brian,

Never thought about Using CPUID and/or machine type as part of a software key.

Generally speaking we try to stay away from tying application to any kind of 
machine.
Our application is typical Cobol/Asm, Batch/CICS and VSAM/DB2 system.
Cobol 5 was first change in years that required major changes to our 
application.
Usually a change to the Operating System has no effect on application executing 
properly.

But having said that, since I didn’t know really what makes up a key and how 
they work, this is an interesting change in direction and thinking.
Thanks for the ideas.

And thanks for the offer of helpI will almost certainly need it.   

Thanks,

Tom Savor

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

Re: Product license key program

[Savor, Thomas (Alpharetta)]

That's the problem. If you give customer Source code, they can get around the 
key.
The only thing I could think of, was to only deliver object to certain Batch 
and Online modules that never change.  Sort of Black Box those modules.

On the contract thingwell in our case at the time, it was a software sell 
and a bunch of mods we did for this Turkish Bank.  They owed us around 1 
million dollars...then they decided not to pay at all...all support for them 
ended.  The problem was that it was a State Owned Bankso we had to eat it.
It was a hard lesson to learn.

But even the keys, it was fascinating to see these keys.  I've tried to 
understand how in the World these workedi've seen a zap before to extended 
a product from now to next yearnow the zap looked like a couple of LA's 
applied to a module...and the product extended to next year.  But you don’t 
find ANY dates in this program, so how this is done has always been "Magic". 

Thanks,

Tom Savor


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Grinsell, Don
Sent: Monday, March 05, 2018 4:23 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Product license key program

Tom,

I guess it all depends on your contract terms.  If the software requires a key 
to run, then you should be able to get paid for delivering an updated key.  If 
you are delivering source code, well any competent programmer could probably 
circumvent your key logic and be prepared to face the consequences if you 
choose to audit them.  On the other hand, if the license key is for support, 
then they have rights to use the software as delivered, but upgrades or help 
would require an active subscription easily verified on your end.  

Regards,

Don

--
 
Donald Grinsell, Systems Programmer
Enterprise Technology Services Bureau
SITSD/Montana Department of Administration
406.444.2983 (D)


"It was as true as taxes is.  And nothing's truer than them."
~ Charles Dickens (1812-70)

> -Original Message-
> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On 
> Behalf Of Savor, Thomas (Alpharetta)
> Sent: Monday, March 05, 2018 2:01 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Product license key program
> 
> 
> Back to the keys question, I've tried to figure out how to even have 
> keys in the application system.
> Places that I've worked at, there have been times when getting paid 
> for our software or services has been difficult to collect, so what about 
> keys ??
> Well, that becomes a challenge when we have always delivered the code 
> to the customer...not really sure how to do that.
> 
> Thanks,
> 
> Tom Savor
> 
> --
> 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: Product license key program

[Savor, Thomas (Alpharetta)]

Your right...my bad.  Spelling is my crutch !!!

Thanks,

Tom Savor

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of J R
Sent: Monday, March 05, 2018 4:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Product license key program

I apologize up front for my pedantry.  However, in the context of this argument 
... er ... discussion, it seems apropos:
You typed 'incite' I think you meant 'insight'.
You typed 'site' I think you meant 'cite'  (twice).

Peace!

On Mar 5, 2018, at 16:02, Savor, Thomas (Alpharetta) 
<thomas.sa...@fiserv.com<mailto:thomas.sa...@fiserv.com>> wrote:

I would love to get your incite on something

--
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: Product license key program

[Savor, Thomas (Alpharetta)]

" OK, this discussion has reached the level of diminishing returns."

Man, I guess sothis "was" a very interesting discussion about software keys 
that has dissolved quickly.
Guys, I'm not a systems programmer, never have beenbut I'm kind of the 
Applications systems programmer if that exists.
Anyway, I thought Brian asked very thoughtful questions and asked for an 
opinion about which way to go...not a bunch of crap.   
I don’t know Brian at all, but if I could follow his questions, then they were 
probably pretty well explained.

Then there's SeymourI don’t know you either, but as an observation, you 
remind me of my brother.  He will argue with me about the sky being blue.
Some people "must" argue or correct you about everything...it's like it's their 
job or something.
I would love to get your incite on something without the constant seemingly 
condescending corrections to everything.
You may not mean to be condescending, but you come across that way to me.
If I worked at your shop, I wouldn’t ask you for help even if I knew you knew 
the answer, I wouldn’t want to hear the constant argument 
about what I'm doing.

Seymour, you are probably a genius...But at the end of the day, these constant 
corrections or arguments - Does it really matter ??
I site a couple years ago the constant bitching about UNIX or UCC.  People 
learn something and its called something at a site, as long as everyone 
understands what they are talking about...again, does it matter ?? If you 
alienate people, then they aren’t going to listen to you.  
There was a time when all your answer/emails went to the Trash can...and your 
drifting towards that again.  
Most of the time, when you site a sentence or even a wordI have no clue 
what you are talking about.  

Back to the keys question, I've tried to figure out how to even have keys in 
the application system.  
Places that I've worked at, there have been times when getting paid for our 
software or services has been difficult to collect, so what about keys ??
Well, that becomes a challenge when we have always delivered the code to the 
customer...not really sure how to do that.

Thanks,

Tom Savor

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

Re: SMS dataset oddity with COM-Plete

[Savor, Thomas (Alpharetta)]

Hardware Compression ??

Thanks,

Tom Savor

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Brian Westerman
Sent: Monday, February 19, 2018 2:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMS dataset oddity with COM-Plete

Changing SWA and keeping the UCB below the line had not effect, the problem 
still exists.

Brian

--
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: Possible Debug issue

[Savor, Thomas (Alpharetta)]

I tried 2000M...didnt get the errors.  I will pass it on to the tester.

Here is what 2000M gave me:
IEF032I STEP/EP2999  /STOP  2017345.1758   
CPU: 0 HR  00 MIN  00.15 SECSRB: 0 HR  00 MIN  00.02 SEC   
VIRT:   412K  SYS:   336K  EXT:28256K  SYS:11532K  
ATB- REAL:   208K  SLOTS: 0K   
 VIRT- ALLOC:  21M SHRD:   0M  



Thanks,

Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv
Office:  678-375-1307
Mobile: 404-660-6898
Fax:  678-375-3280
www.fiserv.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Wednesday, December 13, 2017 10:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Possible Debug issue

Depending on you IEFUSI or other functions used to control region size, you may 
not be getting what you think 0M gives you.

If you try the suggestion of 2000M for region and rerun the job, what do you 
get?

If you have an ACTRT exit in your shop - it may provide the virtual storage map 
at step end. There you should the Requested/Below/above/ and so forth of 
storage allocation for the step.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Savor, Thomas (Alpharetta)
> Sent: Tuesday, December 12, 2017 11:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Possible Debug issue
> 
> On this particular test that got all the storage error 
> messages..region was set to 0M
> 
> Thanks,
> 
> Tom Savor
> Software Developer, Sr
> FRMS-SCM
> Fiserv
> Office:  678-375-1307
> Mobile: 404-660-6898
> Fax:  678-375-3280
> www.fiserv.com
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Peter Hunkeler
> Sent: Wednesday, December 13, 2017 1:14 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: Re: Possible Debug issue
> 
> >Debug Tool and Fault Analyzer seem to take a huge amount of memory 
> >when
> working with COBOL 5.  Try setting REGION=2000M.
> 
> 
> What release of z/OS managed to move the whole common area above the bar?
> Seriously, 2000M will probably never be available in the private 
> region. But if you want to see how much you need to be able to debug, 
> within the maximum available, specify REGION=0M.
> 
> 
> --
> Peter Hunkeler
> 
> 
> 
> 
> 
> --
> Peter Hunkeler

--
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: Possible Debug issue

[Savor, Thomas (Alpharetta)]

This is what REGION=0M gave me:
IEF032I STEP/EP2999  /STOP  2017345.1334   
CPU: 0 HR  01 MIN  18.18 SECSRB: 0 HR  00 MIN  00.0
VIRT: 10492K  SYS:   512K  EXT:  1735996K  SYS:11932K  
ATB- REAL:   120K  SLOTS: 0
 VIRT- ALLOC:  20M SHRD:   0M  

Thanks,

Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv
Office:  678-375-1307
Mobile: 404-660-6898
Fax:  678-375-3280
www.fiserv.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barry Merrill
Sent: Wednesday, December 13, 2017 1:42 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Possible Debug issue

The IEF032I Joblog Message

IEF032I STEP/SAS9/STOP  2017344.2055
CPU: 0 HR  00 MIN  00.67 SECSRB: 0 HR  00 MIN  00.02 SEC
VIRT:   912K  SYS:   292K  EXT:46616K  SYS:11788K
ATB- REAL:  1044K  SLOTS: 0K
 VIRT- ALLOC:  11M SHRD:   0M

has the REGION SIZE allocated in the sum of the EXT + SYS  = 46616K+11788K= 
58404K = 57 MegaBytes

Barry


Merrilly yours,

 Herbert W. Barry Merrill, PhD
 President-Programmer
 Merrill Consultants
 MXG Software
 10717 Cromwell Drive  technical questions: supp...@mxg.com
 Dallas, TX 75229
 http://www.mxg.comadmin questions: ad...@mxg.com
 tel: 214 351 1966
 fax: 214 350 3694




-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Wednesday, December 13, 2017 9:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Possible Debug issue

Depending on you IEFUSI or other functions used to control region size, you may 
not be getting what you think 0M gives you.

If you try the suggestion of 2000M for region and rerun the job, what do you 
get?

If you have an ACTRT exit in your shop - it may provide the virtual storage map 
at step end. There you should the Requested/Below/above/ and so forth of 
storage allocation for the step.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Savor, Thomas (Alpharetta)
> Sent: Tuesday, December 12, 2017 11:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Possible Debug issue
> 
> On this particular test that got all the storage error 
> messages..region was set to 0M
> 
> Thanks,
> 
> Tom Savor
> Software Developer, Sr
> FRMS-SCM
> Fiserv
> Office:  678-375-1307
> Mobile: 404-660-6898
> Fax:  678-375-3280
> www.fiserv.com
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Peter Hunkeler
> Sent: Wednesday, December 13, 2017 1:14 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: Re: Possible Debug issue
> 
> >Debug Tool and Fault Analyzer seem to take a huge amount of memory 
> >when
> working with COBOL 5.  Try setting REGION=2000M.
> 
> 
> What release of z/OS managed to move the whole common area above the bar?
> Seriously, 2000M will probably never be available in the private 
> region. But if you want to see how much you need to be able to debug, 
> within the maximum available, specify REGION=0M.
> 
> 
> --
> Peter Hunkeler
> 
> 
> 
> 
> 
> --
> Peter Hunkeler

--
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: Possible Debug issue

[Savor, Thomas (Alpharetta)]

On this particular test that got all the storage error messages..region was 
set to 0M

Thanks,

Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv
Office:  678-375-1307
Mobile: 404-660-6898
Fax:  678-375-3280
www.fiserv.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter Hunkeler
Sent: Wednesday, December 13, 2017 1:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: Re: Possible Debug issue

>Debug Tool and Fault Analyzer seem to take a huge amount of memory when 
>working with COBOL 5.  Try setting REGION=2000M. 


What release of z/OS managed to move the whole common area above the bar?
Seriously, 2000M will probably never be available in the private region. But if 
you want to see how much you need to be able to debug, within the maximum 
available, specify REGION=0M. 


--
Peter Hunkeler





--
Peter Hunkeler 

--
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

Possible Debug issue

[Savor, Thomas (Alpharetta)]

Anybody ever get this when running a COBOL 5 program under Debug ??

13.34.47 JOB70977  +IEW2974T C008 REGION TOO SMALL TO ESTABLISH BINDER 
ENVIRONMENT.
 13.34.47 JOB70977  +IEW2974T C008 REGION TOO SMALL TO ESTABLISH BINDER 
ENVIRONMENT.
 13.34.47 JOB70977  +IEW2974T C008 REGION TOO SMALL TO ESTABLISH BINDER 
ENVIRONMENT.
 13.34.48 JOB70977  +IEW2971T C406 INSUFFICIENT ABOVE THE LINE STORAGE WAS 
AVAILABLE TO CONTINUE
 13.34.48 JOB70977  + BINDER PROCESSING.
 13.34.48 JOB70977  IEW4000I FETCH FOR MODULE CEEMENU3 FROM DDNAME -LNKLST- 
FAILED BECAUSE INSUFFICIENT STORAGE WAS AVAILABL
13.34.48 JOB70977  CSV031I LIBRARY ACCESS FAILED FOR MODULE CEEMENU3, RETURN 
CODE 24, REASON CODE 26080021, DDNAME *LNKLST*
13.34.48 JOB70977  IEW4000I FETCH FOR MODULE CBCDEBUG FROM DDNAME -LNKLST- 
FAILED BECAUSE INSUFFICIENT STORAGE WAS AVAILABL
13.34.48 JOB70977  CSV031I LIBRARY ACCESS FAILED FOR MODULE CBCDEBUG, RETURN 
CODE 24, REASON CODE 26080021, DDNAME *LNKLST*
13.34.48 JOB70977  IEW4000I FETCH FOR MODULE CBCDEBUG FROM DDNAME -LNKLST- 
FAILED BECAUSE INSUFFICIENT STORAGE WAS AVAILABL
13.34.48 JOB70977  CSV031I LIBRARY ACCESS FAILED FOR MODULE CBCDEBUG, RETURN 
CODE 24, REASON CODE 26080021, DDNAME *LNKLST*
13.34.48 JOB70977  IEW4000I FETCH FOR MODULE CBCDEBUG FROM DDNAME -LNKLST- 
FAILED BECAUSE INSUFFICIENT STORAGE WAS AVAILABL

Without Debug, no issues.
Never heard or seen these messages before.


Thanks,

Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv
Office:  678-375-1307
Mobile: 404-660-6898
Fax:  678-375-3280
www.fiserv.com



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

Re: Cobol File Question

[Savor, Thomas (Alpharetta)]

In your call to the second program...that has the FD, he owns the file.  If he 
is always opening the file on every call and "should" close file on 
exitthen I would be looking into where you can get out of 2nd program 
without executing Close.  Something like an error.

Thanks,

Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv
Office:  678-375-1307
Mobile: 404-660-6898
Fax:  678-375-3280
www.fiserv.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of scott Ford
Sent: Friday, December 01, 2017 5:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Cobol File Question

John,

Yes exactly.., until I can convince an overly cautious manager we should thread 
or multi-task.

Thanks , John..I needed a sanity check

On Dec 1, 2017, 4:55 PM -0500, John McKown , 
wrote:
> On Fri, Dec 1, 2017 at 3:42 PM, scott Ford  wrote:
>
> > All:
> >
> > Sorry for the Cobol question but i have a question..
> > I have s single thread STC calling a second Cobol program that 
> > second program opens files ( sysprint - defined as sequential ) and 
> > writes output. I need to close these files on termination of the STC.
> > We have built an API ...my thought is to pass a variable indicating 
> > to close the files and set a return-code and return back and have 
> > the STC check it..
> >
>
> ​OK. Your COBOL program #1 is doing a COBOL dynamic CALL of this 
> second program. The second program is doing an COBOL OPEN verb on an 
> FD whose SELECT is for DD SYSPRINT,? Am I correct so far? The second 
> program is not doing a COBOL CLOSE on the FD. When the second COBOL 
> program does a GOBACK, it returns to the first program. When the first 
> program terminates, the STC terminates. In this case, where some 
> program does an OPEN but there is no corresponding CLOSE, z/OS itself 
> will do a CLOSE on all still OPEN DDs when the __TCB__ under which 
> some program did the OPEN terminates. This is because OPEN chains DEBs 
> for all OPEN DDs on the TCB under which the OPEN was done. So if there 
> are any DEBs left on this chain, task termination does a CLOSE on them. This 
> is not good practice, but it generally works.
> VSAM data sets get an "abnormal close" set in the catalog for the DSN 
> which causes an "automatic VERIFY" when the VSAM cluster is next OPEN'd.
>
> Or am I totally off base as to what you are asking?
>
>
>
> >
> > Am i thinking right ?
> >
> > --
> >
> > *IDMWORKS *
> >
> > Scott Ford
> >
> > z/OS Dev.
> >
>
>
> --
> I have a theory that it's impossible to prove anything, but I can't 
> prove it.
>
> Maranatha! <><
> John McKown
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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


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

Re: Here's a horrifying thought for all you management types....

[Savor, Thomas (Alpharetta)]

As an "Assembler" guy.that's great news !

Thanks,

Tom Savor


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Beverly Caldwell
Sent: Thursday, October 05, 2017 11:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Here's a horrifying thought for all you management types

From an IBM red book, the one which describes Walmart’s adventures with CICS in 
a cloud.

From the section which describes the activities of the CICS and z/OS systems 
programmers:


“The traditional role of systems programmers over time became focused on system 
administration functions. But, to extend the capabilities of CICS, the 
old-school, multi-role technician must reemerge and embrace the latest 
technologies”


Well some of us never actually went away.


But wait, there’s more. It gets worse. Further on in the same article there’s 
talk of:

“Selecting HLASM and COBOL as service development languages.”

Programming, Jim? *Assembler* language programming? I don’t think we need any 
of *that* here.


What I would like to know is where were all the managers while all this 
programming was going on. Does Walmart have the most enlightened managers in 
the mainframe world or did they just not have a clue what was going on.
I suspect the latter, it’s unlikely Walmart’s managers are any different from 
anyone else’s.


A very interesting red book with lots of detailed information although I kept 
seeing the word 'service'. Not a word one would normally associate with Walmart.

--
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: thought on data integration: Using MS Excel & MQSeries to get data from z/OS.

[Savor, Thomas (Alpharetta)]

I'll state the obvious..
Can this "massage it in Excel" be determined to program it to just update it on 
z/OS ??
Seems like that would eliminate a bunch of CPU cycles transferring back and 
forth and storage to just formally figure out what the "massaging" is.

Thanks,

Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Tuesday, August 22, 2017 8:39 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: thought on data integration: Using MS Excel & MQSeries to get data 
from z/OS.

I have a programmer here who is talking about the subject. What is happening 
now is that the Actuarial department is "pestering" him with requests to 
extract data from a VSAM cluster (we don't have DB2 on z/OS), format it into a 
CSV, so that they can download it and import it into Excel. They then massage 
it in Excel, save it as a CSV, upload it to z/OS, and finally ask the 
programmer to load the changed data back into the VSAM cluster. I can imagine 
the shuddering going on, but this is _their_ data and not production data.

Perhaps needless to say, the programmer is getting tired of this.
Also, he is very busy with our revitalization of the z/OS system. He is 
familiar with MS VBA. So what he wants to do is to have a VBA program which can 
use the Windows MQSeries dll to communicate with a CICS transaction. This 
transaction would read or write the data on z/OS from the data in the Excel 
spreadsheet. Personally, I don't _do_ Windows, so I don't know how difficult 
this would be. But if anyone out there knows of any examples which might help 
him code up VBA in Excel with MQSeries, I would appreciate a pointer.

Actually, what I tried to push was giving the actuaries a way to generate an 
Easytrieve or COBOL program to do what they want, then submit a job via ftp to 
do the actual reading or writing of the VSAM data. We can do this in batch 
because we have SYSB, which allows a batch job to update a VSAM cluster via 
CICS.

--
If you look around the poker table & don't see an obvious sucker, it's you.

Maranatha! <><
John McKown

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


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

Re: STOP If Yo Heard This Before ... IBM Continues to shed Staff

[Savor, Thomas (Alpharetta)]

Maybe IBM will get David Brent to handle the redundancies in the UK.


Thanks,

Tom Savor

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of esst...@juno.com
Sent: Friday, March 31, 2017 4:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: STOP If Yo Heard This Before ... IBM Continues to shed Staff

https://www.theregister.co.uk/2017/03/31/ibm_bloodbath_continues/

--
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: COBOL/LE question

[Savor, Thomas (Alpharetta)]

IGZ0268W means that OS/VS COBOL is trying to interface with COBOL 5.  Which is 
a no-no.

Thanks,

Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv

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

Re: PDSe Question

[Savor, Thomas (Alpharetta)]

Interesting tidbit of info on this code in the manual that Greg pointed me to:



This code works perfectly as written:

...

  CHECK DECB1

  LHWORK1,DCBBLKSI   Block size at time of READ

  L WORK2,DECB1+16   Status area address

  SHWORK1,14(WORK2)  WORK1 has block length

  ...



Of course being curious it looks to me that DECB+16 points to IOB Address

Then looking at the IOB DSECT (IEZIOB), 14 from the beginning = returned block 
length.

14 from the beginning is accurate...from  my dump.



However when trying to map this with IEZIOB, it seems to have wrong 
displacement.

  ORG   IOBPREFX@L3A

  SPACE 1

 ***@L3A

** @L3A

**NORMAL SCHEDULING PRE-PREFIX @L3A

***** 8 BYTES  @L3A

** @L3A

***@L3A

  SPACE 1

 IOBVIDAN DSF VIRTUAL IDAW FOR QSAM, BSAM, BPAM NORMAL  @L3A

*  SCHEDULING, BUFFER START ADDR   @L3A

IOBVIDA2 DS0FVIRTUAL IDAW WHEN NOT BEGINNING OF BUFFER,@L5C

*  USED FOR UNIT RECORD DEVICES ONLY   @L5C

IOBLENRD DSF LENGTH OF BLOCK READ, LBI @L5A



Instead of ORGing back to the beginning, it should ORG to IOBPREFX+8 to make 
the displacement correct.

IOBLENRD should displace to 000C, but DSECT has it at 0004.





Thanks,



Tom Savor

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

Re: PDSe Question

[Savor, Thomas (Alpharetta)]

>How to determine the length of the block for a BSAM/BPAM RECFM=FB dataset is 
>fully described in the z/OS DFSMS Using >Data Sets book, Processing Sequential 
>Data Sets, Determining the Length of a Block.
>Greg

>https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.idad400/len99.htm?lang=en

That's exactly what I was looking far.  Never knew that the DECB had much 
useful, but it looks that it has everything I need.
Thanks for this.

Thanks,

Tom Savor

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

Re: PDSe Question

[Savor, Thomas (Alpharetta)]

>Might want to look at some of PDS-CBT File 182 PDSE commands. The source is  
>provided for IEFPDSE and others...  

I did look at IEFPDSE, but I doesn't read the all directory and member records.
I looked at 182 PDSMAIN program, cant say that I understand exactly whats 
happening.
I've never used EXCP instructions before.hopefully that's not necessary.

Thanks,

Tom Savor

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

Re: PDSe Question

[Savor, Thomas (Alpharetta)]

> And if your member, by happenstance, exactly fills the whole last block, what 
> happens?  Or have you just been lucky to date?

Calculate DCBLRECL from OPEN (saved) = 80 divided into DCBLRECL after READ = 
27920.  Simple calculation gives me 349 records to process.

>I would expect that each member is followed by an end-of-file, causing an 
>EODAD exit to be entered.  I'd be surprised if PDSE doesn't behave that way.

You do receive an EODAD on the next read, but in my example of 500 lines in a 
program
first Read = full block (349 records), second Read = short block (actually 151 
records, but program thinks its 349), next read gets EODAD.

>Use QSAM with LRECL=80.

I'm using BPAM, LRECL=80, DSORG=PO.
I'm processing all members of a PDS or PDSe.  Could be 5 members or 5000 
members, either way program should handle it.
 

Thanks,

Tom Savor

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

Re: PDSe Question

[Savor, Thomas (Alpharetta)]

>>I've run into another PDSe problem.
>>When I was reading through a PDS file of Source Code, I would define 
>>DCB as RECFM=U, After the OPEN, DCBLRECL = Record Length. DCBBLKSI = 
>>File Block Size After issuing a READ, DCBLRECL would be the Actual Block Size.
>>My PDS :  LRECL=80, BLKSIZE=27920 Number of records per block = 349 So 
>>if a program has 500 lines of code:
>>First read DCBLRECL would = 27920, Number of lines would = 349 Next 
>>read DCBLRECL would = 12080, Number of lines would = 151 Maybe it was 
>>an accident, but this has worked for me forever.
>>
>>Now same program using same DCB definition, determines than it's a PDSe 
>>before the OPEN.
>>If it's a PDSe, program changes RECFM to be FBwhich returned a full block 
>>of records.
>>How do I tell when the difference between a full block and a short block on a 
>>PDSe ??
>>Hope I explained this right.
>>
>I don't think block boundaries mean much to a PDSE which keeps everything in 
>4KiB pages.
>You can override with any DCBBLKSI from 80 to 27920 and a READ will fetch 
>enough records to fill that block.

>Customarily, RECFM=U indicates a Program Object.  Perhaps PDSE enforces this.

>What are you trying to do?

Well I read though the directory, Execute a FIND on Member Name, then Execute a 
READ on the Source Code.
This Source Code is our Cobol or Assembler programs or copybooks, that I will 
pull certain tagged code from one library to another.  PDS works fine, but PDSe 
isn’t telling me when I get a short block.  Program thinks its getting a full 
block read no matter whether program has 50 records or 500 records.  I cant 
tell when there aren’t enough records to fill whole block.

Like I said, maybe I got lucky or it was an accident.but I used RECFM=U 
definition for our Source Code library and looking DCBLRECL after executing 
each READ macro gave me actual block sizefull or short.  That allowed me to 
calculate when a member was finished.  

Thanks,

Tom Savor

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

PDSe Question

[Savor, Thomas (Alpharetta)]

I've run into another PDSe problem.
When I was reading through a PDS file of Source Code, I would define DCB as 
RECFM=U,
After the OPEN, DCBLRECL = Record Length. DCBBLKSI = File Block Size
After issuing a READ, DCBLRECL would be the Actual Block Size.
My PDS :  LRECL=80, BLKSIZE=27920 Number of records per block = 349
So if a program has 500 lines of code:
First read DCBLRECL would = 27920, Number of lines would = 349
Next read DCBLRECL would = 12080, Number of lines would = 151
Maybe it was an accident, but this has worked for me forever.

Now same program using same DCB definition, determines than it's a PDSe before 
the OPEN.
If it's a PDSe, program changes RECFM to be FBwhich returned a full block 
of records.
How do I tell when the difference between a full block and a short block on a 
PDSe ??
Hope I explained this right.


Thanks,

Tom Savor




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

Re: Outsourcing Stories Good or Bad!

[Savor, Thomas (Alpharetta)]

Vignesh,

Until you have had your job (your way of life) ripped away from you, you cant 
get upset when folks get testy.
Management loves to tell their bosses that we are going to Outsource 
ITsaving boat loads of money, but of course they will get a huge bonus once 
its Outsourced.  Then they will disappear once there is a debris field of 
problems.  Who's going to get them out of the ditch.well those same folks 
that you either laid-off, forced to retire or if you are lucky, still work 
there.

We know that Outsourced folks aren't as good as local staffproblem is 
Management doesn't see it that way.
They see a Cobol programmer is a Cobol programmernot a Cobol programmer 
with 40 years experience and 20-30 years on an application verses a Cobol 
programmer right out of school.  Those 40 years of experience has shown me how 
to code a program or how to fix a problem.unfortunately many times it's 
because we know what will NOT work.  So, once we find a way or method of doing 
things, we stick with itit's called experience.

One of the reasons these guys and gals know s much about Z/oS Operating 
System is because they didn't start at Z/oS, many started back in the DOS/VS 
days.  My opinion, Systems folks "had" to know a lot more about the Operating 
System then they do today.  They didn't have all the fancy cool tools that say 
Candle or CA or BMC put out today.  Many times, they had to roll up their 
sleeves and make Programming changes to the Operating System or to an 
Application in a ditch.  

>From an application side, there was no such thing as a job scheduler.  
>Scheduling jobs was a part of the Lead Operators job.  Along with knowing what 
>jobs can run togetherenough memory or what disk packs were mounted.  When 
>was the last time you mounted disk packs each night ??  I used to do it all 
>the timenow, no one does it.

I personally don't like Outsourcing at all.  The joke is that, this can be done 
and no one will notice or there wont be "much" of a cost.  How much cost is the 
Business willing to take ??  How much control are you willing to give up ??  Is 
it good business to have business in one Country, IT in another ??  Could be 
HUGE Customer Privacy or Business interests when IT is in a different Country.  
As a vendor, how do I know that my code will be safe in another Country ??

Sorry guys, off my box nowback to work.

Thanks,

Tom Savor
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Thursday, February 25, 2016 3:52 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Outsourcing Stories Good or Bad!

>No one's forcing you to Ed. But I'm guessing you're helping around here 
>because you love what you do, not because you >want to help "your people" 
>alone.
>One can't learn a lot from equals, and one certainly can't learn a lot from 
>those who are (for the lack of a more sensitive >phrase) below them.
>Sure, if this community doesn't want to help, that means workload mounts for 
>IBM in the form of a trillion more service >requests lol.
>But those who are here to learn will find a way.

- Vignesh
Mainframe Infrastructure

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

Re: COBOL v5

[Savor, Thomas (Alpharetta)]

I'm not sure about the ISAM part.  I HATED ISAM.  If you enjoy watching your 
jobs grind away seemingly foreverthen you liked ISAM.  I've always loved 
VSAMmaybe because I hated ISAM so much.

Ever have ISAM job that did an Update in Place (not file in/ file out)ugghh 
 !

Thanks,
Tom


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of R.S.
Sent: Thursday, January 28, 2016 5:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL v5

W dniu 2016-01-28 o 19:44, Charles Mills pisze:
> I cannot speak for IBM, but IMHO they may have felt that way at one 
> time, but EC 5.2 is clearly an investment on IBM's part and a 
> commitment to the future of COBOL.
>
> You can't make an omelet without breaking eggs. "Add new features" and 
> "make it go into an old-fashioned load module" are potentially 
> inconsistent requirements.
>
Well, IMHO there are two kinds of mainframe customers:

a) Legacy
We don't want PDSE, We don't want binder. We don't want SMS. We still want VSAM 
passwords. We don't want VSAM. ISAM was good. We don't want FICON. We want 
ESCON ...for BUS connectivity. We want 3274...

b) modern
We want COBOLE AMODE64. We want HFS/ZFS >4GB. We want DSORG=PO to be 
multi-volume. We want JCL modifications. Etc.

The problem is satisfying b) means troubles for a) group.


--
Radoslaw Skorupka
Lodz, Poland






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

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

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


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

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

Re: Compile error

[Savor, Thomas (Alpharetta)]

>"The name DB2, or IBM Database 2, was first given to the Database Management 
>System or DBMS in 1983 when IBM >released DB2 on its MVS mainframe platform." 
>-- Wikipedia, citing an IBM manual as authority.

All these years, I've have only known of DB2.  The name seems to have stuck.
  
Was there ever a DB1 ??
Will there ever be a DB3 ??

Thanks,
Tom

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

Re: How the determine dataset is PDSE

[Savor, Thomas (Norcross)]

>I *think* (too involved in something else to open the manuals) that SVC 99 
>information retrieval will give you this information for an open or not open 
>DD name.
Ok, I think I see DSNTYPE field can be returned from DYNALLOCif I can 
figure TEXT UNITS fields properlywow.

Thanks for your and everyone else's help.

Tom

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

Re: How the determine dataset is PDSE

[Savor, Thomas (Norcross)]

>Looks like the ISITMGD macro/system service can ascertain if a dataset is a 
>PDSE.
Hummlooks very interesting.
Hate to admit it, but I never heard of this macro...but I'm going to try it out 
and see.

Thanks,
Tom

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

Re: How the determine dataset is PDSE

[Savor, Thomas (Norcross)]

>One might wonder why it matters.  I suppose it might.  Does the OP also want 
>to distinguish the cases of:
Don’t care about UNIX.
Yes, it is in some of my assembler programs.
I have a bunch of PDS utility batch programs that have worked fine for PDS.
But for PDSe not so much.
On a PDS...reading the directory...a use MACRF=R,RECFM=Uworks great.
On a PDSE...reading the directoryit looks like I need MACRF=R,RECFM=FB.

We have both PDS's and PDSe's everywhere.

So, I would like to Open the DD, then determine what type of PDS it is, then 
process file.
I may have to close, change DCB field and re-open.
Or determine what type of PDS a file is before opening it...if that's possible.

Tom  


--
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

How the determine dataset is PDSE

[Savor, Thomas (Norcross)]

Sorry for the Jr Question:

When I open a file, how can I tell if file is a PDS or PDSE ??
I don’t see anything in DCBD or IHADCBE.
I know that the DSORG=PO for both and PDSE has DSNTYPE=LIBRARY.
So somewhere the DSNTYPE is set….where ??

Thanks,
Tom

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