Re: REXX parse parens

[Bruce Hewson]

I use this code:-

/*===*/
Strip_Keyword_and_Option:  
 Procedure Expose keyword option   
 Parse Arg string  
 Parse Var string keyword temp "(" +0 string   
 option = ""   
 If (temp <> "" | string = "") Then Do 
   string = temp || string 
 End   
 Else Do   
   option = Substr(string, 2, Find_the_Match(1) -2, ")")   
   string = Substr(string, length(option) +3)  
   option = Strip(option)  
 End   
 If Left(keyword,1) = "," Then keyword = Substr(keyword,2) 
 Parse Var keyword keyword "=" temp
 If Strip(temp) <> "" Then Do  
   If Pos(",",temp) > 0 Then Do
 Parse Var temp temp "," trail 
 string = trail || "(" || option || ")" || string  
   End 
   option = temp   
 End   
 If Pos(",",keyword) > 0 Then Do   
   Parse Var keyword keyword "," temp  
   string = temp || "(" || option || ")" || string 
   Parse Var keyword keyword "=" option
 End   
 Return string 
   
Find_the_Match:
 Procedure Expose string   
 Do i= Arg(1) +1 to Length(string) 
   If (Substr(string, i, 1) = "(") Then Do 
 i = Find_the_Match(i) 
   End 
   Else Do 
 If (Substr(string, i, 1) = ")") Then Do   
   Return i
 End   
   End 
 End   
 Return i  
/*===*/

On Mon, 1 May 2023 23:30:51 +, Frank Swarbrick 
 wrote:

>The following is a simplified version of some code from IBM's CEEBLDTX, placed 
>in to an EXEC I've named PARENS:
>
>Parse Arg option
>Parse Var option varOpt '(' valueOpt ')'
>Say varOpt
>Say valueOpt
>
>This handles a simple dataset name, e.g.:
>
>Test1:  PARENS COBOL(TEST):
>Results1:
>COBOL
>TEST
>
>But it doesn't work for a PDS member to following, also surrounded by 
>parentheses:
>
>Test2:  PARENS COBOL(TEST(MEMBER))
>Results2:
>COBOL
>TEST(MEMBER
>
>Any simple REXX parse option to handle this, or do I need to resort to more 
>complex REXX?  Or do I just add a trailing paren if there is a leading one in 
>valueOpt?  Perhaps that's the simples answer.
>
>Frank
>
>

Regards
Bruce

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

Re: The mainframe is now DOWN

[Bob T Roller]

Kudos to being able to run a mainframe & zOS release long past its expected 
lifespan.

Sent from Proton Mail for iOS

On Tue, May 2, 2023 at 10:45 AM, John McKown 
<[john.archie.mck...@gmail.com](mailto:On Tue, May 2, 2023 at 10:45 AM, John 
McKown < wrote:

> I just shutdown HealthMarkets z9BC running z/OS1.12 for the final time. We
> are going to allow our Production Control person to power it off. Then
> lunch. 蠟蠟
>
> --
> 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

IBM-MAIN

[Darren Evans-Young]

Haven't had to remind folks of this in a awhile. This list is for the 
discussion of IBM Mainframes.
Not political discussions/opinions and other worthless sh*t that I and others 
really don't care
about.  If it continues, I will start removing people from the list.

Thank you for your cooperation.

Darren

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

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Lionel B Dyck]

Please take this discussion offline. 

Lionel B. Dyck <
Website: www.lbdsoftware.com
Sent from my iPhone 12 Pro

Worry more about your character than your reputation.  Character is what you 
are, reputation merely what others think you are." - John Wooden 

> On May 2, 2023, at 9:14 PM, Bill Johnson 
> <0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:
> 
> Capitalism is America. Taxpayer funded subsidies for oil companies who are 
> making record profits off of a non capitalist organization called OPEC+. Farm 
> subsidies for farms mostly owned by massive conglomerates. Pharmaceutical 
> companies whose research is funded by taxpayers. Capitalism is a catchphrase 
> only.
> 
> Amid debates over costs—and profits—from a coronavirus vaccine, a new study 
> shows that taxpayers have been footing the bill for every new drug approved 
> between 2010 and 2019
> 
> 
> Sent from Yahoo Mail for iPhone
> 
> 
> On Tuesday, May 2, 2023, 9:33 PM, Mike Schwab  wrote:
> 
> A lot of the programs that got the U.S. of of the great depression was
> authored by Henry Wallace, Secretary of Agriculture, U.S. V.P 1941-44.
> He recorded his Century of the Common Man speech
> https://www.youtube.com/watch?v=CAKrIdSPkHI .
> Corporate delegate blocked his nomination for VP in 1944, I think the
> world would have been much better if he had been in instead of Truman
> 
>> On Tue, May 2, 2023 at 7:50 PM Bill Johnson
>> <0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:
>> 
>> LOL, the US has boatloads of socialism. The military, infrastructure, 
>> schools, insurance of all kinds, social security, Medicare/Medicaid, and 
>> much more. Capitalism is what the right screams to kowtow to the lesser 
>> educated. There are zero capitalist countries on the planet. Much of your 
>> success is from socialism. Reminds me of this.
>> 
>> 
>> An oldie but goodie
>> 
>> Joe gets up at 6 a.m. and fills his coffeepot with water to prepare his 
>> morning coffee. The water is clean and good because some tree-hugging 
>> liberal fought for minimum water-quality standards. With his first swallow 
>> of coffee, he takes his daily medication. His medications are safe to take 
>> because some stupid commie liberal fought to ensure their safety and that 
>> they work as advertised.
>> 
>> All but $10 of his medications are paid for by his employer's medical plan 
>> because *some liberal* union workers fought their employers for paid medical 
>> insurance - now Joe gets it too. He prepares his morning breakfast, bacon 
>> and eggs. Joe's bacon is safe to eat because some girly-man liberal fought 
>> for laws to regulate the meat packing industry.
>> 
>> In the morning shower, Joe reaches for his shampoo. His bottle is properly 
>> labeled with each ingredient and its amount in the total contents because 
>> some crybaby liberal fought for his right to know what he was putting on his 
>> body and how much it contained.
>> 
>> Joe dresses, walks outside and takes a deep breath. The air he breathes is 
>> clean because some environmentalist wacko liberal fought for laws to stop 
>> industries from polluting our air. He walks to the subway station for his 
>> government-subsidized ride to work. It saves him considerable money in 
>> parking and transportation fees because some fancy-pants liberal fought for 
>> affordable public transportation, which gives everyone the opportunity to be 
>> a contributor.
>> 
>> Joe begins his work day. He has a good job with excellent pay, medical 
>> benefits, retirement, paid holidays and vacation because some lazy liberal 
>> union members fought and died for these working standards. Joe's employer 
>> pays these standards because Joe's employer doesn't want his employees to 
>> call the union. If Joe is hurt on the job or becomes unemployed, he'll get a 
>> worker compensation or unemployment check because some stupid liberal didn't 
>> think he should lose his home or go hungry because of his temporary 
>> misfortune.
>> 
>> It's noontime and Joe needs to make a bank deposit so he can pay some bills. 
>> Joe's deposit is federally insured by the FSLIC because some godless liberal 
>> wanted to protect Joe's money from unscrupulous bankers who ruined the 
>> banking system before the Great Depression.
>> 
>> Joe has to pay his Fannie Mae-underwritten mortgage and his below-market 
>> federal student loan because some elitist liberal decided that Joe and the 
>> government would be better off if he was educated and earned more money over 
>> his lifetime.
>> 
>> Joe is home from work. He plans to visit his father this evening at his farm 
>> home in the country. He gets in his car for the drive. His car is among the 
>> safest in the world because some America-hating liberal fought for car 
>> safety standards. He arrives at his boyhood home. His was the third 
>> generation to live in the house financed by Farmers' Home Administration 
>> because bankers didn't want to make rural loans. The house didn't have 

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Bill Johnson]

Capitalism is America. Taxpayer funded subsidies for oil companies who are 
making record profits off of a non capitalist organization called OPEC+. Farm 
subsidies for farms mostly owned by massive conglomerates. Pharmaceutical 
companies whose research is funded by taxpayers. Capitalism is a catchphrase 
only.

Amid debates over costs—and profits—from a coronavirus vaccine, a new study 
shows that taxpayers have been footing the bill for every new drug approved 
between 2010 and 2019


Sent from Yahoo Mail for iPhone


On Tuesday, May 2, 2023, 9:33 PM, Mike Schwab  wrote:

A lot of the programs that got the U.S. of of the great depression was
authored by Henry Wallace, Secretary of Agriculture, U.S. V.P 1941-44.
He recorded his Century of the Common Man speech
https://www.youtube.com/watch?v=CAKrIdSPkHI .
Corporate delegate blocked his nomination for VP in 1944, I think the
world would have been much better if he had been in instead of Truman

On Tue, May 2, 2023 at 7:50 PM Bill Johnson
<0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:
>
> LOL, the US has boatloads of socialism. The military, infrastructure, 
> schools, insurance of all kinds, social security, Medicare/Medicaid, and much 
> more. Capitalism is what the right screams to kowtow to the lesser educated. 
> There are zero capitalist countries on the planet. Much of your success is 
> from socialism. Reminds me of this.
>
>
> An oldie but goodie
>
> Joe gets up at 6 a.m. and fills his coffeepot with water to prepare his 
> morning coffee. The water is clean and good because some tree-hugging liberal 
> fought for minimum water-quality standards. With his first swallow of coffee, 
> he takes his daily medication. His medications are safe to take because some 
> stupid commie liberal fought to ensure their safety and that they work as 
> advertised.
>
> All but $10 of his medications are paid for by his employer's medical plan 
> because *some liberal* union workers fought their employers for paid medical 
> insurance - now Joe gets it too. He prepares his morning breakfast, bacon and 
> eggs. Joe's bacon is safe to eat because some girly-man liberal fought for 
> laws to regulate the meat packing industry.
>
> In the morning shower, Joe reaches for his shampoo. His bottle is properly 
> labeled with each ingredient and its amount in the total contents because 
> some crybaby liberal fought for his right to know what he was putting on his 
> body and how much it contained.
>
> Joe dresses, walks outside and takes a deep breath. The air he breathes is 
> clean because some environmentalist wacko liberal fought for laws to stop 
> industries from polluting our air. He walks to the subway station for his 
> government-subsidized ride to work. It saves him considerable money in 
> parking and transportation fees because some fancy-pants liberal fought for 
> affordable public transportation, which gives everyone the opportunity to be 
> a contributor.
>
> Joe begins his work day. He has a good job with excellent pay, medical 
> benefits, retirement, paid holidays and vacation because some lazy liberal 
> union members fought and died for these working standards. Joe's employer 
> pays these standards because Joe's employer doesn't want his employees to 
> call the union. If Joe is hurt on the job or becomes unemployed, he'll get a 
> worker compensation or unemployment check because some stupid liberal didn't 
> think he should lose his home or go hungry because of his temporary 
> misfortune.
>
> It's noontime and Joe needs to make a bank deposit so he can pay some bills. 
> Joe's deposit is federally insured by the FSLIC because some godless liberal 
> wanted to protect Joe's money from unscrupulous bankers who ruined the 
> banking system before the Great Depression.
>
> Joe has to pay his Fannie Mae-underwritten mortgage and his below-market 
> federal student loan because some elitist liberal decided that Joe and the 
> government would be better off if he was educated and earned more money over 
> his lifetime.
>
> Joe is home from work. He plans to visit his father this evening at his farm 
> home in the country. He gets in his car for the drive. His car is among the 
> safest in the world because some America-hating liberal fought for car safety 
> standards. He arrives at his boyhood home. His was the third generation to 
> live in the house financed by Farmers' Home Administration because bankers 
> didn't want to make rural loans. The house didn't have electricity until some 
> big-government liberal stuck his nose where it didn't belong and demanded 
> rural electrification.
>
> He is happy to see his father, who is now retired. His father lives on Social 
> Security and a union pension because some wine-drinking, cheese-eating 
> liberal made sure he could take care of himself so Joe wouldn't have to.
>
> Joe gets back in his car for the ride home, and turns on a radio talk show. 
> The radio host keeps saying that liberals are 

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Bill Johnson]

Al Gore would have been infinitely better than Bush II. The Supreme Court 
conservative majority picked their boy. 2 wars and 9/11 later, the money spent 
fighting useless wars is still being paid. The economic prosperity of the post 
WWII decades would be hard to beat. The middle class in America boomed under 
mostly democratic presidents. Taxes on wealth were high but didn’t slow the 
incredible growth in the US. Speculation on Wallace is nothing but pure 
speculation. 


Sent from Yahoo Mail for iPhone


On Tuesday, May 2, 2023, 9:33 PM, Mike Schwab  wrote:

A lot of the programs that got the U.S. of of the great depression was
authored by Henry Wallace, Secretary of Agriculture, U.S. V.P 1941-44.
He recorded his Century of the Common Man speech
https://www.youtube.com/watch?v=CAKrIdSPkHI .
Corporate delegate blocked his nomination for VP in 1944, I think the
world would have been much better if he had been in instead of Truman

On Tue, May 2, 2023 at 7:50 PM Bill Johnson
<0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:
>
> LOL, the US has boatloads of socialism. The military, infrastructure, 
> schools, insurance of all kinds, social security, Medicare/Medicaid, and much 
> more. Capitalism is what the right screams to kowtow to the lesser educated. 
> There are zero capitalist countries on the planet. Much of your success is 
> from socialism. Reminds me of this.
>
>
> An oldie but goodie
>
> Joe gets up at 6 a.m. and fills his coffeepot with water to prepare his 
> morning coffee. The water is clean and good because some tree-hugging liberal 
> fought for minimum water-quality standards. With his first swallow of coffee, 
> he takes his daily medication. His medications are safe to take because some 
> stupid commie liberal fought to ensure their safety and that they work as 
> advertised.
>
> All but $10 of his medications are paid for by his employer's medical plan 
> because *some liberal* union workers fought their employers for paid medical 
> insurance - now Joe gets it too. He prepares his morning breakfast, bacon and 
> eggs. Joe's bacon is safe to eat because some girly-man liberal fought for 
> laws to regulate the meat packing industry.
>
> In the morning shower, Joe reaches for his shampoo. His bottle is properly 
> labeled with each ingredient and its amount in the total contents because 
> some crybaby liberal fought for his right to know what he was putting on his 
> body and how much it contained.
>
> Joe dresses, walks outside and takes a deep breath. The air he breathes is 
> clean because some environmentalist wacko liberal fought for laws to stop 
> industries from polluting our air. He walks to the subway station for his 
> government-subsidized ride to work. It saves him considerable money in 
> parking and transportation fees because some fancy-pants liberal fought for 
> affordable public transportation, which gives everyone the opportunity to be 
> a contributor.
>
> Joe begins his work day. He has a good job with excellent pay, medical 
> benefits, retirement, paid holidays and vacation because some lazy liberal 
> union members fought and died for these working standards. Joe's employer 
> pays these standards because Joe's employer doesn't want his employees to 
> call the union. If Joe is hurt on the job or becomes unemployed, he'll get a 
> worker compensation or unemployment check because some stupid liberal didn't 
> think he should lose his home or go hungry because of his temporary 
> misfortune.
>
> It's noontime and Joe needs to make a bank deposit so he can pay some bills. 
> Joe's deposit is federally insured by the FSLIC because some godless liberal 
> wanted to protect Joe's money from unscrupulous bankers who ruined the 
> banking system before the Great Depression.
>
> Joe has to pay his Fannie Mae-underwritten mortgage and his below-market 
> federal student loan because some elitist liberal decided that Joe and the 
> government would be better off if he was educated and earned more money over 
> his lifetime.
>
> Joe is home from work. He plans to visit his father this evening at his farm 
> home in the country. He gets in his car for the drive. His car is among the 
> safest in the world because some America-hating liberal fought for car safety 
> standards. He arrives at his boyhood home. His was the third generation to 
> live in the house financed by Farmers' Home Administration because bankers 
> didn't want to make rural loans. The house didn't have electricity until some 
> big-government liberal stuck his nose where it didn't belong and demanded 
> rural electrification.
>
> He is happy to see his father, who is now retired. His father lives on Social 
> Security and a union pension because some wine-drinking, cheese-eating 
> liberal made sure he could take care of himself so Joe wouldn't have to.
>
> Joe gets back in his car for the ride home, and turns on a radio talk show. 
> The radio host keeps saying that liberals are bad and 

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Mike Schwab]

A lot of the programs that got the U.S. of of the great depression was
authored by Henry Wallace, Secretary of Agriculture, U.S. V.P 1941-44.
He recorded his Century of the Common Man speech
https://www.youtube.com/watch?v=CAKrIdSPkHI .
Corporate delegate blocked his nomination for VP in 1944, I think the
world would have been much better if he had been in instead of Truman

On Tue, May 2, 2023 at 7:50 PM Bill Johnson
<0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:
>
> LOL, the US has boatloads of socialism. The military, infrastructure, 
> schools, insurance of all kinds, social security, Medicare/Medicaid, and much 
> more. Capitalism is what the right screams to kowtow to the lesser educated. 
> There are zero capitalist countries on the planet. Much of your success is 
> from socialism. Reminds me of this.
>
>
> An oldie but goodie
>
> Joe gets up at 6 a.m. and fills his coffeepot with water to prepare his 
> morning coffee. The water is clean and good because some tree-hugging liberal 
> fought for minimum water-quality standards. With his first swallow of coffee, 
> he takes his daily medication. His medications are safe to take because some 
> stupid commie liberal fought to ensure their safety and that they work as 
> advertised.
>
> All but $10 of his medications are paid for by his employer's medical plan 
> because *some liberal* union workers fought their employers for paid medical 
> insurance - now Joe gets it too. He prepares his morning breakfast, bacon and 
> eggs. Joe's bacon is safe to eat because some girly-man liberal fought for 
> laws to regulate the meat packing industry.
>
> In the morning shower, Joe reaches for his shampoo. His bottle is properly 
> labeled with each ingredient and its amount in the total contents because 
> some crybaby liberal fought for his right to know what he was putting on his 
> body and how much it contained.
>
> Joe dresses, walks outside and takes a deep breath. The air he breathes is 
> clean because some environmentalist wacko liberal fought for laws to stop 
> industries from polluting our air. He walks to the subway station for his 
> government-subsidized ride to work. It saves him considerable money in 
> parking and transportation fees because some fancy-pants liberal fought for 
> affordable public transportation, which gives everyone the opportunity to be 
> a contributor.
>
> Joe begins his work day. He has a good job with excellent pay, medical 
> benefits, retirement, paid holidays and vacation because some lazy liberal 
> union members fought and died for these working standards. Joe's employer 
> pays these standards because Joe's employer doesn't want his employees to 
> call the union. If Joe is hurt on the job or becomes unemployed, he'll get a 
> worker compensation or unemployment check because some stupid liberal didn't 
> think he should lose his home or go hungry because of his temporary 
> misfortune.
>
> It's noontime and Joe needs to make a bank deposit so he can pay some bills. 
> Joe's deposit is federally insured by the FSLIC because some godless liberal 
> wanted to protect Joe's money from unscrupulous bankers who ruined the 
> banking system before the Great Depression.
>
> Joe has to pay his Fannie Mae-underwritten mortgage and his below-market 
> federal student loan because some elitist liberal decided that Joe and the 
> government would be better off if he was educated and earned more money over 
> his lifetime.
>
> Joe is home from work. He plans to visit his father this evening at his farm 
> home in the country. He gets in his car for the drive. His car is among the 
> safest in the world because some America-hating liberal fought for car safety 
> standards. He arrives at his boyhood home. His was the third generation to 
> live in the house financed by Farmers' Home Administration because bankers 
> didn't want to make rural loans. The house didn't have electricity until some 
> big-government liberal stuck his nose where it didn't belong and demanded 
> rural electrification.
>
> He is happy to see his father, who is now retired. His father lives on Social 
> Security and a union pension because some wine-drinking, cheese-eating 
> liberal made sure he could take care of himself so Joe wouldn't have to.
>
> Joe gets back in his car for the ride home, and turns on a radio talk show. 
> The radio host keeps saying that liberals are bad and conservatives are good. 
> He doesn't mention that the beloved Republicans have fought against every 
> protection and benefit Joe enjoys throughout his day.
>
> Joe agrees: "We don't need those big-government liberals ruining our lives! 
> After all, I'm a self-made man who believes everyone should take care of 
> themselves, just like I have."
>
>
>
> Sent from Yahoo Mail for iPhone
>
>
> On Tuesday, May 2, 2023, 8:33 PM, Steve Thompson  wrote:
>
> It is the government's job if it is based on socialism. The USofA
> was based on the rights of the individual and giving 

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Bill Johnson]

I’ll bet you are a first amendment absolutist? 


Sent from Yahoo Mail for iPhone


On Tuesday, May 2, 2023, 9:20 PM, Doug  wrote:

Do you have any idea what this forum is for?

THIS IS INAPPROPRIATE!

KEEP YOUR WORTHLESS OPINIONS TO YOURSELF!!!

Doug

-- Original Message --
From: "Bill Johnson" <0047540adefe-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@listserv.ua.edu
Sent: 02-May-23 20:50:12
Subject: Re: IBM pauses some hiring amid plans to replace 7,800 jobs 
with AI

>LOL, the US has boatloads of socialism. The military, infrastructure, schools, 
>insurance of all kinds, social security, Medicare/Medicaid, and much more. 
>Capitalism is what the right screams to kowtow to the lesser educated. There 
>are zero capitalist countries on the planet. Much of your success is from 
>socialism. Reminds me of this.
>
>
>An oldie but goodie
>
>Joe gets up at 6 a.m. and fills his coffeepot with water to prepare his 
>morning coffee. The water is clean and good because some tree-hugging liberal 
>fought for minimum water-quality standards. With his first swallow of coffee, 
>he takes his daily medication. His medications are safe to take because some 
>stupid commie liberal fought to ensure their safety and that they work as 
>advertised.
>
>All but $10 of his medications are paid for by his employer's medical plan 
>because *some liberal* union workers fought their employers for paid medical 
>insurance - now Joe gets it too. He prepares his morning breakfast, bacon and 
>eggs. Joe's bacon is safe to eat because some girly-man liberal fought for 
>laws to regulate the meat packing industry.
>
>In the morning shower, Joe reaches for his shampoo. His bottle is properly 
>labeled with each ingredient and its amount in the total contents because some 
>crybaby liberal fought for his right to know what he was putting on his body 
>and how much it contained.
>
>Joe dresses, walks outside and takes a deep breath. The air he breathes is 
>clean because some environmentalist wacko liberal fought for laws to stop 
>industries from polluting our air. He walks to the subway station for his 
>government-subsidized ride to work. It saves him considerable money in parking 
>and transportation fees because some fancy-pants liberal fought for affordable 
>public transportation, which gives everyone the opportunity to be a 
>contributor.
>
>Joe begins his work day. He has a good job with excellent pay, medical 
>benefits, retirement, paid holidays and vacation because some lazy liberal 
>union members fought and died for these working standards. Joe's employer pays 
>these standards because Joe's employer doesn't want his employees to call the 
>union. If Joe is hurt on the job or becomes unemployed, he'll get a worker 
>compensation or unemployment check because some stupid liberal didn't think he 
>should lose his home or go hungry because of his temporary misfortune.
>
>It's noontime and Joe needs to make a bank deposit so he can pay some bills. 
>Joe's deposit is federally insured by the FSLIC because some godless liberal 
>wanted to protect Joe's money from unscrupulous bankers who ruined the banking 
>system before the Great Depression.
>
>Joe has to pay his Fannie Mae-underwritten mortgage and his below-market 
>federal student loan because some elitist liberal decided that Joe and the 
>government would be better off if he was educated and earned more money over 
>his lifetime.
>
>Joe is home from work. He plans to visit his father this evening at his farm 
>home in the country. He gets in his car for the drive. His car is among the 
>safest in the world because some America-hating liberal fought for car safety 
>standards. He arrives at his boyhood home. His was the third generation to 
>live in the house financed by Farmers' Home Administration because bankers 
>didn't want to make rural loans. The house didn't have electricity until some 
>big-government liberal stuck his nose where it didn't belong and demanded 
>rural electrification.
>
>He is happy to see his father, who is now retired. His father lives on Social 
>Security and a union pension because some wine-drinking, cheese-eating liberal 
>made sure he could take care of himself so Joe wouldn't have to.
>
>Joe gets back in his car for the ride home, and turns on a radio talk show. 
>The radio host keeps saying that liberals are bad and conservatives are good. 
>He doesn't mention that the beloved Republicans have fought against every 
>protection and benefit Joe enjoys throughout his day.
>
>Joe agrees: "We don't need those big-government liberals ruining our lives! 
>After all, I'm a self-made man who believes everyone should take care of 
>themselves, just like I have."
>
>
>
>Sent from Yahoo Mail for iPhone
>
>
>On Tuesday, May 2, 2023, 8:33 PM, Steve Thompson  wrote:
>
>It is the government's job if it is based on socialism. The USofA
>was based on the rights of the individual and giving them
>opportunity, actually not getting in the 

Re: XLC inline assembler question

[Linda Chui]

On Mon, 1 May 2023 18:18:38 -0400, Phil Smith III  wrote:

>Doh, I of course meant -qasm not -dasm. 
>
> 
>
>From: Phil Smith III  
>Sent: Monday, May 1, 2023 5:02 PM
>To: ibm-m...@bama.ua.edu; IBM Mainframe Assembler List 
>(assembler-l...@listserv.uga.edu) 
>Subject: XLC inline assembler question
>
> 
>
>(Cross-posted to IBM-MAIN and the assembler list)
>
>When compiling C programs with XLC, you need to specify the -dasm flag to have 
>inline assembler code recognized as such. I can see PoE arguments for 
>requiring that option; what isn't clear is whether there's any downside to it 
>beyond the unlikely case that you decide to have a function of your own named 
>asm or __asm or __asm__. Is there? We'd rather just use it all the time, 
>rather than trying to keep track of which modules have inline assembler and 
>which don't, but not if it's going to cost significant performance at compile 
>time or something.
>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

(posting on behalf of a colleague)

hi Phil,

Generally there is no downside for specifying -qasm all the time. Your analysis 
(and Paul’s) is correct.
There are a few side issues (listings changing to show ASM is in effect, etc.), 
but just turning that option on for everything should work as long as you don’t 
mind those changes occurring.

hope this helps.

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

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Bill Johnson]

The word capitalism isn’t in any founding documents. The word capitalism was 
coined by Thackeray in the novel The Newcomes in 1854 and meant having 
ownership of capital. America was founded by rich white guys who annihilated 
the Native Americans, treated women as property, and used slave labor, brought 
here against their will, to build America. Only land owners, meaning the rich, 
could vote. Everything good in America was produced by liberals. Labor unions 
should be thanked for your employer provided vacations and benefits. Because 
they fought for them. Social Security and Medicare/Medicaid helped lift the 
elderly out of poverty, civil rights was a Democrat priority, the ACA covers 35 
million people.


Sent from Yahoo Mail for iPhone


On Tuesday, May 2, 2023, 8:54 PM, Seymour J Metz  wrote:

3/5


From: IBM Mainframe Discussion List  on behalf of 
Steve Thompson 
Sent: Tuesday, May 2, 2023 8:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

It is the government's job if it is based on socialism. The USofA
was based on the rights of the individual and giving them
opportunity, actually not getting in the way of opportunity. This
is why it was said, he is governed best who is governed least.

WE the People have rights given by God, not the government. We
the People are supposed to run this. But if we give up rights for
safety, then we deserve neither.

Somewhere Civics stopped being taught and the communist party got
in control (1963 the Communist Manifesto was read into the
Congressional Record -- You should look it up and read it).

So, my thinking is, if AI is used by the wealthy to increase
their wealth it will be done on the backs of those least able to
prevent it. And why I have said that the Laws of Robotics needs
be implemented at the hardware level while we still can.

Steve Thompson

