Re: CA-Easytrieve Users



Of course there are many different ways of doing this. No doubt there are
even some that will meet with more approval than others. So what? It
works, it's easy to understand, and that's what I would usually expect of
"highly maintainable" code. No doubt I would run a listing-formatter to
make it easier to read if I had to make any changes, but that's because I'm
lazy.

Elegance is strictly in the eye of the beholder where the golden proportion
doesn't apply.

PL

Judson McClendon <judmc@xxxxxxxxxxxxx> wrote in message
news:DJV8j.39813$L%6.8000@xxxxxxxxxxxxxxxxxxxxxxxxx
<bnolan@xxxxxxxxxxxxx> wrote:

There are no syntax errors.
I have attached some code for you to see.
...

IF PROVTYPE = '08'
MOVE 'PUBLIC' TO HOSP
ELSE
IF PROVTYPE = '09''10''11'
MOVE 'PRIVATE' TO HOSP
ELSE
IF PROVTYPE = '27'
MOVE 'DAY HOSP' TO HOSP
ELSE
IF PROVTYPE = '00'
MOVE 'MEDIGAP' TO HOSP
ELSE
MOVE 'OTHER' TO HOSP
END-IF
END-IF
END-IF
END-IF.

That's "elegant" alright. And that code indenting thing is so difficult
to implement, too. Makes it "highly maintainable". :-)
--
Judson McClendon judmc@xxxxxxxxxxxxx (remove zero)



.



Relevant Pages

  • Re: CA-Easytrieve Users
    ... IF PROVTYPE = '09''10''11' does not work. ... Elegance is strictly in the eye of the beholder where the golden proportion ... Judson McClendon wrote in message ... MOVE 'PRIVATE' TO HOSP ...
    (comp.lang.cobol)
  • Re: CA-Easytrieve Users
    ... Code indenting is functional, not esthetics. ... Judson McClendon wrote in message ... IF PROVTYPE = '09''10''11' ... MOVE 'PRIVATE' TO HOSP ...
    (comp.lang.cobol)
  • Re: CA-Easytrieve Users
    ... MOVE WC-FALSE TO WF-SYSCARD-OPEN. ... MOVE 'E' TO DATE1-I-DATE-FORMAT. ... IF PROVTYPE = '09''10''11' ... MOVE 'PRIVATE' TO HOSP ...
    (comp.lang.cobol)
  • Re: CA-Easytrieve Users
    ... I'm always amazed at how people can read code without understanding what it says. ... IF PROVTYPE = '09''10''11' does not work. ... It's an obvious bug. ... MOVE 'PRIVATE' TO HOSP ...
    (comp.lang.cobol)
  • Re: CA-Easytrieve Users
    ... There are no syntax errors. ... IF PROVTYPE = '09''10''11' ... MOVE 'PRIVATE' TO HOSP ... "For God so loved the world that He gave His only begotten Son, ...
    (comp.lang.cobol)