Computer Old Farts Forum
 help / color / mirror / Atom feed
* [COFF] [TUHS] The 2038 bug...
       [not found]       ` <d39f9cb6-eaab-6d50-9b63-a1c4583e9d40@gmail.com>
@ 2021-01-08  1:39         ` grog
  2021-01-17  1:07           ` dave
  0 siblings, 1 reply; 4+ messages in thread
From: grog @ 2021-01-08  1:39 UTC (permalink / raw)


Redirecting to COFF.  COBOL has really nothing to do with Unix.

On Thursday,  7 January 2021 at 20:25:56 -0500, Nemo Nusquam wrote:
> On 01/07/21 17:56, Stuart Remphrey wrote (in part):
>>> Dave, who's kept his COBOL knowledge a secret in every job
>>
>> Indeed! [...]; but especially COBOL: apart from everything else, too
>> much like writing a novel to get anything done.
>
> As long as we are bashing COBOL, I recall that someone -- name forgotten
> -- wrote a parody that contained statements such as "Verily, let the
> noble variable N be assigned the value known as one".

Heh.  In 1973 I was once required to abandon assembler, the language
of Real Programmers, and write a program in COBOL (in fact, a database
front end to COBOL).  I took revenge in the label names.  From
http://www.lemis.com/grog/src/GOPU

     INVOKE SCHEMA KVDMS COPYING COMMON ALL
           RECORD COMMON DELIVERY-AREA IS PUFFER
           OVERLAY PUFFER WITH ALL
           ERROR RECOVERY IS HELL
           ROLLBACK IS IMPOSSIBLE.
     ...
     MAKE-GOPU.  IF ERROR-STATUS IS NOT EQUAL TO '000307', GO TO
           HELL.

Admire that manifest constant.

And yes, this program went into production.

Greg
--
Sent from my desktop computer.
Finger grog at lemis.com for PGP public key.
See complete headers for address and phone numbers.
This message is digitally signed.  If your Microsoft mail program
reports problems, please read http://lemis.com/broken-MUA
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 163 bytes
Desc: not available
URL: <http://minnie.tuhs.org/pipermail/coff/attachments/20210108/496b9006/attachment.sig>


^ permalink raw reply	[flat|nested] 4+ messages in thread

* [COFF] [TUHS] The 2038 bug...
  2021-01-08  1:39         ` [COFF] [TUHS] The 2038 bug grog
@ 2021-01-17  1:07           ` dave
  2021-01-17  1:09             ` lm
  0 siblings, 1 reply; 4+ messages in thread
From: dave @ 2021-01-17  1:07 UTC (permalink / raw)


On Fri, 8 Jan 2021, Greg 'groggy' Lehey wrote:

> Heh.  In 1973 I was once required to abandon assembler, the language of 
> Real Programmers, and write a program in COBOL (in fact, a database 
> front end to COBOL).  I took revenge in the label names.  From 
> http://www.lemis.com/grog/src/GOPU

My favourite COBOL statement is "ADD A TO B GIVING C COMPUTATIONAL ROUNDED".

-- Dave


^ permalink raw reply	[flat|nested] 4+ messages in thread

* [COFF] [TUHS] The 2038 bug...
  2021-01-17  1:07           ` dave
@ 2021-01-17  1:09             ` lm
  2021-01-17  1:11               ` imp
  0 siblings, 1 reply; 4+ messages in thread
From: lm @ 2021-01-17  1:09 UTC (permalink / raw)


On Sun, Jan 17, 2021 at 12:07:14PM +1100, Dave Horsfall wrote:
> On Fri, 8 Jan 2021, Greg 'groggy' Lehey wrote:
> 
> >Heh.  In 1973 I was once required to abandon assembler, the language of
> >Real Programmers, and write a program in COBOL (in fact, a database front
> >end to COBOL).  I took revenge in the label names.  From
> >http://www.lemis.com/grog/src/GOPU
> 
> My favourite COBOL statement is "ADD A TO B GIVING C COMPUTATIONAL ROUNDED".

I am _so_ glad I never had to learn COBOL.  I appreciate terseness, COBOL
is not that.



^ permalink raw reply	[flat|nested] 4+ messages in thread

* [COFF] [TUHS] The 2038 bug...
  2021-01-17  1:09             ` lm
@ 2021-01-17  1:11               ` imp
  0 siblings, 0 replies; 4+ messages in thread
From: imp @ 2021-01-17  1:11 UTC (permalink / raw)


On Sat, Jan 16, 2021, 6:09 PM Larry McVoy <lm at mcvoy.com> wrote:

> On Sun, Jan 17, 2021 at 12:07:14PM +1100, Dave Horsfall wrote:
> > On Fri, 8 Jan 2021, Greg 'groggy' Lehey wrote:
> >
> > >Heh.  In 1973 I was once required to abandon assembler, the language of
> > >Real Programmers, and write a program in COBOL (in fact, a database
> front
> > >end to COBOL).  I took revenge in the label names.  From
> > >http://www.lemis.com/grog/src/GOPU
> >
> > My favourite COBOL statement is "ADD A TO B GIVING C COMPUTATIONAL
> ROUNDED".
>
> I am _so_ glad I never had to learn COBOL.  I appreciate terseness, COBOL
> is not that.
>

Object oriented COBOL never took off because "ADD 1 TO COBOL GIVING COBOL."
didn't roll off the tongue.

Warner

_______________________________________________
> COFF mailing list
> COFF at minnie.tuhs.org
> https://minnie.tuhs.org/cgi-bin/mailman/listinfo/coff
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://minnie.tuhs.org/pipermail/coff/attachments/20210116/26d0bad7/attachment.htm>


^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2021-01-17  1:11 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
     [not found] <alpine.BSF.2.21.9999.2012311806460.82237@aneurin.horsfall.org>
     [not found] ` <X/LQKPMbiMF45KMJ@server.rulingia.com>
     [not found]   ` <alpine.BSF.2.21.9999.2101050822330.26789@aneurin.horsfall.org>
     [not found]     ` <CAD0_1cmaGq6UFuFrufd06pKrcxho7WtbdSb5vahuX8a3Ssxt3w@mail.gmail.com>
     [not found]       ` <d39f9cb6-eaab-6d50-9b63-a1c4583e9d40@gmail.com>
2021-01-08  1:39         ` [COFF] [TUHS] The 2038 bug grog
2021-01-17  1:07           ` dave
2021-01-17  1:09             ` lm
2021-01-17  1:11               ` imp

Computer Old Farts Forum

This inbox may be cloned and mirrored by anyone:

	git clone --mirror https://inbox.vuxu.org/coff

	# If you have public-inbox 1.1+ installed, you may
	# initialize and index your mirror using the following commands:
	public-inbox-init -V1 coff coff/ https://inbox.vuxu.org/coff \
		coff@minnie.tuhs.org
	public-inbox-index coff

Example config snippet for mirrors.
Newsgroup available over NNTP:
	nntp://inbox.vuxu.org/vuxu.archive.coff


AGPL code for this site: git clone https://public-inbox.org/public-inbox.git