On 5/2/2023 7:05 PM, Bill Johnson wrote:
> I agree completely. It’s government’s job to protect the downtrodden & 
> redistribute income. Even people like Warren Buffett have pushed for higher 
> taxes on the wealthy. So what actually happened? The tax cuts of 2017 went 
> mostly to the top 1%. Sheldon Adelson saved 700 million. Not a bad return for 
> the 30 million he gave Republicans for the 2018 midterms or the donations he 
> made in 2016.
>
> AI is going to cause many currently in the middle class and below to drop 
> further down. I think UBI, universal basic income will be necessary. Finland 
> has experimented with it and has seen promising results. Some US cities have 
> tried or are trying it. Other countries are implementing it. Most countries 
> not spelled America have universal healthcare. And WHO rates them higher than 
> the US. (WHO rates US healthcare 37th, France is number 1)
>
> You’re also correct that income disparity causes other societal issues. 
> Higher crime & earlier deaths to name two.
>
> Your kids deserve a fighting chance and if necessary government help.
>
>
> Sent from Yahoo Mail for iPhone
>
>
> On Tuesday, May 2, 2023, 12:30 PM, Matt Hogstrom  wrote:
>
> Perhaps I’m just entering that golden period where I look at news like this 
> and consider that technology like AI being unleashed has secondary, and 
> negative, consequences of people losing jobs, income, etc.  It makes the 
> divide worse and causes angst, bitterness and redistribution of wealth as a 
> necessity.  One of my adopted foster kids will have difficulty crossing the 
> chasm to make a living given some of his disabilities.  It’s not just 
> technology but there is an increasing societal consideration to be factored 
> in.
>
> Matt Hogstrom
>
> “It may be cognitive, but, it ain’t intuitive."
> — Hogstrom
>
>
>
>> On May 2, 2023, at 12:11 PM, Lionel B. Dyck  wrote:
>>
>> So sad.  No more entry level, or trivial, jobs for those just starting out 
>> in the job market. No more mail room to board room opportunities.
>>
>>
>> Lionel B. Dyck <><
>> Website: 
>> https://secure-web.cisco.com/1vnsxOkODc718OmdhU96pTtvaXo3oiAfFZeiO6s99lA8huULFBAeKswkWbbfogfaIZ27Phf6Vs0L02Bp4Z8Q12llH36oVA6Y8HJnyjNMhzmzBEfhyc7zGjLnxMFB6bjEm1sJbwTN-dqfiw1KQX-HiHi1WfihtJH-HX2lnF7mIXNBaXXnssKd1PSKx9tNOUBMA7_E4sf7rHeRby6AUoaSys4Vbm-m_5ZzHbRm_jOR1h6Q7upVQftCZcu0juWImL4jVl8u9J8Y3s138ceCv_m__L-hG0__qFr_WrqWnx3HEtwQ5lPj9rWfx7HyBUnq8ZhwIms9AQTjMZfuEhB-LCv8EhvWUeU8edXTdbqgpLDVEGL0e1gFzgDOzK9Bu7SYpve50yql_dttpML40bJS1wAdziWFTs-aIzt38NTrx-HE_7TU/https%3A%2F%2Fwww.lbdsoftware.com
>> Github: https://github.com/lbdyck
>>
>> “Worry more about your character than your reputation. Character is what you 
>> are, reputation merely what others think you are.”  - - - John Wooden
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>
>
> 

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Doug]

Do you have any idea what this forum is for?

THIS IS INAPPROPRIATE!

KEEP YOUR WORTHLESS OPINIONS TO YOURSELF!!!

Doug

-- Original Message --
From: "Bill Johnson" <0047540adefe-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@listserv.ua.edu
Sent: 02-May-23 20:50:12
Subject: Re: IBM pauses some hiring amid plans to replace 7,800 jobs 
with AI



LOL, the US has boatloads of socialism. The military, infrastructure, schools, 
insurance of all kinds, social security, Medicare/Medicaid, and much more. 
Capitalism is what the right screams to kowtow to the lesser educated. There 
are zero capitalist countries on the planet. Much of your success is from 
socialism. Reminds me of this.


An oldie but goodie

Joe gets up at 6 a.m. and fills his coffeepot with water to prepare his morning 
coffee. The water is clean and good because some tree-hugging liberal fought 
for minimum water-quality standards. With his first swallow of coffee, he takes 
his daily medication. His medications are safe to take because some stupid 
commie liberal fought to ensure their safety and that they work as advertised.

All but $10 of his medications are paid for by his employer's medical plan 
because *some liberal* union workers fought their employers for paid medical 
insurance - now Joe gets it too. He prepares his morning breakfast, bacon and 
eggs. Joe's bacon is safe to eat because some girly-man liberal fought for laws 
to regulate the meat packing industry.

In the morning shower, Joe reaches for his shampoo. His bottle is properly 
labeled with each ingredient and its amount in the total contents because some 
crybaby liberal fought for his right to know what he was putting on his body 
and how much it contained.

Joe dresses, walks outside and takes a deep breath. The air he breathes is 
clean because some environmentalist wacko liberal fought for laws to stop 
industries from polluting our air. He walks to the subway station for his 
government-subsidized ride to work. It saves him considerable money in parking 
and transportation fees because some fancy-pants liberal fought for affordable 
public transportation, which gives everyone the opportunity to be a contributor.

Joe begins his work day. He has a good job with excellent pay, medical 
benefits, retirement, paid holidays and vacation because some lazy liberal 
union members fought and died for these working standards. Joe's employer pays 
these standards because Joe's employer doesn't want his employees to call the 
union. If Joe is hurt on the job or becomes unemployed, he'll get a worker 
compensation or unemployment check because some stupid liberal didn't think he 
should lose his home or go hungry because of his temporary misfortune.

It's noontime and Joe needs to make a bank deposit so he can pay some bills. 
Joe's deposit is federally insured by the FSLIC because some godless liberal 
wanted to protect Joe's money from unscrupulous bankers who ruined the banking 
system before the Great Depression.

Joe has to pay his Fannie Mae-underwritten mortgage and his below-market 
federal student loan because some elitist liberal decided that Joe and the 
government would be better off if he was educated and earned more money over 
his lifetime.

Joe is home from work. He plans to visit his father this evening at his farm 
home in the country. He gets in his car for the drive. His car is among the 
safest in the world because some America-hating liberal fought for car safety 
standards. He arrives at his boyhood home. His was the third generation to live 
in the house financed by Farmers' Home Administration because bankers didn't 
want to make rural loans. The house didn't have electricity until some 
big-government liberal stuck his nose where it didn't belong and demanded rural 
electrification.

He is happy to see his father, who is now retired. His father lives on Social 
Security and a union pension because some wine-drinking, cheese-eating liberal 
made sure he could take care of himself so Joe wouldn't have to.

Joe gets back in his car for the ride home, and turns on a radio talk show. The 
radio host keeps saying that liberals are bad and conservatives are good. He 
doesn't mention that the beloved Republicans have fought against every 
protection and benefit Joe enjoys throughout his day.

Joe agrees: "We don't need those big-government liberals ruining our lives! After 
all, I'm a self-made man who believes everyone should take care of themselves, just like 
I have."



Sent from Yahoo Mail for iPhone


On Tuesday, May 2, 2023, 8:33 PM, Steve Thompson  wrote:

It is the government's job if it is based on socialism. The USofA
was based on the rights of the individual and giving them
opportunity, actually not getting in the way of opportunity. This
is why it was said, he is governed best who is governed least.

WE the People have rights given by God, not the government. We
the People are supposed to run this. But if we give up rights for

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Seymour J Metz]

3/5


From: IBM Mainframe Discussion List  on behalf of 
Steve Thompson 
Sent: Tuesday, May 2, 2023 8:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

It is the government's job if it is based on socialism. The USofA
was based on the rights of the individual and giving them
opportunity, actually not getting in the way of opportunity. This
is why it was said, he is governed best who is governed least.

WE the People have rights given by God, not the government. We
the People are supposed to run this. But if we give up rights for
safety, then we deserve neither.

Somewhere Civics stopped being taught and the communist party got
in control (1963 the Communist Manifesto was read into the
Congressional Record -- You should look it up and read it).

So, my thinking is, if AI is used by the wealthy to increase
their wealth it will be done on the backs of those least able to
prevent it. And why I have said that the Laws of Robotics needs
be implemented at the hardware level while we still can.

Steve Thompson

On 5/2/2023 7:05 PM, Bill Johnson wrote:
> I agree completely. It’s government’s job to protect the downtrodden & 
> redistribute income. Even people like Warren Buffett have pushed for higher 
> taxes on the wealthy. So what actually happened? The tax cuts of 2017 went 
> mostly to the top 1%. Sheldon Adelson saved 700 million. Not a bad return for 
> the 30 million he gave Republicans for the 2018 midterms or the donations he 
> made in 2016.
>
> AI is going to cause many currently in the middle class and below to drop 
> further down. I think UBI, universal basic income will be necessary. Finland 
> has experimented with it and has seen promising results. Some US cities have 
> tried or are trying it. Other countries are implementing it. Most countries 
> not spelled America have universal healthcare. And WHO rates them higher than 
> the US. (WHO rates US healthcare 37th, France is number 1)
>
> You’re also correct that income disparity causes other societal issues. 
> Higher crime & earlier deaths to name two.
>
> Your kids deserve a fighting chance and if necessary government help.
>
>
> Sent from Yahoo Mail for iPhone
>
>
> On Tuesday, May 2, 2023, 12:30 PM, Matt Hogstrom  wrote:
>
> Perhaps I’m just entering that golden period where I look at news like this 
> and consider that technology like AI being unleashed has secondary, and 
> negative, consequences of people losing jobs, income, etc.  It makes the 
> divide worse and causes angst, bitterness and redistribution of wealth as a 
> necessity.  One of my adopted foster kids will have difficulty crossing the 
> chasm to make a living given some of his disabilities.  It’s not just 
> technology but there is an increasing societal consideration to be factored 
> in.
>
> Matt Hogstrom
>
> “It may be cognitive, but, it ain’t intuitive."
> — Hogstrom
>
>
>
>> On May 2, 2023, at 12:11 PM, Lionel B. Dyck  wrote:
>>
>> So sad.  No more entry level, or trivial, jobs for those just starting out 
>> in the job market. No more mail room to board room opportunities.
>>
>>
>> Lionel B. Dyck <><
>> Website: 
>> https://secure-web.cisco.com/1vnsxOkODc718OmdhU96pTtvaXo3oiAfFZeiO6s99lA8huULFBAeKswkWbbfogfaIZ27Phf6Vs0L02Bp4Z8Q12llH36oVA6Y8HJnyjNMhzmzBEfhyc7zGjLnxMFB6bjEm1sJbwTN-dqfiw1KQX-HiHi1WfihtJH-HX2lnF7mIXNBaXXnssKd1PSKx9tNOUBMA7_E4sf7rHeRby6AUoaSys4Vbm-m_5ZzHbRm_jOR1h6Q7upVQftCZcu0juWImL4jVl8u9J8Y3s138ceCv_m__L-hG0__qFr_WrqWnx3HEtwQ5lPj9rWfx7HyBUnq8ZhwIms9AQTjMZfuEhB-LCv8EhvWUeU8edXTdbqgpLDVEGL0e1gFzgDOzK9Bu7SYpve50yql_dttpML40bJS1wAdziWFTs-aIzt38NTrx-HE_7TU/https%3A%2F%2Fwww.lbdsoftware.com
>> Github: https://github.com/lbdyck
>>
>> “Worry more about your character than your reputation. Character is what you 
>> are, reputation merely what others think you are.”  - - - John Wooden
>
> --
> 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

--
Regards,
Steve Thompson
VS Strategies LLC
Westfield IN
972-983-9430 cell

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

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

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Bill Johnson]

LOL, the US has boatloads of socialism. The military, infrastructure, schools, 
insurance of all kinds, social security, Medicare/Medicaid, and much more. 
Capitalism is what the right screams to kowtow to the lesser educated. There 
are zero capitalist countries on the planet. Much of your success is from 
socialism. Reminds me of this.


An oldie but goodie

Joe gets up at 6 a.m. and fills his coffeepot with water to prepare his morning 
coffee. The water is clean and good because some tree-hugging liberal fought 
for minimum water-quality standards. With his first swallow of coffee, he takes 
his daily medication. His medications are safe to take because some stupid 
commie liberal fought to ensure their safety and that they work as advertised. 

All but $10 of his medications are paid for by his employer's medical plan 
because *some liberal* union workers fought their employers for paid medical 
insurance - now Joe gets it too. He prepares his morning breakfast, bacon and 
eggs. Joe's bacon is safe to eat because some girly-man liberal fought for laws 
to regulate the meat packing industry. 

In the morning shower, Joe reaches for his shampoo. His bottle is properly 
labeled with each ingredient and its amount in the total contents because some 
crybaby liberal fought for his right to know what he was putting on his body 
and how much it contained. 

Joe dresses, walks outside and takes a deep breath. The air he breathes is 
clean because some environmentalist wacko liberal fought for laws to stop 
industries from polluting our air. He walks to the subway station for his 
government-subsidized ride to work. It saves him considerable money in parking 
and transportation fees because some fancy-pants liberal fought for affordable 
public transportation, which gives everyone the opportunity to be a 
contributor. 

Joe begins his work day. He has a good job with excellent pay, medical 
benefits, retirement, paid holidays and vacation because some lazy liberal 
union members fought and died for these working standards. Joe's employer pays 
these standards because Joe's employer doesn't want his employees to call the 
union. If Joe is hurt on the job or becomes unemployed, he'll get a worker 
compensation or unemployment check because some stupid liberal didn't think he 
should lose his home or go hungry because of his temporary misfortune. 

It's noontime and Joe needs to make a bank deposit so he can pay some bills. 
Joe's deposit is federally insured by the FSLIC because some godless liberal 
wanted to protect Joe's money from unscrupulous bankers who ruined the banking 
system before the Great Depression. 

Joe has to pay his Fannie Mae-underwritten mortgage and his below-market 
federal student loan because some elitist liberal decided that Joe and the 
government would be better off if he was educated and earned more money over 
his lifetime. 

Joe is home from work. He plans to visit his father this evening at his farm 
home in the country. He gets in his car for the drive. His car is among the 
safest in the world because some America-hating liberal fought for car safety 
standards. He arrives at his boyhood home. His was the third generation to live 
in the house financed by Farmers' Home Administration because bankers didn't 
want to make rural loans. The house didn't have electricity until some 
big-government liberal stuck his nose where it didn't belong and demanded rural 
electrification. 

He is happy to see his father, who is now retired. His father lives on Social 
Security and a union pension because some wine-drinking, cheese-eating liberal 
made sure he could take care of himself so Joe wouldn't have to. 

Joe gets back in his car for the ride home, and turns on a radio talk show. The 
radio host keeps saying that liberals are bad and conservatives are good. He 
doesn't mention that the beloved Republicans have fought against every 
protection and benefit Joe enjoys throughout his day. 

