Kirjoittaja: Antti Laaksonen (23.12.2009)
Cobol on 1950-luvun lopussa alkunsa saanut ohjelmointikieli, jota on käytetty paljon taloudellis-hallinnollisten sovellusten ohjelmointiin. Nykyään Cobol on harvoin uusien projektien toteutusväline, mutta käytössä on edelleen laajoja vanhoja järjestelmiä, joita täytyy ylläpitää.
Vuosien saatossa Cobolista on tehty lukuisia hieman erilaisia toteutuksia, joiden piirteitä tämän esittelyn ohjelmat seuraavat.
Seuraava ohjelma tulostaa rivin tekstiä:
IDENTIFICATION DIVISION.
PROGRAM-ID. JOULU.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
DISPLAY "Hauskaa joulua!".
STOP RUN.Ohjelma jakaantuu neljään osioon, joista osio data sisältää mm. muuttujien määrittelyt ja osio procedure sisältää ohjelman varsinaisen koodin.
Seuraava ohjelma luettelee Fibonaccin luvut, jotka ovat alle 100:
IDENTIFICATION DIVISION.
PROGRAM-ID. FIBOLISTA.
ENVIRONMENT DIVISION.
DATA DIVISION.
77 A PIC 999.
77 B PIC 999.
77 C PIC 999.
PROCEDURE DIVISION.
MOVE 0 TO A.
MOVE 1 TO B.
PERFORM UNTIL A >= 100.
DISPLAY A.
MOVE A TO C.
ADD B TO C.
MOVE B TO A.
MOVE C TO B.
END-PERFORM.
STOP RUN.Dataosiossa merkintä 77 tarkoittaa muuttujan määrittelyä ja 999 sen suurinta arvoa. Komento MOVE on sijoituskäsky, komento ADD suorittaa yhteenlaskun ja rakenne PERFORM vastaa silmukkaa.
Cobol-ohjelma on parhaimmillaan lähellä tavallista englanninkielistä tekstiä, jolloin koodia voi ymmärtää ohjelmointia osaamatonkin.
Seuraava ohjelma kysyy tuotteen hinnan ja määrän ja laskee kokonaishinnan:
IDENTIFICATION DIVISION.
PROGRAM-ID. CASHIER.
ENVIRONMENT DIVISION.
DATA DIVISION.
77 PRICE PIC 999.
77 AMOUNT PIC 999.
77 TOTAL PIC 999.
PROCEDURE DIVISION.
DISPLAY "Enter price:".
ACCEPT PRICE.
DISPLAY "Enter amount:".
ACCEPT AMOUNT.
MULTIPLY PRICE BY AMOUNT GIVING TOTAL.
DISPLAY "Total price:".
DISPLAY TOTAL.
STOP RUN.Cobol on ohjelmointikielten historian parjatuimpia kieliä. Edsger W. Dijkstran kommentti vuodelta 1975 on kuuluisa:
"Cobolin käyttö aiheuttaa aivovaurion, joten sen opettamista tulisi pitää rikoksena."