Re: COBOL and tricks

From	Charles Richmond <codescott@aquaporin4.com>
Newsgroups	alt.folklore.computers, comp.os.linux.misc
Subject	Re: COBOL and tricks
Date	2022-10-29 04:19 -0500
Organization	A noiseless patient Spider
Message-ID	<tjir6d$3dsi2$1@dont-email.me> (permalink)
References	(8 earlier) <slrntdp29d.2mlb.trepidation@vps.jonz.net> <20220724211332.db65ec16fab49db469cd53a9@127.0.0.1> <Y7OdnT6V5ZGqYkD_nZ2dnUU7-KWdnZ2d@giganews.com> <nexDK.530895$zgr9.157846@fx13.iad> <2005974342.680475137.998087.peter_flass-yahoo.com@news.eternal-september.org>

Cross-posted to 2 groups.

Show all headers | View raw

On 7/25/2022 3:56 PM, Peter Flass wrote:
> Scott Lurndal <scott@slp53.sl.home> wrote:
>> drb@ihatespam.msu.edu (Dennis Boone) writes:
>>>> SET 0800-INTADJ = IFILE-ACCTBAL * MIR
>>>
>>> More like
>>>
>>> MULTIPLY IFILE-ACCTBAL BY MIR GIVING 0800-INTADJ.
>>>
>>> or
>>>
>>> COMPUTE 0800-INTADJ = IFILE-ACCTBAL * MIR.
>>>
>>> De
>>
>> Or,
>>
>>         1150-CK-TIME.
>>             IF KLINGONS > 0
>>                 ACCEPT WS-TIME FROM TIME
>>                 MOVE WS-MIN OF WS-TIME TO DS-MIN
>>                 PERFORM 1145-CK-FLAG THRU 1145-EXIT
>>                 MOVE WS-SEC OF WS-TIME TO DS-SEC
>>                 MOVE DS-TABLE TO S-DATE
>>             ELSE
>>                 GO TO 1150-EXIT.
>>             COMPUTE T-STORE = DS-DATE - S-DATE.
>>             IF T-STORE < 90 AND NOT KLINGONS-ATTACKING
>>                 MOVE 14 TO MAX-NO
>>                 COMPUTE W = ((HQ2 - 1) * 14)
>>                 COMPUTE Z = ((HQ1 - 1) * 14)
>>                 INSPECT MASTER-TBL REPLACING ALL "K" BY " "
>>                 MOVE 0 TO RX
>>                 PERFORM 1170-MOVE-ON-HQ THRU 1170-EXIT
>>                     VARYING KCTR FROM 1 BY 1 UNTIL KCTR > KLINGONS
>>                 MOVE 1 TO ATTACK-FLAG
>>                 PERFORM 5900-TRANS THRU 5900-EXIT
>>                 IF (Q1 NOT = HQ1 OR Q2 NOT = HQ2)
>>                     DISPLAY "WARNING - STAR DATE: " S-DATE
>>                     DISPLAY "SCIENCE OFFICER SPOCK ADVISES"
>>                     DISPLAY "YOU NAVIGATE TO QUADRANT " HQ1 "," HQ2
>>                     DISPLAY "TO DEFEND STAR FLEET HEADQUARTERS".
>>             IF NOT TOO-LATE
>>                 MOVE DS-DATE TO WS-DATE.
>>             IF S-DATE > WS-DATE AND Q1 = HQ1 AND Q2 = HQ2 AND NOT TOO-LAT
>>        -    E
>>                 MOVE 1 TO TOO-LATE-FLAG
>>                 ADD 230 TO WS-DATE
>>             ELSE
>>                 IF S-DATE > WS-DATE
>>                     MOVE 1 TO INDICATE-X
>>                     PERFORM 8200-CK-DONE THRU 8200-EXIT.
>>         1150-EXIT.  EXIT.
>>
>>   :-)
>>
> 
> If I had a programmer working for me who coded like that,be having a talk.
> I HAVE seen code like that, usually written by someone who thought
> programming was beneath him and was bored. Such people were usually
> promoted to management, where they fit right in.
> 

COBOL is *great* for a programmer that gets paid "by the lines of code". 
  There are so *many* ways to very easily pad things out using COBOL... 
a programmer will *not* tax their imagination!!!   ;-)


-- 

Charles Richmond


-- 
This email has been checked for viruses by Avast antivirus software.
www.avast.com

Back to comp.os.linux.misc | Previous | Next — Next in thread | Find similar

Thread

Re: COBOL and tricks Charles Richmond <codescott@aquaporin4.com> - 2022-10-29 04:19 -0500
  Re: COBOL and tricks Ahem A Rivet's Shot <steveo@eircom.net> - 2022-10-29 12:17 +0100
    Re: COBOL and tricks Charlie Gibbs <cgibbs@kltpzyxm.invalid> - 2022-10-29 22:44 +0000

csiph-web