Joe agrees: "We don't need those big-government liberals ruining our lives! 
After all, I'm a self-made man who believes everyone should take care of 
themselves, just like I have." 



Sent from Yahoo Mail for iPhone


On Tuesday, May 2, 2023, 8:33 PM, Steve Thompson  wrote:

It is the government's job if it is based on socialism. The USofA 
was based on the rights of the individual and giving them 
opportunity, actually not getting in the way of opportunity. This 
is why it was said, he is governed best who is governed least.

WE the People have rights given by God, not the government. We 
the People are supposed to run this. But if we give up rights for 
safety, then we deserve neither.

Somewhere Civics stopped being taught and the communist party got 
in control (1963 the Communist Manifesto was read into the 
Congressional Record -- You should look it up and read it).

So, my thinking is, if AI is used by the wealthy to increase 
their wealth it will be done on the backs of those least able to 

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Steve Thompson]

It is the government's job if it is based on socialism. The USofA 
was based on the rights of the individual and giving them 
opportunity, actually not getting in the way of opportunity. This 
is why it was said, he is governed best who is governed least.


WE the People have rights given by God, not the government. We 
the People are supposed to run this. But if we give up rights for 
safety, then we deserve neither.


Somewhere Civics stopped being taught and the communist party got 
in control (1963 the Communist Manifesto was read into the 
Congressional Record -- You should look it up and read it).


So, my thinking is, if AI is used by the wealthy to increase 
their wealth it will be done on the backs of those least able to 
prevent it. And why I have said that the Laws of Robotics needs 
be implemented at the hardware level while we still can.


Steve Thompson

On 5/2/2023 7:05 PM, Bill Johnson wrote:

I agree completely. It’s government’s job to protect the downtrodden & 
redistribute income. Even people like Warren Buffett have pushed for higher taxes 
on the wealthy. So what actually happened? The tax cuts of 2017 went mostly to the 
top 1%. Sheldon Adelson saved 700 million. Not a bad return for the 30 million he 
gave Republicans for the 2018 midterms or the donations he made in 2016.

AI is going to cause many currently in the middle class and below to drop 
further down. I think UBI, universal basic income will be necessary. Finland 
has experimented with it and has seen promising results. Some US cities have 
tried or are trying it. Other countries are implementing it. Most countries not 
spelled America have universal healthcare. And WHO rates them higher than the 
US. (WHO rates US healthcare 37th, France is number 1)

You’re also correct that income disparity causes other societal issues. Higher 
crime & earlier deaths to name two.

Your kids deserve a fighting chance and if necessary government help.


Sent from Yahoo Mail for iPhone


On Tuesday, May 2, 2023, 12:30 PM, Matt Hogstrom  wrote:

Perhaps I’m just entering that golden period where I look at news like this and 
consider that technology like AI being unleashed has secondary, and negative, 
consequences of people losing jobs, income, etc.  It makes the divide worse and 
causes angst, bitterness and redistribution of wealth as a necessity.  One of 
my adopted foster kids will have difficulty crossing the chasm to make a living 
given some of his disabilities.  It’s not just technology but there is an 
increasing societal consideration to be factored in.

Matt Hogstrom

“It may be cognitive, but, it ain’t intuitive."
— Hogstrom




On May 2, 2023, at 12:11 PM, Lionel B. Dyck  wrote:

So sad.  No more entry level, or trivial, jobs for those just starting out in 
the job market. No more mail room to board room opportunities.


Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you 
are, reputation merely what others think you are.”  - - - John Wooden


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


--
Regards,
Steve Thompson
VS Strategies LLC
Westfield IN
972-983-9430 cell

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

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Bill Johnson]

I agree completely. It’s government’s job to protect the downtrodden & 
redistribute income. Even people like Warren Buffett have pushed for higher 
taxes on the wealthy. So what actually happened? The tax cuts of 2017 went 
mostly to the top 1%. Sheldon Adelson saved 700 million. Not a bad return for 
the 30 million he gave Republicans for the 2018 midterms or the donations he 
made in 2016.

AI is going to cause many currently in the middle class and below to drop 
further down. I think UBI, universal basic income will be necessary. Finland 
has experimented with it and has seen promising results. Some US cities have 
tried or are trying it. Other countries are implementing it. Most countries not 
spelled America have universal healthcare. And WHO rates them higher than the 
US. (WHO rates US healthcare 37th, France is number 1)

You’re also correct that income disparity causes other societal issues. Higher 
crime & earlier deaths to name two.

Your kids deserve a fighting chance and if necessary government help.


Sent from Yahoo Mail for iPhone


On Tuesday, May 2, 2023, 12:30 PM, Matt Hogstrom  wrote:

Perhaps I’m just entering that golden period where I look at news like this and 
consider that technology like AI being unleashed has secondary, and negative, 
consequences of people losing jobs, income, etc.  It makes the divide worse and 
causes angst, bitterness and redistribution of wealth as a necessity.  One of 
my adopted foster kids will have difficulty crossing the chasm to make a living 
given some of his disabilities.  It’s not just technology but there is an 
increasing societal consideration to be factored in.

Matt Hogstrom

“It may be cognitive, but, it ain’t intuitive."
— Hogstrom



> On May 2, 2023, at 12:11 PM, Lionel B. Dyck  wrote:
> 
> So sad.  No more entry level, or trivial, jobs for those just starting out in 
> the job market. No more mail room to board room opportunities.
> 
> 
> Lionel B. Dyck <><
> Website: https://www.lbdsoftware.com
> Github: https://github.com/lbdyck
> 
> “Worry more about your character than your reputation. Character is what you 
> are, reputation merely what others think you are.”  - - - John Wooden


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




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

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Farley, Peter]

All hail Skynet!

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Steve Horein
Sent: Tuesday, May 2, 2023 6:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

I for one would like to see the "decision makers" replaced by AI and leave the 
technical folks in place.
Think of the high paying salaries that could be eliminated!

On Tue, May 2, 2023 at 11:0 AM Lance D. Jackson < 
ljack...@pandrueassociates.com> wrote:


--


This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


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

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Steve Horein]

I for one would like to see the "decision makers" replaced by AI and leave
the technical folks in place.
Think of the high paying salaries that could be eliminated!

On Tue, May 2, 2023 at 11:02 AM Lance D. Jackson <
ljack...@pandrueassociates.com> wrote:

>
> https://seekingalpha.com/news/3963147-ibm-pauses-some-hiring-amid-plans-to-replace-7800-jobs-with-ai?mailingid=31343481
> <
> https://seekingalpha.com/news/3963147-ibm-pauses-some-hiring-amid-plans-to-replace-7800-jobs-with-ai?mailingid=31343481=2900=31343481.26837_campaign=rta-stock-news_content=link-1_medium=email_source=seeking_alpha_term=31343481.26837>
> =2900=31343481.26837_campaign=rta-stock-news_content=link-1_medium=email_source=seeking_alpha_term=31343481.26837
>
>
>
>
> --
> 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

ZOWE Explorer Python SDK

[Robert Keahey]

Has anybody used the ZOWE Python SDK to develop extensions for VS Code ZOWE 
Explorer? If so, would be interested in connecting with you to hear about your 
experiences integrating with z/OSMF, REST Apis, etc.

Thanks

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

Re: REXX parse parens

[Bob Bridges]

Some years ago I tried to write - well, I did write - a routine that parses a 
string into various components, able to work with pairs of single and double 
quotes, parens and '/*-*/'.  I haven't looked at it in a while, but I'm pretty 
sure it doesn’t know what to do with embedded delimiters; if the first such 
string it finds is a left paren, it simply goes to the next right paren and 
returns the string in between.  To handle embedded markers it needs to be 
recursive, which isn't TOO hard but so far I've never desperately needed it; if 
I ever fix it to work it'll just be for the challenge and the fun of it.

...Unless, of course, someone wants to pay me to do it, but in that case 
someone else will beat me to it, and it'll probably be a better product than 
mine.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* The kingdom of Heaven is not for the well-meaning; it is for the desperate.  
-James Denney (1856-1917) */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Monday, May 1, 2023 23:52

It's the curse of the TRT instruction.  It's a great hammer; performs great; 
but everything has to look like a nail.  No good for recursive descent for 
something such as "trace I; say ((3+4)*5+6)*7".

And I can't forgive that there's no way to escape the command separator, ";".  
(That's largely bad layering in the design.  I will be told, "Just pick a 
character you won't use!"  There is almost none such.  Sometimes I set it to 
"¾".  But it would be better to have it when I need it and quote it when I 
don't.

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

Re: COBOL question: How to dynamically get the name of the routine that called you

[Farley, Peter]

Thanks Michael, I tried your routine here and it did exactly what I needed, so 
thank you.

Peter

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Schmitt, Michael
Sent: Tuesday, May 2, 2023 3:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL question: How to dynamically get the name of the routine 
that called you

I am attempting to post the assembler program here for reference, we'll see if 
the listserv accepts it without mangling.

To use, call it passing the area you want it to return the calling program name 
in. The call_level_e equate controls how many levels up it goes.



This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

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

Re: REXX parse parens

[Mike Schwab]

https://www.youtube.com/watch?v=GTCeREg_EeU
At least he bought along a generator and gas can for his Tesla.

On Tue, May 2, 2023 at 9:34 AM Steve Thompson  wrote:
>
> Nuts. We don't have the power (ok the $$$) to charge a Tesla.
>
> Rather silly to have to fire up a gasoline generator to charge
> that Tesla.  ;-)
>
> Just Say'n'.
>
> Steve Thompson
>
> On 5/2/2023 10:21 AM, David Crayford wrote:
> > Yikes. Not very user friendly and the linkage overhead is quite heavy. My 
> > opinion is quite simple, don’t use REXX. And that’s coming from a guy that 
> > wrote a REXX regex package. There is so much choice these days it’s a bit 
> > like driving a Ford Escort when you have a Tesla available.
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

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

Re: COBOL question: How to dynamically get the name of the routine that called you

[Bernd Oppolzer]

Is this z/OS? I hope so ...

You say:

I need this for determining from where a high-usage subroutine is being called 
unnecessarily in a large main program
(many called modules with multiple levels of CALL, but no recursion).

are these modules separate load modules which are dynamically called
and is the name of the load module (which may be identical to the 
program-ID) sufficient?


If so, there is no need to rely on the program name which is stored 
somewhere in the EPA signature (PPA1 block).
It is then possible to simply retrieve the EPA from the save area chain 
and check, to which
load module this entry point belongs, using the OS control blocks CDE 
and XTLST,

which is IMO a well-known method (and has no dependency on compiler releases
or even programming languages).

I wrote some dump analysis tools for customers, and they always do both 
methods,
just in case that some "free style" ASSEMBLER programs in the chain 
don't mark the
entry points in some of the known ways. Then we still have the name of 
the load module

(and maybe the offset of the entry point, if it is non-zero).

HTH, kind regards

Bernd


Am 02.05.2023 um 19:08 schrieb Schmitt, Michael:

I wrote an assembler subprogram that gets the name of the caller of the caller, i.e. 
if A > B > asm, it returns A. Or any number of levels up that you want. It 
works for static and dynamic calls, for both Language Environment compatible and 
non-LE programs.*

The logic to get the program name is non-trivial. For example, in an LE 
compatible program it depends on if the Program Prolog Area is in FASTLINK 
format or not.

I don't think this is possible to do in straight COBOL, because how would you 
get access to the registers for the save area chain? But maybe there's an LE 
service that could help.


Let me know if you're interested in the assembler program.


* assuming the program follows standard conventions for the program id 
signature string.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Farley, Peter
Sent: Tuesday, May 2, 2023 11:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: COBOL question: How to dynamically get the name of the routine that 
called you

This is an Enterprise COBOL V5/6 question.  No earlier compiler versions are 
involved.

Is it possible for a called COBOL program to dynamically determine the name of 
the calling COBOL program (i.e., the PROGRAM-ID value)?  I have been reading 
the LE Vendor Interfaces manual but I have yet to figure out now to use any of 
the documented services or control blocks to get the name of the caller.

I need this for determining from where a high-usage subroutine is being called 
unnecessarily in a large main program (many called modules with multiple levels 
of CALL, but no recursion).  The subroutine unfortunately is NOT passed the 
name of the caller in the LINKAGE parameters (that would have been too easy . . 
. ).

Any RTFM pointers or process to follow to get the caller's name would be 
appreciated.  I am willing to set up an assembler stub routine to capture the 
data if it cannot be done directly from the COBOL called subroutine.

Peter
--


This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

--
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: COBOL question: How to dynamically get the name of the routine that called you

[Schmitt, Michael]

I am attempting to post the assembler program here for reference, we'll see if 
the listserv accepts it without mangling.

To use, call it passing the area you want it to return the calling program name 
in. The call_level_e equate controls how many levels up it goes.

--
 setc  'CALLERID'
 title ' - Return name of program caller'
 csect
 amode 31
 rmode any
 using *,r15

 sysstate archlvl=OSREL,   generate z/Architecture code+
   osrel=SYSSTATE

 macro ,   sysdatc can't be in open code
 get_asmtime
 gblc  
   setc  '' date as MMDD
   aread clockd time as HHMMSSTH
