hwechtla-tl: Teos: COBOL

Mikä on WikiWiki?
nettipäiväkirja
koko wiki (etsi)
viime muutokset

---

Kehruu-Jennyn ja reikäkorttikoneen yhdistelmä, jonka ympärillä koneoperaattoreita, arkkitehteja ja yksi työmies rakentamassa tukea, jottei kone kaadu.

Miksi?

• COBOL kehitettiin teolliseen maailmaan, ajatuksena että tarvitaan "helposti ymmärrettävä" kieli firmakäyttöön. Tästä syystä kielen haluttiin muistuttavan luonnollista kieltä.
• COBOL on järkyttävän ruma ja epäkäytännöllinen kieli
• vieläkin iso osa esim. keskustietokoneissa toimivista ohjausjärjestelmistä on kirjoitettu COBOLilla
• COBOL on myös ollut naimisissa ensimmäisen "teollisen" softakehitysaallon kanssa, jossa päätettiin ottaa oppia muista insinööritieteistä: ensin suunnitellaan vuosi, sitten mietitään vuosi, miten ohjelma toteutetaan, ja sitten aletaan kirjoittaa
• COBOL-järjestelmät ovat niin tärkeissä tehtävissä, että niitä pidetään yllä, vaikka koneet lahoaisivat alta eikä kukaan enää tuntisi koodia.

Kuvia netistä:

• http://www.old-computers.com/history/images/Timeline_0478_Cobol_2.jpg
• http://rlv.zcache.com/im_a_cobol_programmer_mousepad-p144759718309374702z8xsj_400.jpg
• http://upload.wikimedia.org/wikipedia/commons/2/23/Punch-card-cobol.jpg

      $ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID.  Conditions.
AUTHOR.  Michael Coughlan.
* An example program demonstrating the use of 
* condition names (level 88's).
* The EVALUATE and PERFORM verbs are also used.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  Char               PIC X.
    88 Vowel           VALUE "a", "e", "i", "o", "u".
    88 Consonant       VALUE "b", "c", "d", "f", "g", "h"
                             "j" THRU "n", "p" THRU "t", "v" THRU "z".
    88 Digit           VALUE "0" THRU "9".
    88 ValidCharacter  VALUE "a" THRU "z", "0" THRU "9".

PROCEDURE DIVISION.
Begin.
    DISPLAY "Enter lower case character or digit. No data ends.".
    ACCEPT Char.
    PERFORM UNTIL NOT ValidCharacter
        EVALUATE TRUE
           WHEN Vowel DISPLAY "The letter " Char " is a vowel."
           WHEN Consonant DISPLAY "The letter " Char " is a consonant."
           WHEN Digit DISPLAY Char " is a digit."
           WHEN OTHER DISPLAY "problems found"
        END-EVALUATE
    END-PERFORM
    STOP RUN.

Sade: Katson COBOL-teoksen olevan epäoikeudenmukainen kuvaus ko. kielestä seuraavissa suhteissa:

• Teos ei mainitse, että COBOL on kehitetty mahdollisimman paljon luonnollisen kielen kaltaiseksi, mikä on äärettömän kiehtova piirre ja tarjoaa sekä kielitieteellisesti että tietojenkäsittelyllisesti suuntautuneelle nörtille loputtomasti kiehtovaa tutkittavaa.
• Teos väittää eksplisiittisesti, että COBOL on "järkyttävän ruma" kieli. Kauneus kuitenkin on katsojan silmässä tässäkin asiassa - kielitieteellisesti suuntautuneena ja ehkä vähän pervonakin ihmisenä pidän COBOLia hyvinkin kauniina, vaikka se eittämättä onkin vähän kömpelö.

atehwa: Lisäsin maininnan luonnollisen kielen kaltaisuudesta. Mitä rumuuteen tulee, pyrin tosiaan välittämään "yleisiä vaikutelmia" kielistä silläkin uhalla, että uusinnan tällä vain syvään juurtuneita ennakkoluuloja kielten suhteen. Oma kriteerini kielen kauneudelle on itse asiassa lyhyys; COBOL-ohjelmat ovat huomattavan pitkiä verrattuna vastaaviin ohjelmiin muilla kielillä.

On hyvä huomata, että myös Smalltalk ja Perl ovat jollain tavoin pyrkineet luonnollisen kielen kaltaisuuteen.

näyttely: ohjelmointikielten kuvat