No, I wasn't complaining about the SELECT statement, only about using lots of
DO/statement/ENDs when there's only a single statement. I would code the same
thing like this:
select
when idx="T" then countt=countt+1
when idx="U" then countu=countu+1
when idx="V" then countv=countv+1
when idx="W" then countw=countw+1
otherwise countx=countx+1; end
(Of course if that were a real example I would probably have found a way to use
a stem variable instead:
count.idx=count.idx+1
But in this case I was just talking about coding style, as Mr Metz said.)
---
Bob Bridges, [email protected], cell 336 382-7313
/* If a problem has a single neck, it has a simple solution. */
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Lou Losee
Sent: Sunday, June 7, 2020 14:38
Would you rather code the select as a series of nested if-then-else?
--- On Sun, Jun 7, 2020 at 1:35 PM Bob Bridges <[email protected]> wrote:
> The only language I can think of off-hand that doesn't require some sort
> of END to close a DO (I'm sure there are others) is ISPF. But, in REXX at
> least, I never use single-statement DOs. I see them all the time, and I
> don't get it. Like this:
>
> if x=0 then do
> x=x+1
> end
>
> Or, more painfully:
>
> select
> when idx="T" then
> do
> countt=countt+1
> end
> when idx="U" then
> do
> countu=countu+1
> end
> when idx="V" then
> do
> countv=countv+1
> end
> when idx="W" then
> do
> countw=countw+1
> end
> otherwise
> do
> countx=countx+1
> end
> end
>
> Why? If it were easier to read, I might sympathize. But it's harder, not
> easier.
>
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] On
> Behalf Of Paul Gilmartin
> Sent: Saturday, June 6, 2020 14:40
>
> But in Rexx similarly, END is required even for a single-statement DO.
> Good for Rexx. I like strong closure.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