setc  ''(1,4).'-'.''(5,2).'-'.''(7,2)  formatted date
setc  ''(1,2).':'.''(3,2).':'.''(5,2)  formatted time
 setc ' '
 mend

 gblc  get assembly date & time
 get_asmtime

 j start   skip over program id
 dcal1(l'prog_id)  count byte for program id
prog_id  dcc' '

savearea dc18f'0'  save area  and  my base address

startbsm   r14,r0  put caller's AMODE in r14
 stm   r14,r12,12(r13) save caller's registers
 lrr2,r13  r2  -> caller's save area
 lar13,savearear13 -> my save area & base
 str13,8(,r2)  set forward chain from caller
 str2,4(,r13)  set backward chain to caller
 drop  r15
 using savearea,r13r13 is my base register
 srr15,r15 clear return code
 l r14,=a(mainline+x'8000') set 31 bit mode
 bsm   r0,r14  branch to mainline

eojgood  srr15,r15 good return: rc = 0
eoj  l r13,4(,r13) point back to caller's save area
 str15,16(,r13)set return code
 lmr14,r12,12(r13) restore caller's registers
 oi15(r13),x'01'   set return indication
 bsm   r0,r14  return to caller & caller's mode

call_level_e equ 2 How many programs up do we go?

*  Return codes:
*  0  - CALL LEVEL caller found, name returned
*  4  - Requested CALL LEVEL not found. Highest caller returned.
*  8  - Incorrect usage: CALLERID directly called by MVS or no
*   parm provided.  No caller returned.
*
*  Registers:
* R0  - Standard system use, work register
* R1  - Standard system use, work register
* R2  - Standard system use
* R3  - Caller name parm
* R4  - Loop counter
* R5  - Save area chain pointer
* R6  - Entry point of caller
* R7  - Language Environment Program Prolog Area 1 (PPA1)
* R8  - Name of caller
* R9  -
* R10 -
* R11 -
* R12 -
* R13 - Base register, save area pointer
* R14 -
* R15 - Standard system use

mainline ds 0h

 ltr   r1,r1   if called with no parm
 jnz   main_l000
 lar15,8  rc=8: usage error
 j eojreturn
main_l000 ds 0hend if

 l r3,0(,r1)   save caller name parm address
 using caller_name_dsect,r3

 lar4,call_level_e r4 = number of callers to find
 srr6,r6   init r6 to no entry point
 srr8,r8   init r8 to no callers found

 l r5,savprev-saver(,r13)  r5 -> my caller's save area
 using saver,r5

main_l100 ds 0hdo CALL LEVEL times
 l r5,savprev climb chain

 ltr   r5,r5  if end of chain
 jnz   main_l120
 ltr   r8,r8 if no callers found
 jnz   main_l110
 lar15,8rc=8: usage error
 j eoj  return
main_l110 ds 0h  else
 lar15,4rc=4: Not enough calls
 j main_l190  found, leave
*end if
main_l120 ds 0h   end if

 l r1,savgrs15r1 = candidate entry point
 lar1,0(,r1)  clear mode bit
 crr6,r1  if same as last entry point
 jemain_l100 iterate

 lrr6,r1  r6 -> entry point

 clc   le_signature_c,5(r6)   if not Lang Environment prog
 jemain_l130
 lar8,5(,r6) use program id for caller
 j main_l150
main_l130 ds 0h   else
 lrr7,r6 r7 -> Program Prolog Area

Re: COBOL question: How to dynamically get the name of the routine that called you

[Joe Monk]

You use the LE service CEETBCK. This is the traceback utility and can be
used to walk the call chain backwards from Enteprise COBOL.

Joe



On Tue, May 2, 2023 at 12:08 PM Schmitt, Michael 
wrote:

> I wrote an assembler subprogram that gets the name of the caller of the
> caller, i.e. if A > B > asm, it returns A. Or any number of levels up that
> you want. It works for static and dynamic calls, for both Language
> Environment compatible and non-LE programs.*
>
> The logic to get the program name is non-trivial. For example, in an LE
> compatible program it depends on if the Program Prolog Area is in FASTLINK
> format or not.
>
> I don't think this is possible to do in straight COBOL, because how would
> you get access to the registers for the save area chain? But maybe there's
> an LE service that could help.
>
>
> Let me know if you're interested in the assembler program.
>
>
> * assuming the program follows standard conventions for the program id
> signature string.
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Farley, Peter
> Sent: Tuesday, May 2, 2023 11:23 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: COBOL question: How to dynamically get the name of the routine
> that called you
>
> This is an Enterprise COBOL V5/6 question.  No earlier compiler versions
> are involved.
>
> Is it possible for a called COBOL program to dynamically determine the
> name of the calling COBOL program (i.e., the PROGRAM-ID value)?  I have
> been reading the LE Vendor Interfaces manual but I have yet to figure out
> now to use any of the documented services or control blocks to get the name
> of the caller.
>
> I need this for determining from where a high-usage subroutine is being
> called unnecessarily in a large main program (many called modules with
> multiple levels of CALL, but no recursion).  The subroutine unfortunately
> is NOT passed the name of the caller in the LINKAGE parameters (that would
> have been too easy . . . ).
>
> Any RTFM pointers or process to follow to get the caller's name would be
> appreciated.  I am willing to set up an assembler stub routine to capture
> the data if it cannot be done directly from the COBOL called subroutine.
>
> Peter
> --
>
>
> This message and any attachments are intended only for the use of the
> addressee and may contain information that is privileged and confidential.
> If the reader of the message is not the intended recipient or an authorized
> representative of the intended recipient, you are hereby notified that any
> dissemination of this communication is strictly prohibited. If you have
> received this communication in error, please notify us immediately by
> e-mail and delete the message and any attachments from your system.
>
> --
> 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: REXX parse parens

[Seymour J Metz]

There is for TSO;/E REXX; I don't know about ooRexx or Regina. There is a regex 
class in ooRexx, but it's missing a lot.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Crayford [dcrayf...@gmail.com]
Sent: Tuesday, May 2, 2023 10:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

Is there a PCRE package available for REXX?

> On 2 May 2023, at 9:57 pm, Seymour J Metz  wrote:
>
> Is there a REXX-aware PEG package?
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> David Crayford [dcrayf...@gmail.com]
> Sent: Tuesday, May 2, 2023 9:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: REXX parse parens
>
> And if you need more than regexen there are PEGs.
>
>> On 2 May 2023, at 9:50 pm, Seymour J Metz  wrote:
>>
>> If you need more than ECMA Script regexen there's PCRE.
>>
>>
>> --
>> Shmuel (Seymour J.) Metz
>> http://mason.gmu.edu/~smetz3
>>
>> 
>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>> David Crayford [dcrayf...@gmail.com]
>> Sent: Tuesday, May 2, 2023 9:39 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: REXX parse parens
>>
>> Shameless plug but you can use my RTK package to process regular expressions 
>> in z/OS REXX https://github.com/daveyc/RTK
>>
>>> On 2 May 2023, at 9:22 pm, David Crayford  wrote:
>>>
>>>
>>>
 On 2 May 2023, at 7:30 am, Frank Swarbrick  
 wrote:

 Parse Var option varOpt '(' valueOpt ‘)’
>>>
>>>
>>>
>>> Adding an extra space after the closing parenthesis can help as a 
>>> workaround.
>>>
>>> Parse Var option varOpt '(' valueOpt ‘) ‘
>>>
>>> Parse is good for simple text yanking but it’s not match for regular 
>>> expressions or PEGs.
>>
>>
>> --
>> 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: REXX parse parens

[Schmitt, Michael]

Arrgh, editing error left from prior version.

It should be:

rparen = ')'||'ff'x
parse value option||'ff'x with varOpt '(' valueOpt (rparen)


The idea is to pin the final char to the end of the input string. I'm using a 
non-printable character, but that means it needs to be a variable since REXX 
won't accept a concatenated literal.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Schmitt, Michael
Sent: Tuesday, May 2, 2023 12:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

rparen = ')'||'ff'x
parse value option||'~' with varOpt '(' valueOpt (rparen)


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Frank Swarbrick
Sent: Tuesday, May 2, 2023 10:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

I don't want a separate "member" value.  I want the full "TEST(MEMBER)".
This is what I have now, and it seems to work OK:

Parse Var option varOpt '(' valueOpt ')'
/* Add back closing paren, if there is a leading one */
If POS("(", valueOpt) \= 0 Then
  valueOpt = valueOpt')'


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jack Zukt
Sent: Tuesday, May 2, 2023 1:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

Hi
This should work

Parse arg opt
Parse value opt with "(" opt") "
If  pos(" (", opt) >0 then
Parse value opt with opt" ("member")"
Do
End

Regards
Jack

On Tue, May 2, 2023, 00:31 Frank Swarbrick 
wrote:

> The following is a simplified version of some code from IBM's
> CEEBLDTX, placed in to an EXEC I've named PARENS:
>
> Parse Arg option
> Parse Var option varOpt '(' valueOpt ')'
> Say varOpt
> Say valueOpt
>
> This handles a simple dataset name, e.g.:
>
> Test1:  PARENS COBOL(TEST):
> Results1:
> COBOL
> TEST
>
> But it doesn't work for a PDS member to following, also surrounded by
> parentheses:
>
> Test2:  PARENS COBOL(TEST(MEMBER))
> Results2:
> COBOL
> TEST(MEMBER
>
> Any simple REXX parse option to handle this, or do I need to resort to
> more complex REXX?  Or do I just add a trailing paren if there is a
> leading one in valueOpt?  Perhaps that's the simples answer.
>
> Frank
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

--
For IBM-MAIN subscribe / signoff / archive 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: REXX parse parens

[Schmitt, Michael]

rparen = ')'||'ff'x
parse value option||'~' with varOpt '(' valueOpt (rparen)


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Frank Swarbrick
Sent: Tuesday, May 2, 2023 10:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

I don't want a separate "member" value.  I want the full "TEST(MEMBER)".
This is what I have now, and it seems to work OK:

Parse Var option varOpt '(' valueOpt ')'
/* Add back closing paren, if there is a leading one */
If POS("(", valueOpt) \= 0 Then
  valueOpt = valueOpt')'


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jack Zukt
Sent: Tuesday, May 2, 2023 1:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

Hi
This should work

Parse arg opt
Parse value opt with "(" opt") "
If  pos(" (", opt) >0 then
Parse value opt with opt" ("member")"
Do
End

Regards
Jack

On Tue, May 2, 2023, 00:31 Frank Swarbrick 
wrote:

> The following is a simplified version of some code from IBM's
> CEEBLDTX, placed in to an EXEC I've named PARENS:
>
> Parse Arg option
> Parse Var option varOpt '(' valueOpt ')'
> Say varOpt
> Say valueOpt
>
> This handles a simple dataset name, e.g.:
>
> Test1:  PARENS COBOL(TEST):
> Results1:
> COBOL
> TEST
>
> But it doesn't work for a PDS member to following, also surrounded by
> parentheses:
>
> Test2:  PARENS COBOL(TEST(MEMBER))
> Results2:
> COBOL
> TEST(MEMBER
>
> Any simple REXX parse option to handle this, or do I need to resort to
> more complex REXX?  Or do I just add a trailing paren if there is a
> leading one in valueOpt?  Perhaps that's the simples answer.
>
> Frank
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

--
For IBM-MAIN subscribe / signoff / archive 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 question: How to dynamically get the name of the routine that called you

[Schmitt, Michael]

I wrote an assembler subprogram that gets the name of the caller of the caller, 
i.e. if A > B > asm, it returns A. Or any number of levels up that you want. It 
works for static and dynamic calls, for both Language Environment compatible 
and non-LE programs.*

The logic to get the program name is non-trivial. For example, in an LE 
compatible program it depends on if the Program Prolog Area is in FASTLINK 
format or not.

I don't think this is possible to do in straight COBOL, because how would you 
get access to the registers for the save area chain? But maybe there's an LE 
service that could help.


Let me know if you're interested in the assembler program.


* assuming the program follows standard conventions for the program id 
signature string.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Farley, Peter
Sent: Tuesday, May 2, 2023 11:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: COBOL question: How to dynamically get the name of the routine that 
called you

This is an Enterprise COBOL V5/6 question.  No earlier compiler versions are 
involved.

Is it possible for a called COBOL program to dynamically determine the name of 
the calling COBOL program (i.e., the PROGRAM-ID value)?  I have been reading 
the LE Vendor Interfaces manual but I have yet to figure out now to use any of 
the documented services or control blocks to get the name of the caller.

I need this for determining from where a high-usage subroutine is being called 
unnecessarily in a large main program (many called modules with multiple levels 
of CALL, but no recursion).  The subroutine unfortunately is NOT passed the 
name of the caller in the LINKAGE parameters (that would have been too easy . . 
. ).

Any RTFM pointers or process to follow to get the caller's name would be 
appreciated.  I am willing to set up an assembler stub routine to capture the 
data if it cannot be done directly from the COBOL called subroutine.

Peter
--


This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

--
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: The mainframe is now DOWN

[Itschak Mugzach]

John, at a point of time I stopped believing you that it will happen ;-)

*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
and IBM I **|  *

*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*





On Tue, May 2, 2023 at 6:13 PM Lionel B. Dyck  wrote:

> May it be a long and enjoyable retirement
>
>
> Lionel B. Dyck <><
> Website: https://www.lbdsoftware.com
> Github: https://github.com/lbdyck
>
> “Worry more about your character than your reputation. Character is what
> you are, reputation merely what others think you are.”   - - - John Wooden
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of John McKown
> Sent: Tuesday, May 2, 2023 10:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: The mainframe is now DOWN
>
> Retirement is all that's on my to do list.
>
> On Tue, May 2, 2023, 09:51 Lionel B. Dyck  wrote:
>
> > Best of luck in your next endeavor
> >
> >
> > Lionel B. Dyck <><
> > Website: https://www.lbdsoftware.com
> > Github: https://github.com/lbdyck
> >
> > “Worry more about your character than your reputation. Character is what
> > you are, reputation merely what others think you are.”   - - - John
> Wooden
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> > Behalf Of John McKown
> > Sent: Tuesday, May 2, 2023 9:45 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: The mainframe is now DOWN
> >
> > I just shutdown HealthMarkets z9BC running z/OS1.12 for the final
> > time. We are going to allow our Production Control person to power it
> > off. Then lunch. 蠟蠟
> >
> > --
> > 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: The mainframe is now DOWN

[ITschak Mugzach]

John, at a point of time I stopped believing you that it will happen ;-)


ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon  *




On Tue, May 2, 2023 at 6:13 PM Lionel B. Dyck  wrote:

> May it be a long and enjoyable retirement
>
>
> Lionel B. Dyck <><
> Website: https://www.lbdsoftware.com
> Github: https://github.com/lbdyck
>
> “Worry more about your character than your reputation. Character is what
> you are, reputation merely what others think you are.”   - - - John Wooden
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of John McKown
> Sent: Tuesday, May 2, 2023 10:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: The mainframe is now DOWN
>
> Retirement is all that's on my to do list.
>
> On Tue, May 2, 2023, 09:51 Lionel B. Dyck  wrote:
>
> > Best of luck in your next endeavor
> >
> >
> > Lionel B. Dyck <><
> > Website: https://www.lbdsoftware.com
> > Github: https://github.com/lbdyck
> >
> > “Worry more about your character than your reputation. Character is what
> > you are, reputation merely what others think you are.”   - - - John
> Wooden
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> > Behalf Of John McKown
> > Sent: Tuesday, May 2, 2023 9:45 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: The mainframe is now DOWN
> >
> > I just shutdown HealthMarkets z9BC running z/OS1.12 for the final
> > time. We are going to allow our Production Control person to power it
> > off. Then lunch. 蠟蠟
> >
> > --
> > 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: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[ITschak Mugzach]

