Results: 1 0 0 0 ***
On Mon, Jun 8, 2020 at 4:06 PM Wayne Bickerdike <wayn...@gmail.com> wrote: > /* REXX */ > COUNTT = 0 > COUNTU = 0 > COUNTV = 0 > COUNTW = 0 > TAB.T = "COUNTT=COUNTT+1" > TAB.U = "COUNTU=COUNTU+1" > TAB.V = "COUNTV=COUNTV+1" > TAB.W = "COUNTW=COUNTW+1" > IDX = 'T' > > INTERPRET TAB.IDX > SAY COUNTT > SAY COUNTU > SAY COUNTV > SAY COUNTW > > On Mon, Jun 8, 2020 at 3:10 PM Wayne Bickerdike <wayn...@gmail.com> wrote: > >> Forgot the quotes! >> >> On Mon, Jun 8, 2020 at 3:07 PM Wayne Bickerdike <wayn...@gmail.com> >> wrote: >> >>> Or to be controversial: >>> >>> tab.T = countt=countT+1 >>> tab.U = countU=countU+1 >>> tab.V = countV=countV+1 >>> tab.W = countW=countW+1 >>> >>> INTERPRET tab.idx >>> >>> On Mon, Jun 8, 2020 at 3:01 PM Wayne Bickerdike <wayn...@gmail.com> >>> wrote: >>> >>>> CA-IDEAL has SELECT FIRST ACTION AND SELECT EVERY ACTION. That I like. >>>> >>>> On Mon, Jun 8, 2020 at 2:59 PM Wayne Bickerdike <wayn...@gmail.com> >>>> wrote: >>>> >>>>> For brevity, if you don't like DO END. >>>>> >>>>> 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 >>>>> >>>>> Could be : >>>>> SELECT( idx) >>>>> when ("T") then countt=countt+1 >>>>> when ("U") then countu=countu+1 >>>>> when ("V") then countv=countv+1 >>>>> when ("W") then countw=countw+1 >>>>> otherwise countx=countx+1; end >>>>> >>>>> >>>>> >>>>> On Mon, Jun 8, 2020 at 2:08 PM Bob Bridges <robhbrid...@gmail.com> >>>>> wrote: >>>>> >>>>>> 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, robhbrid...@gmail.com, cell 336 382-7313 >>>>>> >>>>>> /* If a problem has a single neck, it has a simple solution. */ >>>>>> >>>>>> -----Original Message----- >>>>>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] >>>>>> 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 <robhbrid...@gmail.com> >>>>>> 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: >>>>>> IBM-MAIN@LISTSERV.UA.EDU] 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 lists...@listserv.ua.edu with the message: INFO >>>>>> IBM-MAIN >>>>>> >>>>> >>>>> >>>>> -- >>>>> Wayne V. Bickerdike >>>>> >>>>> >>>> >>>> -- >>>> Wayne V. Bickerdike >>>> >>>> >>> >>> -- >>> Wayne V. Bickerdike >>> >>> >> >> -- >> Wayne V. Bickerdike >> >> > > -- > Wayne V. Bickerdike > > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN