Groups | Search | Server Info | Login | Register

Groups > comp.lang.cobol > #12885

Re: Scrabble Score (exercism solution)

From docdwarf@panix.com ()
Newsgroups comp.lang.cobol
Subject Re: Scrabble Score (exercism solution)
Date 2025-01-14 21:33 +0000
Organization Public Access Networks Corp.
Message-ID <vm6l6p$nd6$1@reader2.panix.com> (permalink)
References <vm2e7o$1mcn6$1@dont-email.me> <vm2mdh$32uhk$1@paganini.bofh.team> <vm4juk$28k9f$1@dont-email.me> <vm6b3h$3dcll$1@paganini.bofh.team>

Show all headers | View raw

In article <vm6b3h$3dcll$1@paganini.bofh.team>,
R Daneel Olivaw  <Danny@hyperspace.vogon.gov> wrote:
>Bruce M. Axtens wrote:
>> On Mon, 13 Jan 2025 10:29:21 +0100, R Daneel Olivaw wrote:
>> 
>>> WHEN OTHER  ??
>>>
>>> You could probably put the test for SPACE in there, something which
>>> would remove any chance of a test on WS-CHAR (61).
>> 
>> Yes, good advice. Thank you.
>> 
>
>Just paranoia, 60 letters for one word is ridiculous, but I have no idea 
>where the data comes from.

Bingo.  Data are dirty unless proven otherwise.  What you're using 
SPECIAL-NAMES for we used to do with 88s that ran on for pages.

01  WS-TEST-INVOICE-DISTRICT PIC 9(6) VALUE ZEROES.
    COPY VALDSTRC.

MOVE IV97928-INVOICE-REC      TO  WS-INVOICE-REC.
MOVE WS-INVOICE-REC-DISTRICT  TO  WS-TEST-INVOICE-DISTRICT.
IF VALID-DISTRICT
    NEXT SENTENCE
    ELSE
        PERFORM 8100-INVALID-INV-DSTRCT  THRU  8100-IVD-EX
        GO TO   9999-CLOSE-N-EXIT.

... and The Guy in the Corner Cubicle - back in those days it was always a 
guy - had a list in the top-right drawer of his desk with the names of all 
the programs that had to be recompiled every time a new district was 
acquired.

DD

Back to comp.lang.cobol | Previous | Next — Previous in thread | Find similar

Thread

Scrabble Score (exercism solution) "Bruce M. Axtens" <some.one@some.where> - 2025-01-13 07:09 +0000
  Re: Scrabble Score (exercism solution) R Daneel Olivaw <Danny@hyperspace.vogon.gov> - 2025-01-13 10:29 +0100
    Re: Scrabble Score (exercism solution) "Bruce M. Axtens" <some.one@some.where> - 2025-01-14 02:59 +0000
      Re: Scrabble Score (exercism solution) R Daneel Olivaw <Danny@hyperspace.vogon.gov> - 2025-01-14 19:40 +0100
        Re: Scrabble Score (exercism solution) docdwarf@panix.com () - 2025-01-14 21:33 +0000

csiph-web