I wonder what IBM missed from the Watson project experience. We used to
say: 'Once bitten, twice shy'. However, there are such people. I have a
friend that got married for the third time...

ITschak

ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon  *




On Tue, May 2, 2023 at 7:30 PM Matt Hogstrom  wrote:

> Perhaps I’m just entering that golden period where I look at news like
> this and consider that technology like AI being unleashed has secondary,
> and negative, consequences of people losing jobs, income, etc.  It makes
> the divide worse and causes angst, bitterness and redistribution of wealth
> as a necessity.  One of my adopted foster kids will have difficulty
> crossing the chasm to make a living given some of his disabilities.  It’s
> not just technology but there is an increasing societal consideration to be
> factored in.
>
> Matt Hogstrom
>
> “It may be cognitive, but, it ain’t intuitive."
> — Hogstrom
>
>
>
> > On May 2, 2023, at 12:11 PM, Lionel B. Dyck  wrote:
> >
> > So sad.  No more entry level, or trivial, jobs for those just starting
> out in the job market. No more mail room to board room opportunities.
> >
> >
> > Lionel B. Dyck <><
> > Website: https://www.lbdsoftware.com
> > Github: https://github.com/lbdyck
> >
> > “Worry more about your character than your reputation. Character is what
> you are, reputation merely what others think you are.”   - - - John Wooden
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Matt Hogstrom]

Perhaps I’m just entering that golden period where I look at news like this and 
consider that technology like AI being unleashed has secondary, and negative, 
consequences of people losing jobs, income, etc.  It makes the divide worse and 
causes angst, bitterness and redistribution of wealth as a necessity.  One of 
my adopted foster kids will have difficulty crossing the chasm to make a living 
given some of his disabilities.  It’s not just technology but there is an 
increasing societal consideration to be factored in.

Matt Hogstrom

“It may be cognitive, but, it ain’t intuitive."
— Hogstrom



> On May 2, 2023, at 12:11 PM, Lionel B. Dyck  wrote:
> 
> So sad.  No more entry level, or trivial, jobs for those just starting out in 
> the job market. No more mail room to board room opportunities.
> 
> 
> Lionel B. Dyck <><
> Website: https://www.lbdsoftware.com
> Github: https://github.com/lbdyck
> 
> “Worry more about your character than your reputation. Character is what you 
> are, reputation merely what others think you are.”   - - - John Wooden


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

COBOL question: How to dynamically get the name of the routine that called you

[Farley, Peter]

This is an Enterprise COBOL V5/6 question.  No earlier compiler versions are 
involved.

Is it possible for a called COBOL program to dynamically determine the name of 
the calling COBOL program (i.e., the PROGRAM-ID value)?  I have been reading 
the LE Vendor Interfaces manual but I have yet to figure out now to use any of 
the documented services or control blocks to get the name of the caller.

I need this for determining from where a high-usage subroutine is being called 
unnecessarily in a large main program (many called modules with multiple levels 
of CALL, but no recursion).  The subroutine unfortunately is NOT passed the 
name of the caller in the LINKAGE parameters (that would have been too easy . . 
. ).

Any RTFM pointers or process to follow to get the caller's name would be 
appreciated.  I am willing to set up an assembler stub routine to capture the 
data if it cannot be done directly from the COBOL called subroutine.

Peter
--


This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

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

Re: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Lionel B. Dyck]

So sad.  No more entry level, or trivial, jobs for those just starting out in 
the job market. No more mail room to board room opportunities.


Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you 
are, reputation merely what others think you are.”   - - - John Wooden

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Lance D. Jackson
Sent: Tuesday, May 2, 2023 11:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: IBM pauses some hiring amid plans to replace 7,800 jobs with AI

https://seekingalpha.com/news/3963147-ibm-pauses-some-hiring-amid-plans-to-replace-7800-jobs-with-ai?mailingid=31343481
 

 
=2900=31343481.26837_campaign=rta-stock-news_content=link-1_medium=email_source=seeking_alpha_term=31343481.26837

 


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

IBM pauses some hiring amid plans to replace 7,800 jobs with AI

[Lance D. Jackson]

https://seekingalpha.com/news/3963147-ibm-pauses-some-hiring-amid-plans-to-replace-7800-jobs-with-ai?mailingid=31343481
 

 
=2900=31343481.26837_campaign=rta-stock-news_content=link-1_medium=email_source=seeking_alpha_term=31343481.26837

 


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

Re: EXTERNAL EMAIL: The mainframe is now DOWN

[Jerry Whitteridge]

Best of luck in the future


Jerry Whitteridge
jerry.whitteri...@albertsons.com
Sr. Manager Managed Services
Albertsons Companies


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
John McKown
Sent: Tuesday, May 2, 2023 7:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXTERNAL EMAIL: The mainframe is now DOWN

I just shutdown HealthMarkets z9BC running z/OS1.12 for the final time. We
are going to allow our Production Control person to power it off. Then
lunch. 蠟蠟

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

 Warning: All e-mail sent to this address will be received by the corporate 
e-mail system, and is subject to archival and review by someone other than the 
recipient. This e-mail may contain proprietary information and is intended only 
for the use of the intended recipient(s). If the reader of this message is not 
the intended recipient(s), you are notified that you have received this message 
in error and that any review, dissemination, distribution or copying of this 
message is strictly prohibited. If you have received this message in error, 
please notify the sender immediately.


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

Re: REXX parse parens

[David Crayford]

The Chinese are poised to own the EV industry in the next 20 years without 
worrying about high-density neighbourhoods. It will be easy enough to switch in 
a new battery module. The traditional European/US car manufacturers will not be 
able to complete with state subsidies and the requirement to reengineer their 
manufacturing at great expense. It’s all about tech now, not engineering a new 
V6 engine. 

> On 2 May 2023, at 10:59 pm, Farley, Peter 
> <031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:
> 
> Some of us have to park on the street (high-density large city neighborhood, 
> no driveways or attached garages).  Nowhere to charge the beast, and you have 
> to move it for alternate-side parking every other day.
> 
> I'll take an Edge please, I'm too creaky to squeeze into an Escort and the 
> Explorer is way too big.  I wish I could still get a new Taurus station wagon.
> 
> Peter
> 
> -Original Message-
> From: IBM Mainframe Discussion List  > On Behalf Of David Crayford
> Sent: Tuesday, May 2, 2023 10:39 AM
> To: IBM-MAIN@LISTSERV.UA.EDU 
> Subject: Re: REXX parse parens
> 
> If you didn’t have to pay for a Tesla would you prefer it over a Ford Escort?
> 
>> On 2 May 2023, at 10:33 pm, Steve Thompson  wrote:
>> 
>> Nuts. We don't have the power (ok the $$$) to charge a Tesla.
>> 
>> Rather silly to have to fire up a gasoline generator to charge that 
>> Tesla.  ;-)
>> 
>> Just Say'n'.
>> 
>> Steve Thompson
>> 
>> On 5/2/2023 10:21 AM, David Crayford wrote:
>>> Yikes. Not very user friendly and the linkage overhead is quite heavy. My 
>>> opinion is quite simple, don’t use REXX. And that’s coming from a guy that 
>>> wrote a REXX regex package. There is so much choice these days it’s a bit 
>>> like driving a Ford Escort when you have a Tesla available.
> --
> 
> 
> This message and any attachments are intended only for the use of the 
> addressee and may contain information that is privileged and confidential. If 
> the reader of the message is not the intended recipient or an authorized 
> representative of the intended recipient, you are hereby notified that any 
> dissemination of this communication is strictly prohibited. If you have 
> received this communication in error, please notify us immediately by e-mail 
> and delete the message and any attachments from your system.
> 
> 
> --
> 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: REXX parse parens

[Frank Swarbrick]

Adding the space causes the opposite problem; the valueOpt field ends with two 
parens instead of none.

I'm not the author; I'm just trying to fix it!

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
David Crayford
Sent: Tuesday, May 2, 2023 7:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

> On 2 May 2023, at 7:30 am, Frank Swarbrick  
> wrote:
> 
> Parse Var option varOpt '(' valueOpt ‘)’



Adding an extra space after the closing parenthesis can help as a workaround.

Parse Var option varOpt '(' valueOpt ‘) ‘

Parse is good for simple text yanking but it’s not match for regular 
expressions or PEGs.
--
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: The mainframe is now DOWN

[Lionel B. Dyck]

May it be a long and enjoyable retirement 


Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you 
are, reputation merely what others think you are.”   - - - John Wooden

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
John McKown
Sent: Tuesday, May 2, 2023 10:03 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: The mainframe is now DOWN

Retirement is all that's on my to do list.

On Tue, May 2, 2023, 09:51 Lionel B. Dyck  wrote:

> Best of luck in your next endeavor
>
>
> Lionel B. Dyck <><
> Website: https://www.lbdsoftware.com
> Github: https://github.com/lbdyck
>
> “Worry more about your character than your reputation. Character is what
> you are, reputation merely what others think you are.”   - - - John Wooden
>
> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of John McKown
> Sent: Tuesday, May 2, 2023 9:45 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: The mainframe is now DOWN
>
> I just shutdown HealthMarkets z9BC running z/OS1.12 for the final 
> time. We are going to allow our Production Control person to power it 
> off. Then lunch. 蠟蠟
>
> --
> 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: REXX parse parens

[Paul Gilmartin]

On Tue, 2 May 2023 22:01:57 +0800, David Crayford wrote:

>Is there a PCRE package available for REXX?
>


The value I find in TSO-REXX is in the ADDRESS environments:

o SYSCALL (mostly just the C RTL)

o SDSF

o ISREDIT

o ...

... all with access to REXX variables.  I did that once with Mainsail on CMS.
Assembler glue with IRXEXCOM and scripting of interactive debugger.

-- 
gil

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

Re: REXX parse parens

[Frank Swarbrick]

I don't want a separate "member" value.  I want the full "TEST(MEMBER)".
This is what I have now, and it seems to work OK:

Parse Var option varOpt '(' valueOpt ')'
/* Add back closing paren, if there is a leading one */
If POS("(", valueOpt) \= 0 Then
  valueOpt = valueOpt')'


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jack Zukt
Sent: Tuesday, May 2, 2023 1:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

Hi
This should work

Parse arg opt
Parse value opt with "(" opt") "
If  pos(" (", opt) >0 then
Parse value opt with opt" ("member")"
Do
End

Regards
Jack

On Tue, May 2, 2023, 00:31 Frank Swarbrick 
wrote:

> The following is a simplified version of some code from IBM's 
> CEEBLDTX, placed in to an EXEC I've named PARENS:
>
> Parse Arg option
> Parse Var option varOpt '(' valueOpt ')'
> Say varOpt
> Say valueOpt
>
> This handles a simple dataset name, e.g.:
>
> Test1:  PARENS COBOL(TEST):
> Results1:
> COBOL
> TEST
>
> But it doesn't work for a PDS member to following, also surrounded by
> parentheses:
>
> Test2:  PARENS COBOL(TEST(MEMBER))
> Results2:
> COBOL
> TEST(MEMBER
>
> Any simple REXX parse option to handle this, or do I need to resort to 
> more complex REXX?  Or do I just add a trailing paren if there is a 
> leading one in valueOpt?  Perhaps that's the simples answer.
>
> Frank
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

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

Re: The mainframe is now DOWN

[John McKown]

Retirement is all that's on my to do list.

On Tue, May 2, 2023, 09:51 Lionel B. Dyck  wrote:

> Best of luck in your next endeavor
>
>
> Lionel B. Dyck <><
> Website: https://www.lbdsoftware.com
> Github: https://github.com/lbdyck
>
> “Worry more about your character than your reputation. Character is what
> you are, reputation merely what others think you are.”   - - - John Wooden
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of John McKown
> Sent: Tuesday, May 2, 2023 9:45 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: The mainframe is now DOWN
>
> I just shutdown HealthMarkets z9BC running z/OS1.12 for the final time. We
> are going to allow our Production Control person to power it off. Then
> lunch. 蠟蠟
>
> --
> 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: REXX parse parens

[Farley, Peter]

Some of us have to park on the street (high-density large city neighborhood, no 
driveways or attached garages).  Nowhere to charge the beast, and you have to 
move it for alternate-side parking every other day.

I'll take an Edge please, I'm too creaky to squeeze into an Escort and the 
Explorer is way too big.  I wish I could still get a new Taurus station wagon.

Peter

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
David Crayford
Sent: Tuesday, May 2, 2023 10:39 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

If you didn’t have to pay for a Tesla would you prefer it over a Ford Escort?

> On 2 May 2023, at 10:33 pm, Steve Thompson  wrote:
> 
> Nuts. We don't have the power (ok the $$$) to charge a Tesla.
> 
> Rather silly to have to fire up a gasoline generator to charge that 
> Tesla.  ;-)
> 
> Just Say'n'.
> 
> Steve Thompson
> 
> On 5/2/2023 10:21 AM, David Crayford wrote:
>> Yikes. Not very user friendly and the linkage overhead is quite heavy. My 
>> opinion is quite simple, don’t use REXX. And that’s coming from a guy that 
>> wrote a REXX regex package. There is so much choice these days it’s a bit 
>> like driving a Ford Escort when you have a Tesla available.
--


This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


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

Re: The mainframe is now DOWN

[Steve Thompson]

Yes, good luck with your next endeavor and sorry to see another 
go Dark like this.


Steve Thompson

On 5/2/2023 10:50 AM, Lionel B. Dyck wrote:

Best of luck in your next endeavor


Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you 
are, reputation merely what others think you are.”   - - - John Wooden

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
John McKown
Sent: Tuesday, May 2, 2023 9:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: The mainframe is now DOWN

I just shutdown HealthMarkets z9BC running z/OS1.12 for the final time. We are 
going to allow our Production Control person to power it off. Then lunch. 
蠟蠟




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

Re: The mainframe is now DOWN

[Lionel B. Dyck]

Best of luck in your next endeavor 


Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you 
are, reputation merely what others think you are.”   - - - John Wooden

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
John McKown
Sent: Tuesday, May 2, 2023 9:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: The mainframe is now DOWN

