I also like CA-IDEAL. A little bit PL/I like with a nice SELECT statement:
Example:
SELECT TRANS_CODE
WHEN 'A'
DO ADD_RECORD_PROC
WHEN 'D'
DO DEL_RECORD_PROC
WHEN 'P'
DO PURCHASE_PROC
WHEN 'R'
DO RECEIPT_PROC
WHEN ANY
DO LOG_TRANS
WHEN OTHER
DO INVALID_CODE
ENDSEL
On Thu, Mar
Good job. You could have a future as an assembler programmer, because you
pay attention to the details.
Your weird way is interesting because it is correct, but... it is not
idiomatic. So it will freak out most assembler programmers. That's often
not a good thing, but often is not always.
sas
Very interesting if one-sided interview. He gives Steve Wozniak very little
credit although Woz really was the inventor and Jobs the salesman in the
partnership.
I read Sculley's autobiography many years ago (From Pepsi to Apple). It
doesn't describe events quite the same way.
Nevertheless, good
On Wed, 29 Mar 2023 14:16:56 +, Robert Prins wrote:
>> w..., and IBM rejected the original SHARE
>> requirement for a CASE statement.
>
>But the SELECT statement that they added (before my time) later beats the
>crap out of CASE in C & Pascal.
>
Pascal CASE may have a performance
"You can write FORTRAN in any language."
Too be fair, much of what I take for granted in PL/I control structures was not
in the original version, and IBM rejected the original SHARE requirement for a
CASE statement.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
On Wed, 29 Mar 2023 at 11:20, Seymour J Metz wrote:
> "You can write FORTRAN in any language."
>
> Too be fair, much of what I take for granted in PL/I control structures
> was not in the original version, and IBM rejected the original SHARE
> requirement for a CASE statement.
>
But the SELECT
I'm not so sure about Kildall...anyone who snubs a business meeting with
IBM to go flying (a worthy endeavor in and of itself) isn't businessman
enough to compete with Jobs and Gates.
On Wed, Mar 29, 2023 at 3:05 AM Wayne Bickerdike wrote:
> Very interesting if one-sided interview. He gives
https://www.oann.com/business/uk-to-examine-broadcoms/?utm_source=rss_me
dium=rss_campaign=uk-to-examine-broadcoms
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,
On Wed, 29 Mar 2023 08:13:11 -0500, Joe Monk wrote:
>"Too many languages lack ELSEIF and strong closure. Fie on
>the danglig ELSE!"
>
>Now you know why COBOL programmers always indented their code ... it helps
>
Past tense? No longer?
>line up the IF...ELSE structure. That was of course before
I saw top down and bottom up structured code ideas. And somewhere
in there was Yourdon(?) structured "method". Meanwhile I was
mostly doing ALC in those days, unless I was needed to work on
applications under CICS, then it was COBOL.
Problem was, for CICS, straight line code was best and if
> It's precious that Rexx allows identifying the END by naming the control
> variable.
> Does PL/I do likewise?
No, PL/I does it better; a name on the end must match the label on the opening
statement.You can have multiple DO loops in the same scope, but PL/I requires
labels to be unique.
On Wed, 29 Mar 2023 09:38:50 -0400, Bob Bridges wrote:
>I suppose so, but I always use SELECT, never ELSEIF. I think it's because
>with ELSEIF I feel compelled to indent each clause as if it were an "ELSE IF",
>
Sounds like a personal problem to me.
>and I abominate those long increasingly
And this is the reason I think complaints about Python's syntactic
indentation miss the point: it's simply the language using what you should
be doing anyway.
On Wed, Mar 29, 2023 at 8:13 AM Joe Monk wrote:
> "Too many languages lack ELSEIF and strong closure. Fie on
> the danglig ELSE!"
>
>
Nah, there are no more COBOL programmers; their brains all rotted.
---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313
/* America is at that awkward stage. It's too late to work within the system,
but too early to shoot the bastards. -Claire Wolfe, _101 Things to Do 'Til the
As NetRexx does; but the label is optional.
> On 29 Mar 2023, at 17:18, Seymour J Metz wrote:
>
>> It's precious that Rexx allows identifying the END by naming the control
>> variable.
>> Does PL/I do likewise?
>
> No, PL/I does it better; a name on the end must match the label on the
>
Thank you for *ALL* your contributions to the community.
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
I've read various accounts, one of which had IBM offering unacceptable terms on
a take it or leave it basis.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Jay
I'm sorry to hear of the demise of another mainframe shop...and that the
equipment is being destroyed. I'm sure there's some hobbyist out there who
would love to put the equipment to use. (Maybe even me.) The CKD DASD,
certainly, would be useful to several hobbyists I know, as well as at least
one
"Too many languages lack ELSEIF and strong closure. Fie on
the danglig ELSE!"
Now you know why COBOL programmers always indented their code ... it helps
line up the IF...ELSE structure. That was of course before VS COBOL II
(Cobol '85).
Joe
On Wed, Mar 29, 2023 at 8:01 AM Paul Gilmartin <
I'm going to disagree only in a tiny and technical way: ITERATE forces more
discipline, but what that means is not that GOTO is less disciplined but that
GOTO ~allows~ less discipline. Back in my COBOL days I maintained that not all
GOTOs are evil; these three are just fine:
GOTO
SELECT in PL/I has two forms: one provides a variable matched against the
various WHEN clauses and one in which each WHEN has a boolean (well, BIT(1))
expression. REXX has only the former, whichis equivalent to IF/ELSEIF/ELSE.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
HealthMarkets z9BC is shutting down. User access will be removed 5Apr. CICS
will be unavailable after 31Mar. The last day is at the end of April. Most
of the equipment is so old it is being destroyed, except for the tape
drives which are being sold for parts. SCRT will be run on 2May. I'll be on
I'm not a "Micrsoft-basher" and I am not a huge fan of Steve's, but it should
be pointed out that the "went flying instead of meeting with IBM" is a version
of the story popularized by Bill Gates.
Dorothy was the one who typically handled vendor negotiations. Gary went on a
business trip to
I will second that. There are still job listings for remote system
programmers, if you are interested in that.
Sent with Proton Mail secure email.
--- Original Message ---
On Wednesday, March 29th, 2023 at 11:32 AM, Lionel B. Dyck
wrote:
> Thank you for ALL your contributions to
I get a lot of those from Linkedin.
If you have HLASM experience and are looking, contact me offline.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
rpinion865
I suppose so, but I always use SELECT, never ELSEIF. I think it's because with
ELSEIF I feel compelled to indent each clause as if it were an "ELSE IF", and I
abominate those long increasingly indented constructions:
if expr1 then stm1
else if expr2 then stm2
else if expr3 then do
>The source was unreadable because of the amount and size of copybooks.
>When compiled, the listing was so big that it was near impossible to
follow.
>Needless to say, the variable and paragraph names didn't help too much.
>Have you ever tried reading a DMS for CICS (again, 40 years ago)
My degree is in Accounting, but I discovered computer programming during the
course of my studies and was thoroughly hooked; I went straight into
applications development after graduation. More than one prospective
employer looked at me with stars in their eyes saying "Oh, at last, a
programmer
Yes, and the also added ITERATE and LEAVE.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Robert Prins [robert.ah.pr...@gmail.com]
Sent: Wednesday, March 29, 2023
Regarding Michael Jackson structured programming.
My first role at ICI was applications programmer. My Senior programmer gave
me three program specs that were training specs. The specs came with
flowcharts. I duly programmed them in PL/I replete with IF THEN GOTO ELSE
GOTO statements. Not a trace
Hi Mark,
thanks for your response.
One of the things of my posts that might be confusing, is that I am
specifically working with DB2 installations and it's tools. I do not work on or
change the z/OS system it's self. I am a Db2 Systems Programmer/ DBA. I would
never touch things like
Hi Kurt,
thanks for your response.
I have been very interested in z/OSMF and maybe using the workflows.
Unfortunately our managed service company is not too responsive in keeping
things up to date. (they do not have z/OSMF running on our systems).
On Tue, 28 Mar 2023 14:03:29 +, Kurt
Structured Programming with go to Statements, Donald E. Knuth, Computing
Surveys, Volume 6, No. 4, Deecember 1974
Reprinted in Classics of Software Engineering.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion
It's optional in PL/I as well unless you have a name on the END..
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
René Jansen [rene.vincent.jan...@gmail.com]
Sent:
Bill, SMPe allows 99 PTS datasets. I rarely add them in the JCL - adding them
to the DDDEFs in the global CSI keeps everyone on the same page.
David
On Wednesday, March 29, 2023 at 12:10:42 PM EDT, Bill Giannelli
wrote:
So, I have alot of maintenance to receive and am blowing out on
Since COBOL 1985 (implemented with an early release of VS COBOL II) you can
uses nested programs, which (can) have their own "local variables".
That being said, it's quite a paradigm shift for some COBOL programmers, and
I've had pushback from them each time I've used it. It is also just as
> Sounds like a personal problem to me.
Or he's using a prettyprinter that can't handle it well.
> Or, you could use ELSEIF and just not indent.
PL/I has no such statement; with SELECT there's no further need for it.
> I wish ITERATE I and LEAVE I allowed I to be an EXPOSEd nonlocal variable.
So, I have alot of maintenance to receive and am blowing out on SMPPTS. within
SMPe can I concatenate a second dataset for SMPPTS in the DDDEF?
thanks
Bill
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send
I may have misunderstood you, Shmuel, but I think you must have meant "REXX
has only the latter". The REXX select statement looks like this:
select
when boolexpr1 then stm
when boolexpr2 then stm
otherwise stm; end
VBA, on the other hand, has only the former:
Select Case MyVar
Yes, I meant the latter, not the former. Sorry for the dyslexia.
From: IBM Mainframe Discussion List on behalf of Bob
Bridges
Sent: Wednesday, March 29, 2023 12:41 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Stop the ragging on COBOL please [was: RE:
If you don't want to retire, then I hope you can find something
you really like.
Meanwhile, don't signoff. I've noticed too many of us have gone
west as they say.
Steve Thompson
On 3/29/2023 11:16 AM, John McKown wrote:
HealthMarkets z9BC is shutting down. User access will be removed 5Apr.
Hi Bill,
Create a DDDEF/Dataset for SMPPTS1, SMPPTS2 etc.
Be sure to add the DDDEFs to the Global, Target and DLIB Zones.
Regards,
David
On 2023-03-29 12:10, Bill Giannelli wrote:
So, I have alot of maintenance to receive and am blowing out on SMPPTS. within
SMPe can I concatenate a second
Hi David,
Thank you for your response!
That was easy!
Thanks
Bill
On Wed, 29 Mar 2023 12:18:57 -0400, David Spiegel
wrote:
>Hi Bill,
>Create a DDDEF/Dataset for SMPPTS1, SMPPTS2 etc.
>Be sure to add the DDDEFs to the Global, Target and DLIB Zones.
>
>Regards,
>David
>
>On 2023-03-29 12:10, Bill
Sorry to hear this.
Your contributions over the years were very important, and I hope you continue
in this business.
Best Regards
Ituriel do Nascimento Neto
z/OS System Programmer
Em quarta-feira, 29 de março de 2023 às 12:47:03 BRT, Seymour J Metz
escreveu:
I get a lot of those
Even if you retire, I suggest getting Hercules TK4- and on the groups
dot io support as a hobby.
On Wed, Mar 29, 2023 at 10:17 AM John McKown
wrote:
>
> HealthMarkets z9BC is shutting down. User access will be removed 5Apr. CICS
> will be unavailable after 31Mar. The last day is at the end of
So here is my attempt at specifying just a register
LHI 2,3
CALL @@GETCB,((2)),MF=(E,CALL1)
+ DS0H 01-CALL
+ LA1,CALL1 LOAD PARAMETER REG 1
03-IHBINNRR
+ ST
OK, the following three examples all seem to work. I dare say you are correct
about example 1 being unexpected usage of the execute mode. I only came up
with it my looking at an example that wasn’t working and seeing that putting my
value there directly made it work. But it wasn’t meant to
On 29/3/23 22:16, Robert Prins wrote:
On Wed, 29 Mar 2023 at 11:20, Seymour J Metz wrote:
"You can write FORTRAN in any language."
Too be fair, much of what I take for granted in PL/I control structures
was not in the original version, and IBM rejected the original SHARE
requirement for a
On Wed, 29 Mar 2023, at 05:24, David Crayford wrote:
> The
> interviewer held out both hands, one with an open palm the other with a
> clenched fist and asked me "what hand is the ball bearing in"?.
And did they want the "obvious" answer - the clenched fist, or did they
want one of the more
On Wed, 29 Mar 2023, at 14:01, Paul Gilmartin wrote:
> Too many languages lack ELSEIF and strong closure. Fie on
> the danglig ELSE!
An ALGOL variant (S-ALGOL) that I used at university differentiated
between, IIRC,
IF ... THEN ... ELSE
and
IF ... DO
which meant that as soon as the
Yep. I about fell off my barstool when I first heard about that.
(sorry...too soon?)
On Wed, Mar 29, 2023 at 9:03 AM Jay Maynard wrote:
> I'm not so sure about Kildall...anyone who snubs a business meeting with
> IBM to go flying (a worthy endeavor in and of itself) isn't businessman
> enough
The terms of the contract with ALL the computer customers was if he
dropped his price to one vendor, he would have to refund the
difference to all other vendors. And his 8086 was not ready yet.
https://en.wikipedia.org/wiki/Gary_Kildall
On Wed, Mar 29, 2023 at 8:03 AM Jay Maynard wrote:
>
> I'm
Example 1 looks as I expected, and I'd expect it to work.
You're close on Example 3, you don't want to specify MF in that case.
What you want is the call to go to the subroutine with R1->F'3'. In Ex. 1,
R2 contains the 3, it's stored in the parmlist addressed by R1 (via MF=E).
In Ex. 3, you're
Bill,
Just a word of caution on the SMPPTSn spill datasets. Once you create them you
have to keep them in sequence with no gaps. For example if you end up with
SMPPTS1-4 (in addition to SMPPTS), and you later notice that SMPPTS2 is empty,
don't just delete it. SMP/E stops looking for
54 matches
Mail list logo