1. Forum
  2. Usenet
  3. COMP.LANG.C

  • Re: COBOL (was Re: iso646.h)

    From Lawrence D'Oliveiro@21:1/5 to Scott Lurndal on Thu Jan 25 00:44:55 2024
    On Wed, 24 Jan 2024 22:13:06 GMT, Scott Lurndal wrote:

    01 STAR-TABLE.
    05 ROW OCCURS 42 TIMES.
    10 KOLUMN PIC X OCCURS 42 TIMES.
    ...
    01 MINI-TABLE.
    05 MROW OCCURS 14 TIMES.
    10 MCOL PIC X OCCURS 14 TIMES.

    *Sigh* Imagine a language without named constants.

    DISPLAY " ".
    DISPLAY " *STAR TREK* ".
    DISPLAY " ".
    DISPLAY "CONGRATULATIONS - YOU HAVE JUST BEEN APPOINTED ".
    DISPLAY "CAPTAIN OF THE U.S.S. ENTERPRISE. ".
    DISPLAY " ".
    DISPLAY "PLEASE ENTER YOUR NAME, CAPTAIN ".
    ACCEPT NAME-X.

    And with crummy string handling and I/O.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Lawrence D'Oliveiro@21:1/5 to Lew Pitcher on Thu Jan 25 00:53:00 2024
    On Wed, 24 Jan 2024 20:31:05 -0000 (UTC), Lew Pitcher wrote:

    On Wed, 24 Jan 2024 20:21:37 +0000, Lawrence D'Oliveiro wrote:

    I suspect a lot of those institutions have already gone out of
    business, or are close to going out of business.

    And who do /you/ bank with?

    Are you talking about the bank I originally signed up with, or the one
    that acquired it?

    Even if both of them were making heavy use of COBOL, what was formerly two separate COBOL installations is now just one COBOL installation.

    So whichever way you look at it, COBOL usage is inevitably shrinking.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Kaz Kylheku@21:1/5 to Lawrence D'Oliveiro on Thu Jan 25 01:24:49 2024
    On 2024-01-25, Lawrence D'Oliveiro <ldo@nz.invalid> wrote:
    Even if both of them were making heavy use of COBOL, what was formerly two separate COBOL installations is now just one COBOL installation.

    So whichever way you look at it, COBOL usage is inevitably shrinking.

    Only if the two merged COBOLS aren't larger than the original two
    combined.

    --
    TXR Programming Language: http://nongnu.org/txr
    Cygnal: Cygwin Native Application Library: http://kylheku.com/cygnal
    Mastodon: @Kazinator@mstdn.ca

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Scott Lurndal@21:1/5 to Lawrence D'Oliveiro on Thu Jan 25 01:37:12 2024
    Lawrence D'Oliveiro <ldo@nz.invalid> writes:
    On Wed, 24 Jan 2024 22:13:06 GMT, Scott Lurndal wrote:

    01 STAR-TABLE.
    05 ROW OCCURS 42 TIMES.
    10 KOLUMN PIC X OCCURS 42 TIMES.
    ...
    01 MINI-TABLE.
    05 MROW OCCURS 14 TIMES.
    10 MCOL PIC X OCCURS 14 TIMES.

    *Sigh* Imagine a language without named constants.

    I'm not sure of your point - you left out:

    01 COMMANDS-X.
    05 COMMAND PIC X(3).
    88 NAVIGATE VALUE "NAV".
    88 PHASERS VALUE "PHA".
    88 TORPEDO VALUE "TOR".
    88 SHIELDS VALUE "DEF".
    88 DOCK VALUE "DOC".
    88 LIB-COM VALUE "COM".
    88 NAV-C VALUE "NAV".
    88 PHA-C VALUE "PHA".
    88 TOR-C VALUE "TOR".
    88 DEF-C VALUE "DEF".
    88 DOC-C VALUE "DOC".
    88 COM-C VALUE "COM".

    If those aren't named constants, what do you call them?


    DISPLAY " ".
    DISPLAY " *STAR TREK* ".
    DISPLAY " ".
    DISPLAY "CONGRATULATIONS - YOU HAVE JUST BEEN APPOINTED ".
    DISPLAY "CAPTAIN OF THE U.S.S. ENTERPRISE. ".
    DISPLAY " ".
    DISPLAY "PLEASE ENTER YOUR NAME, CAPTAIN ".
    ACCEPT NAME-X.

    And with crummy string handling and I/O.

    Ah, I detect sarcasm.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Dan Cross@21:1/5 to Scott Lurndal on Thu Jan 25 02:20:56 2024
    In article <cXisN.134975$taff.87042@fx41.iad>,
    Scott Lurndal <slp53@pacbell.net> wrote:
    Lawrence D'Oliveiro <ldo@nz.invalid> writes:
    On Wed, 24 Jan 2024 22:13:06 GMT, Scott Lurndal wrote:

    01 STAR-TABLE.
    05 ROW OCCURS 42 TIMES.
    10 KOLUMN PIC X OCCURS 42 TIMES.
    ...
    01 MINI-TABLE.
    05 MROW OCCURS 14 TIMES.
    10 MCOL PIC X OCCURS 14 TIMES.

    *Sigh* Imagine a language without named constants.

    I'm not sure of your point - you left out:

    01 COMMANDS-X.
    05 COMMAND PIC X(3).
    88 NAVIGATE VALUE "NAV".
    88 PHASERS VALUE "PHA".
    88 TORPEDO VALUE "TOR".
    88 SHIELDS VALUE "DEF".
    88 DOCK VALUE "DOC".
    88 LIB-COM VALUE "COM".
    88 NAV-C VALUE "NAV".
    88 PHA-C VALUE "PHA".
    88 TOR-C VALUE "TOR".
    88 DEF-C VALUE "DEF".
    88 DOC-C VALUE "DOC".
    88 COM-C VALUE "COM".

    If those aren't named constants, what do you call them?


    DISPLAY " ".
    DISPLAY " *STAR TREK* ".
    DISPLAY " ".
    DISPLAY "CONGRATULATIONS - YOU HAVE JUST BEEN APPOINTED ".
    DISPLAY "CAPTAIN OF THE U.S.S. ENTERPRISE. ".
    DISPLAY " ".
    DISPLAY "PLEASE ENTER YOUR NAME, CAPTAIN ".
    ACCEPT NAME-X.

    And with crummy string handling and I/O.

    Ah, I detect sarcasm.

    I think you detect crankery. Please don't feed the troll.

    - Dan C.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Lawrence D'Oliveiro@21:1/5 to Scott Lurndal on Thu Jan 25 02:49:24 2024
    On Thu, 25 Jan 2024 01:37:12 GMT, Scott Lurndal wrote:

    Lawrence D'Oliveiro <ldo@nz.invalid> writes:

    On Wed, 24 Jan 2024 22:13:06 GMT, Scott Lurndal wrote:

    01 STAR-TABLE.
    05 ROW OCCURS 42 TIMES.
    10 KOLUMN PIC X OCCURS 42 TIMES.
    ...
    01 MINI-TABLE.
    05 MROW OCCURS 14 TIMES.
    10 MCOL PIC X OCCURS 14 TIMES.

    *Sigh* Imagine a language without named constants.

    I'm not sure of your point - you left out:

    01 COMMANDS-X.
    05 COMMAND PIC X(3).
    88 NAVIGATE VALUE "NAV".
    88 PHASERS VALUE "PHA".
    88 TORPEDO VALUE "TOR".
    88 SHIELDS VALUE "DEF".
    88 DOCK VALUE "DOC".
    88 LIB-COM VALUE "COM".
    88 NAV-C VALUE "NAV".
    88 PHA-C VALUE "PHA".
    88 TOR-C VALUE "TOR".
    88 DEF-C VALUE "DEF".
    88 DOC-C VALUE "DOC".
    88 COM-C VALUE "COM".

    If those aren't named constants, what do you call them?

    Sure, they look like named constants or enums. But they can’t truly be
    used in place of constants, can they?

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From bart@21:1/5 to Dan Cross on Thu Jan 25 11:58:47 2024
    On 25/01/2024 02:20, Dan Cross wrote:
    In article <cXisN.134975$taff.87042@fx41.iad>,
    Scott Lurndal <slp53@pacbell.net> wrote:

    DISPLAY "CAPTAIN OF THE U.S.S. ENTERPRISE. ".
    DISPLAY " ".
    DISPLAY "PLEASE ENTER YOUR NAME, CAPTAIN ".
    ACCEPT NAME-X.

    And with crummy string handling and I/O.

    Ah, I detect sarcasm.

    I think you detect crankery. Please don't feed the troll.

    Yeah. Posting big chunks of random COBOL code that isn't relevant to
    anything is of course perfectly fine.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)