I just shutdown HealthMarkets z9BC running z/OS1.12 for the final time. We are 
going to allow our Production Control person to power it off. Then lunch. 
蠟蠟

--
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 mainframe is now DOWN

[John McKown]

I just shutdown HealthMarkets z9BC running z/OS1.12 for the final time. We
are going to allow our Production Control person to power it off. Then
lunch. 蠟蠟

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

Re: REXX parse parens

[David Crayford]

If you didn’t have to pay for a Tesla would you prefer it over a Ford Escort?

> On 2 May 2023, at 10:33 pm, Steve Thompson  wrote:
> 
> Nuts. We don't have the power (ok the $$$) to charge a Tesla.
> 
> Rather silly to have to fire up a gasoline generator to charge that Tesla.  
> ;-)
> 
> Just Say'n'.
> 
> Steve Thompson
> 
> On 5/2/2023 10:21 AM, David Crayford wrote:
>> Yikes. Not very user friendly and the linkage overhead is quite heavy. My 
>> opinion is quite simple, don’t use REXX. And that’s coming from a guy that 
>> wrote a REXX regex package. There is so much choice these days it’s a bit 
>> like driving a Ford Escort when you have a Tesla available.
>> 
> 
> --
> 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: REXX parse parens

[Steve Thompson]

Nuts. We don't have the power (ok the $$$) to charge a Tesla.

Rather silly to have to fire up a gasoline generator to charge 
that Tesla.  ;-)


Just Say'n'.

Steve Thompson

On 5/2/2023 10:21 AM, David Crayford wrote:

Yikes. Not very user friendly and the linkage overhead is quite heavy. My 
opinion is quite simple, don’t use REXX. And that’s coming from a guy that 
wrote a REXX regex package. There is so much choice these days it’s a bit like 
driving a Ford Escort when you have a Tesla available.



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

Re: REXX parse parens

[David Crayford]

Yikes. Not very user friendly and the linkage overhead is quite heavy. My 
opinion is quite simple, don’t use REXX. And that’s coming from a guy that 
wrote a REXX regex package. There is so much choice these days it’s a bit like 
driving a Ford Escort when you have a Tesla available. 


> On 2 May 2023, at 10:03 pm, Lionel B. Dyck  wrote:
> 
> See File 939 on the CBTTape
> 
> 
> Lionel B. Dyck <><
> Website: https://www.lbdsoftware.com
> Github: https://github.com/lbdyck
> 
> “Worry more about your character than your reputation. Character is what you 
> are, reputation merely what others think you are.”   - - - John Wooden
> 
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of 
> David Crayford
> Sent: Tuesday, May 2, 2023 9:02 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: REXX parse parens
> 
> Is there a PCRE package available for REXX?
> 
>> On 2 May 2023, at 9:57 pm, Seymour J Metz  wrote:
>> 
>> Is there a REXX-aware PEG package?
>> 
>> 
>> --
>> Shmuel (Seymour J.) Metz
>> http://mason.gmu.edu/~smetz3
>> 
>> 
>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on 
>> behalf of David Crayford [dcrayf...@gmail.com]
>> Sent: Tuesday, May 2, 2023 9:55 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: REXX parse parens
>> 
>> And if you need more than regexen there are PEGs.
>> 
>>> On 2 May 2023, at 9:50 pm, Seymour J Metz  wrote:
>>> 
>>> If you need more than ECMA Script regexen there's PCRE.
>>> 
>>> 
>>> --
>>> Shmuel (Seymour J.) Metz
>>> http://mason.gmu.edu/~smetz3
>>> 
>>> 
>>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on 
>>> behalf of David Crayford [dcrayf...@gmail.com]
>>> Sent: Tuesday, May 2, 2023 9:39 AM
>>> To: IBM-MAIN@LISTSERV.UA.EDU
>>> Subject: Re: REXX parse parens
>>> 
>>> Shameless plug but you can use my RTK package to process regular 
>>> expressions in z/OS REXX https://github.com/daveyc/RTK
>>> 
 On 2 May 2023, at 9:22 pm, David Crayford  wrote:
 
 
 
> On 2 May 2023, at 7:30 am, Frank Swarbrick  
> wrote:
> 
> Parse Var option varOpt '(' valueOpt ‘)’
 
 
 
 Adding an extra space after the closing parenthesis can help as a 
 workaround.
 
Parse Var option varOpt '(' valueOpt ‘) ‘
 
 Parse is good for simple text yanking but it’s not match for regular 
 expressions or PEGs.
>>> 
>>> 
>>> -
>>> - 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

Sv: REXX parse parens

[Lars Höglund]

Seems to work if you skip the "blank" together with ()

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Seymour J 
Metz
Skickat: den 2 maj 2023 15:36
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: REXX parse parens

It won't work for nested parentheses.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Jack Zukt [jzuk...@gmail.com]
Sent: Tuesday, May 2, 2023 3:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

Hi
This should work

Parse arg opt
Parse value opt with "(" opt") "
If  pos(" (", opt) >0 then
Parse value opt with opt" ("member")"
Do
End

Regards
Jack

On Tue, May 2, 2023, 00:31 Frank Swarbrick 
wrote:

> The following is a simplified version of some code from IBM's 
> CEEBLDTX, placed in to an EXEC I've named PARENS:
>
> Parse Arg option
> Parse Var option varOpt '(' valueOpt ')'
> Say varOpt
> Say valueOpt
>
> This handles a simple dataset name, e.g.:
>
> Test1:  PARENS COBOL(TEST):
> Results1:
> COBOL
> TEST
>
> But it doesn't work for a PDS member to following, also surrounded by
> parentheses:
>
> Test2:  PARENS COBOL(TEST(MEMBER))
> Results2:
> COBOL
> TEST(MEMBER
>
> Any simple REXX parse option to handle this, or do I need to resort to 
> more complex REXX?  Or do I just add a trailing paren if there is a 
> leading one in valueOpt?  Perhaps that's the simples answer.
>
> Frank
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

--
For IBM-MAIN subscribe / signoff / archive 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: REXX parse parens

[Lionel B. Dyck]

See File 939 on the CBTTape


Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you 
are, reputation merely what others think you are.”   - - - John Wooden

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
David Crayford
Sent: Tuesday, May 2, 2023 9:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

Is there a PCRE package available for REXX?

> On 2 May 2023, at 9:57 pm, Seymour J Metz  wrote:
> 
> Is there a REXX-aware PEG package?
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on 
> behalf of David Crayford [dcrayf...@gmail.com]
> Sent: Tuesday, May 2, 2023 9:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: REXX parse parens
> 
> And if you need more than regexen there are PEGs.
> 
>> On 2 May 2023, at 9:50 pm, Seymour J Metz  wrote:
>> 
>> If you need more than ECMA Script regexen there's PCRE.
>> 
>> 
>> --
>> Shmuel (Seymour J.) Metz
>> http://mason.gmu.edu/~smetz3
>> 
>> 
>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on 
>> behalf of David Crayford [dcrayf...@gmail.com]
>> Sent: Tuesday, May 2, 2023 9:39 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: REXX parse parens
>> 
>> Shameless plug but you can use my RTK package to process regular 
>> expressions in z/OS REXX https://github.com/daveyc/RTK
>> 
>>> On 2 May 2023, at 9:22 pm, David Crayford  wrote:
>>> 
>>> 
>>> 
 On 2 May 2023, at 7:30 am, Frank Swarbrick  
 wrote:
 
 Parse Var option varOpt '(' valueOpt ‘)’
>>> 
>>> 
>>> 
>>> Adding an extra space after the closing parenthesis can help as a 
>>> workaround.
>>> 
>>> Parse Var option varOpt '(' valueOpt ‘) ‘
>>> 
>>> Parse is good for simple text yanking but it’s not match for regular 
>>> expressions or PEGs.
>> 
>> 
>> -
>> - 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: REXX parse parens

[David Crayford]

Is there a PCRE package available for REXX?

> On 2 May 2023, at 9:57 pm, Seymour J Metz  wrote:
> 
> Is there a REXX-aware PEG package?
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> David Crayford [dcrayf...@gmail.com]
> Sent: Tuesday, May 2, 2023 9:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: REXX parse parens
> 
> And if you need more than regexen there are PEGs.
> 
>> On 2 May 2023, at 9:50 pm, Seymour J Metz  wrote:
>> 
>> If you need more than ECMA Script regexen there's PCRE.
>> 
>> 
>> --
>> Shmuel (Seymour J.) Metz
>> http://mason.gmu.edu/~smetz3
>> 
>> 
>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>> David Crayford [dcrayf...@gmail.com]
>> Sent: Tuesday, May 2, 2023 9:39 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: REXX parse parens
>> 
>> Shameless plug but you can use my RTK package to process regular expressions 
>> in z/OS REXX https://github.com/daveyc/RTK
>> 
>>> On 2 May 2023, at 9:22 pm, David Crayford  wrote:
>>> 
>>> 
>>> 
 On 2 May 2023, at 7:30 am, Frank Swarbrick  
 wrote:
 
 Parse Var option varOpt '(' valueOpt ‘)’
>>> 
>>> 
>>> 
>>> Adding an extra space after the closing parenthesis can help as a 
>>> workaround.
>>> 
>>> Parse Var option varOpt '(' valueOpt ‘) ‘
>>> 
>>> Parse is good for simple text yanking but it’s not match for regular 
>>> expressions or PEGs.
>> 
>> 
>> --
>> 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: REXX parse parens

[Seymour J Metz]

Is there a REXX-aware PEG package?


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Crayford [dcrayf...@gmail.com]
Sent: Tuesday, May 2, 2023 9:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

And if you need more than regexen there are PEGs.

> On 2 May 2023, at 9:50 pm, Seymour J Metz  wrote:
>
> If you need more than ECMA Script regexen there's PCRE.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> David Crayford [dcrayf...@gmail.com]
> Sent: Tuesday, May 2, 2023 9:39 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: REXX parse parens
>
> Shameless plug but you can use my RTK package to process regular expressions 
> in z/OS REXX https://github.com/daveyc/RTK
>
>> On 2 May 2023, at 9:22 pm, David Crayford  wrote:
>>
>>
>>
>>> On 2 May 2023, at 7:30 am, Frank Swarbrick  
>>> wrote:
>>>
>>> Parse Var option varOpt '(' valueOpt ‘)’
>>
>>
>>
>> Adding an extra space after the closing parenthesis can help as a workaround.
>>
>>  Parse Var option varOpt '(' valueOpt ‘) ‘
>>
>> Parse is good for simple text yanking but it’s not match for regular 
>> expressions or PEGs.
>
>
> --
> 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: REXX parse parens

[David Crayford]

And if you need more than regexen there are PEGs.

> On 2 May 2023, at 9:50 pm, Seymour J Metz  wrote:
> 
> If you need more than ECMA Script regexen there's PCRE.
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> David Crayford [dcrayf...@gmail.com]
> Sent: Tuesday, May 2, 2023 9:39 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: REXX parse parens
> 
> Shameless plug but you can use my RTK package to process regular expressions 
> in z/OS REXX https://github.com/daveyc/RTK
> 
>> On 2 May 2023, at 9:22 pm, David Crayford  wrote:
>> 
>> 
>> 
>>> On 2 May 2023, at 7:30 am, Frank Swarbrick  
>>> wrote:
>>> 
>>> Parse Var option varOpt '(' valueOpt ‘)’
>> 
>> 
>> 
>> Adding an extra space after the closing parenthesis can help as a workaround.
>> 
>>  Parse Var option varOpt '(' valueOpt ‘) ‘
>> 
>> Parse is good for simple text yanking but it’s not match for regular 
>> expressions or PEGs.
> 
> 
> --
> 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: REXX parse parens

[David Crayford]

> On 2 May 2023, at 9:47 pm, Paul Gilmartin 
> <042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:
> 
> On Tue, 2 May 2023 21:39:43 +0800, David Crayford wrote:
> 
>> Shameless plug but you can use my RTK package to process regular expressions 
>> in z/OS REXX https://github.com/daveyc/RTK
>> 
> Can it assign fragments to REXX variables?  How does it deal with R0?
> 

If by fragments you mean named captures then no. It deals with R0 because it 
uses HLASM glue code to create a pre-initialised LE environment that it reuses. 
It can parse complicated expressions which REXX cannot. I reluctantly advise 
the OP to look at modern languages such as Python for new work. REXX is full of 
holes. 

> -- 
> 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: REXX parse parens

[Seymour J Metz]

If you need more than ECMA Script regexen there's PCRE.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Crayford [dcrayf...@gmail.com]
Sent: Tuesday, May 2, 2023 9:39 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

Shameless plug but you can use my RTK package to process regular expressions in 
z/OS REXX https://github.com/daveyc/RTK

> On 2 May 2023, at 9:22 pm, David Crayford  wrote:
>
>
>
>> On 2 May 2023, at 7:30 am, Frank Swarbrick  
>> wrote:
>>
>> Parse Var option varOpt '(' valueOpt ‘)’
>
>
>
> Adding an extra space after the closing parenthesis can help as a workaround.
>
>   Parse Var option varOpt '(' valueOpt ‘) ‘
>
> Parse is good for simple text yanking but it’s not match for regular 
> expressions or PEGs.


--
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: REXX parse parens

[Paul Gilmartin]

On Tue, 2 May 2023 21:39:43 +0800, David Crayford wrote:

>Shameless plug but you can use my RTK package to process regular expressions 
>in z/OS REXX https://github.com/daveyc/RTK
>
Can it assign fragments to REXX variables?  How does it deal with R0?

-- 
gil

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

Re: REXX parse parens

[Paul Gilmartin]

On Tue, 2 May 2023 08:02:25 +0100, Jack Zukt wrote:
>
>Parse arg opt
>Parse value opt with "(" opt") "
>If  pos(" (", opt) >0 then
>Parse value opt with opt" ("member")"
>Do
>End
>
It's easy to find a solution when you're posing the problem.

-- 
gil

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

Re: REXX parse parens

[David Crayford]

Shameless plug but you can use my RTK package to process regular expressions in 
z/OS REXX https://github.com/daveyc/RTK

