Re: REXX parse parens

I use this code:- /*===*/ Strip_Keyword_and_Option: Procedure Expose keyword option Parse Arg string

Re: The mainframe is now DOWN

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

IBM-MAIN

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

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

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

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

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

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

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

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

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

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

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

Re: XLC inline assembler question

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

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

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,

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

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

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

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

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,

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

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

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

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

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:02 AM Lance D. Jackson < ljack...@pandrueassociates.com> wrote: > >

ZOWE Explorer Python SDK

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

Re: REXX parse parens

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

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

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

Re: REXX parse parens

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 >

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

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

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

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

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 >

Re: REXX parse parens

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

Re: REXX parse parens

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

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

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

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

Re: The mainframe is now DOWN

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

Re: The mainframe is now DOWN

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

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

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

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

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

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

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

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.

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

Re: EXTERNAL EMAIL: The mainframe is now DOWN

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:

Re: REXX parse parens

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

Re: REXX parse parens

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:

Re: The mainframe is now DOWN

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

Re: REXX parse parens

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

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 =

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.

Re: REXX parse parens

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

Re: The mainframe is now DOWN

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

Re: The mainframe is now DOWN

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

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,

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

Re: REXX parse parens

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

Re: REXX parse parens

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

Sv: REXX parse parens

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

Re: REXX parse parens

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-

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

Re: REXX parse parens

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:

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

Re: REXX parse parens

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

Re: REXX parse parens

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

Re: REXX parse parens

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

Re: REXX parse parens

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

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 ‘)’ > > >

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:

Re: REXX parse parens

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

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

Re: REXX parse parens

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

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

Re: REXX parse parens

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

Sv: REXX parse parens

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

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

Re: TLS - and HTTP download

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