Re: CA-Easytrieve Users



<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)
Sun Valley Systems http://sunvaley.com
"For God so loved the world that He gave His only begotten Son, that
whoever believes in Him should not perish but have everlasting life."


.



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
    ... 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
    ... Elegance is strictly in the eye of the beholder where the golden proportion ... Judson McClendon wrote in message ... IF PROVTYPE = '09''10''11' ... MOVE 'PRIVATE' TO HOSP ...
    (comp.lang.cobol)