> On 2 May 2023, at 9:22 pm, David Crayford  wrote:
> 
> 
> 
>> On 2 May 2023, at 7:30 am, Frank Swarbrick  
>> wrote:
>> 
>> Parse Var option varOpt '(' valueOpt ‘)’
> 
> 
> 
> Adding an extra space after the closing parenthesis can help as a workaround.
> 
>   Parse Var option varOpt '(' valueOpt ‘) ‘
> 
> Parse is good for simple text yanking but it’s not match for regular 
> expressions or PEGs.


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

Re: REXX parse parens

[Seymour J Metz]

It won't work for nested parentheses.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Jack Zukt [jzuk...@gmail.com]
Sent: Tuesday, May 2, 2023 3:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

Hi
This should work

Parse arg opt
Parse value opt with "(" opt") "
If  pos(" (", opt) >0 then
Parse value opt with opt" ("member")"
Do
End

Regards
Jack

On Tue, May 2, 2023, 00:31 Frank Swarbrick 
wrote:

> The following is a simplified version of some code from IBM's CEEBLDTX,
> placed in to an EXEC I've named PARENS:
>
> Parse Arg option
> Parse Var option varOpt '(' valueOpt ')'
> Say varOpt
> Say valueOpt
>
> This handles a simple dataset name, e.g.:
>
> Test1:  PARENS COBOL(TEST):
> Results1:
> COBOL
> TEST
>
> But it doesn't work for a PDS member to following, also surrounded by
> parentheses:
>
> Test2:  PARENS COBOL(TEST(MEMBER))
> Results2:
> COBOL
> TEST(MEMBER
>
> Any simple REXX parse option to handle this, or do I need to resort to
> more complex REXX?  Or do I just add a trailing paren if there is a leading
> one in valueOpt?  Perhaps that's the simples answer.
>
> Frank
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

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

Re: REXX parse parens

[Seymour J Metz]

It's not difficult to write an assembler subroutine to parse and return the 
results in REXX variables.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Rupert Reynolds [rreyno...@cix.co.uk]
Sent: Tuesday, May 2, 2023 8:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX parse parens

Alternative POV: I gave up on TSO command format ages ago (where that
doesn't conflict with other people) and use *nix-style arguments.

In VM/CMS where Rexx got started  everything after "(" is processed as
options

For my own use I accept some limitations of parse. Either every argument is
forced  upper case or lower, or the keywords are case sensitive.

parse upper arg "-UNIT" " " unitt rest 1 "-STU" " " stuff rest

That sets unitt and stuff regardless of the order they are given. (I look
for options such as -help and -debug separately).

Doing it like that I can use -UNIT or -UNITTEST, but in truth it would
equally accept
-UNITBANANA as long as it's followed by a space and then a filename ended
by another space (or end of string).

So saying, long ago I had success simply repairing any missing ")" during
verification of TSO format arguments :-)

Roops

On Tue, 2 May 2023, 00:30 Frank Swarbrick, 
wrote:

> The following is a simplified version of some code from IBM's CEEBLDTX,
> placed in to an EXEC I've named PARENS:
>
> Parse Arg option
> Parse Var option varOpt '(' valueOpt ')'
> Say varOpt
> Say valueOpt
>
> This handles a simple dataset name, e.g.:
>
> Test1:  PARENS COBOL(TEST):
> Results1:
> COBOL
> TEST
>
> But it doesn't work for a PDS member to following, also surrounded by
> parentheses:
>
> Test2:  PARENS COBOL(TEST(MEMBER))
> Results2:
> COBOL
> TEST(MEMBER
>
> Any simple REXX parse option to handle this, or do I need to resort to
> more complex REXX?  Or do I just add a trailing paren if there is a leading
> one in valueOpt?  Perhaps that's the simples answer.
>
> Frank
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

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

Re: REXX parse parens

[David Crayford]

> On 2 May 2023, at 7:30 am, Frank Swarbrick  
> wrote:
> 
> Parse Var option varOpt '(' valueOpt ‘)’



Adding an extra space after the closing parenthesis can help as a workaround.

Parse Var option varOpt '(' valueOpt ‘) ‘

Parse is good for simple text yanking but it’s not match for regular 
expressions or PEGs.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX parse parens

[Steve Beaver]

To make your life a bit easier use “ instead of ‘

Sent from my iPhone

No one said I could type with one thumb 

> On May 2, 2023, at 07:20, Rupert Reynolds  wrote:
> 
> Alternative POV: I gave up on TSO command format ages ago (where that
> doesn't conflict with other people) and use *nix-style arguments.
> 
> In VM/CMS where Rexx got started  everything after "(" is processed as
> options
> 
> For my own use I accept some limitations of parse. Either every argument is
> forced  upper case or lower, or the keywords are case sensitive.
> 
> parse upper arg "-UNIT" " " unitt rest 1 "-STU" " " stuff rest
> 
> That sets unitt and stuff regardless of the order they are given. (I look
> for options such as -help and -debug separately).
> 
> Doing it like that I can use -UNIT or -UNITTEST, but in truth it would
> equally accept
> -UNITBANANA as long as it's followed by a space and then a filename ended
> by another space (or end of string).
> 
> So saying, long ago I had success simply repairing any missing ")" during
> verification of TSO format arguments :-)
> 
> Roops
> 
>> On Tue, 2 May 2023, 00:30 Frank Swarbrick, 
>> wrote:
>> 
>> The following is a simplified version of some code from IBM's CEEBLDTX,
>> placed in to an EXEC I've named PARENS:
>> 
>> Parse Arg option
>> Parse Var option varOpt '(' valueOpt ')'
>> Say varOpt
>> Say valueOpt
>> 
>> This handles a simple dataset name, e.g.:
>> 
>> Test1:  PARENS COBOL(TEST):
>> Results1:
>> COBOL
>> TEST
>> 
>> But it doesn't work for a PDS member to following, also surrounded by
>> parentheses:
>> 
>> Test2:  PARENS COBOL(TEST(MEMBER))
>> Results2:
>> COBOL
>> TEST(MEMBER
>> 
>> Any simple REXX parse option to handle this, or do I need to resort to
>> more complex REXX?  Or do I just add a trailing paren if there is a leading
>> one in valueOpt?  Perhaps that's the simples answer.
>> 
>> Frank
>> 
>> 
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: REXX parse parens

[Rupert Reynolds]

Alternative POV: I gave up on TSO command format ages ago (where that
doesn't conflict with other people) and use *nix-style arguments.

In VM/CMS where Rexx got started  everything after "(" is processed as
options

For my own use I accept some limitations of parse. Either every argument is
forced  upper case or lower, or the keywords are case sensitive.

parse upper arg "-UNIT" " " unitt rest 1 "-STU" " " stuff rest

That sets unitt and stuff regardless of the order they are given. (I look
for options such as -help and -debug separately).

Doing it like that I can use -UNIT or -UNITTEST, but in truth it would
equally accept
-UNITBANANA as long as it's followed by a space and then a filename ended
by another space (or end of string).

So saying, long ago I had success simply repairing any missing ")" during
verification of TSO format arguments :-)

Roops

On Tue, 2 May 2023, 00:30 Frank Swarbrick, 
wrote:

> The following is a simplified version of some code from IBM's CEEBLDTX,
> placed in to an EXEC I've named PARENS:
>
> Parse Arg option
> Parse Var option varOpt '(' valueOpt ')'
> Say varOpt
> Say valueOpt
>
> This handles a simple dataset name, e.g.:
>
> Test1:  PARENS COBOL(TEST):
> Results1:
> COBOL
> TEST
>
> But it doesn't work for a PDS member to following, also surrounded by
> parentheses:
>
> Test2:  PARENS COBOL(TEST(MEMBER))
> Results2:
> COBOL
> TEST(MEMBER
>
> Any simple REXX parse option to handle this, or do I need to resort to
> more complex REXX?  Or do I just add a trailing paren if there is a leading
> one in valueOpt?  Perhaps that's the simples answer.
>
> Frank
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: REXX parse parens

[Jack Zukt]

Hi,
Sorry, typing error, I was writing from my phone, not the best media for
this kind of thing.
No blanks are needed

Parse arg opt
Parse value opt with "("opt")"
If  pos("(",opt) >0 then
Parse value opt with opt"("member")"
Do
End

Regards
Jack

On Tue, 2 May 2023 at 10:46, Lars Höglund  wrote:

> Why do You have "blank" before and after "()"?
>
> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List  För Jack
> Zukt
> Skickat: den 2 maj 2023 09:02
> Till: IBM-MAIN@LISTSERV.UA.EDU
> Ämne: Re: REXX parse parens
>
> Hi
> This should work
>
> Parse arg opt
> Parse value opt with "(" opt") "
> If  pos(" (", opt) >0 then
> Parse value opt with opt" ("member")"
> Do
> End
>
> Regards
> Jack
>
> On Tue, May 2, 2023, 00:31 Frank Swarbrick 
> wrote:
>
> > The following is a simplified version of some code from IBM's
> > CEEBLDTX, placed in to an EXEC I've named PARENS:
> >
> > Parse Arg option
> > Parse Var option varOpt '(' valueOpt ')'
> > Say varOpt
> > Say valueOpt
> >
> > This handles a simple dataset name, e.g.:
> >
> > Test1:  PARENS COBOL(TEST):
> > Results1:
> > COBOL
> > TEST
> >
> > But it doesn't work for a PDS member to following, also surrounded by
> > parentheses:
> >
> > Test2:  PARENS COBOL(TEST(MEMBER))
> > Results2:
> > COBOL
> > TEST(MEMBER
> >
> > Any simple REXX parse option to handle this, or do I need to resort to
> > more complex REXX?  Or do I just add a trailing paren if there is a
> > leading one in valueOpt?  Perhaps that's the simples answer.
> >
> > Frank
> >
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive 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

Sv: REXX parse parens

[Lars Höglund]

Why do You have "blank" before and after "()"?

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Jack Zukt
Skickat: den 2 maj 2023 09:02
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: REXX parse parens

Hi
This should work

Parse arg opt
Parse value opt with "(" opt") "
If  pos(" (", opt) >0 then
Parse value opt with opt" ("member")"
Do
End

Regards
Jack

On Tue, May 2, 2023, 00:31 Frank Swarbrick 
wrote:

> The following is a simplified version of some code from IBM's 
> CEEBLDTX, placed in to an EXEC I've named PARENS:
>
> Parse Arg option
> Parse Var option varOpt '(' valueOpt ')'
> Say varOpt
> Say valueOpt
>
> This handles a simple dataset name, e.g.:
>
> Test1:  PARENS COBOL(TEST):
> Results1:
> COBOL
> TEST
>
> But it doesn't work for a PDS member to following, also surrounded by
> parentheses:
>
> Test2:  PARENS COBOL(TEST(MEMBER))
> Results2:
> COBOL
> TEST(MEMBER
>
> Any simple REXX parse option to handle this, or do I need to resort to 
> more complex REXX?  Or do I just add a trailing paren if there is a 
> leading one in valueOpt?  Perhaps that's the simples answer.
>
> Frank
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

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

Re: REXX parse parens

[Jack Zukt]

Hi
This should work

Parse arg opt
Parse value opt with "(" opt") "
If  pos(" (", opt) >0 then
Parse value opt with opt" ("member")"
Do
End

Regards
Jack

On Tue, May 2, 2023, 00:31 Frank Swarbrick 
wrote:

> The following is a simplified version of some code from IBM's CEEBLDTX,
> placed in to an EXEC I've named PARENS:
>
> Parse Arg option
> Parse Var option varOpt '(' valueOpt ')'
> Say varOpt
> Say valueOpt
>
> This handles a simple dataset name, e.g.:
>
> Test1:  PARENS COBOL(TEST):
> Results1:
> COBOL
> TEST
>
> But it doesn't work for a PDS member to following, also surrounded by
> parentheses:
>
> Test2:  PARENS COBOL(TEST(MEMBER))
> Results2:
> COBOL
> TEST(MEMBER
>
> Any simple REXX parse option to handle this, or do I need to resort to
> more complex REXX?  Or do I just add a trailing paren if there is a leading
> one in valueOpt?  Perhaps that's the simples answer.
>
> Frank
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: TLS - and HTTP download

[Colin Paice]

I wrote  Using AT-TLS and PAGENT on z/OS

which covers setting  up ATTLS, and gives an example or two
Colin

On Mon, 1 May 2023 at 22:17, Keith Gooding <
034af3894af4-dmarc-requ...@listserv.ua.edu> wrote:

> Bill.
>
> A AT-TLS rule consists of a number of tests and pointers to actions which
> are performed if all of the tests are true. One of the actions specifies if
> TLS is to be enabled or not.  You can test on  local and remote port
> numbers , local and remote IP addresses, connection direction (inbound or
> outbound) , local address space name etc. you may have a rule which says
> “if the remote port is 443 (https ?) and direction is outbound then enable
> TLS”.  This would  enable TLS for an SMPE batch job connecting to an https
> server. To check you can either view the AT-TLS policy or,  to get a better
> formatted list, use the unix command “pasearch -t >  mylist.txt” and then
> view mylist.txt. See Comms Server IP diagnosis for details of pasearch and
> how to list a subset of the policy. If this is in fact the problem you
> could add add another rule which says “if the remote IP address is the IBM
> https server then do not enable TLS“.
>
> Keith
> > On 1 May 2023, at 20:29, Michael Babcock  wrote:
> >
> > Here's our simple DB2 Secure port definition in AT-TLS:
> >
> > TTLSRule DBRTSecureServer# Secure DBRT
> > {
> >   LocalPortRange   4450# DBRT Secure Port
> >   DirectionInbound # Inbound Only
> >   Priority 1   # Lowest priority
> rule
> >   TTLSGroupActionRef   grp_Production  # Uncomment once
> debugging
> >   TTLSEnvironmentActionRef DBRT_SecureServer_Action# DBRT Env Action
> > }
> >
> > TTLSEnvironmentAction DBRT_SecureServer_Action
> > {
> >   HandshakeRole   Server
> >   TTLSKeyRingParmsRef DBRT_Keyring_Parms
> >   TTLSCipherParmsRef  DB2_CipherParms
> >   TTLSEnvironmentAdvancedParms
> >   {
> > ClientAuthTypePassThru
> > SSLv2 Off
> > SSLv3 Off
> > TLSv1 Off
> > TLSv1.1   Off
> > TLSv1.2   On
> >   }
> > }
> >
> > TTLSKeyRingParms  DBRT_Keyring_Parms
> > {
> >  Keyring  DBRT/DBRT.KEYRING
> > }
> >>
>
> --
> 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