COBOL

El Vikipedio, la libera enciklopedio
Jump to navigation Jump to search

COBOL estas programlingvo de tria generacio kreita en 1959. Ĝia nomo estas akronimo (COmmon Business Oriented Language), kiu montras ĝian unuan celon: komuna lingvo pro programi administrajn programarojn.

La standardo COBOL 2003 estas objektema kaj havas aliajn trajtojn de moderna programado.

Ekzemploj[redakti | redakti fonton]

Ekzemplo 1: malmodernstila COBOL

 000010 IDENTIFICATION DIVISION.
 000020 PROGRAM-ID.   SALUTONMONDO.
 000030 DATE-WRITTEN. 10/08/04 00:04.
 000040 AUTHOR.       NEKONATO.
 000050
 000100 ENVIRONMENT DIVISION.
 000200 CONFIGURATION SECTION.
 000210 SOURCE-COMPUTER. MAINFRAME.
 000220 OBJECT-COMPUTER. MAINFRAME.
 000230
 000300 DATA DIVISION.
 000310 WORKING-STORAGE SECTION.
 000320 01  TEKST PIC X(12)
 000330    VALUE "SALUTON, MONDO".
 000410
 000500 PROCEDURE DIVISION.
 000600 MAIN-LOGIC SECTION.
 000700 MAIN-LOGIC-BEGIN.
 000710     DISPLAY TEKST.
 000600 MAIN-LOGIC-END.    
 000700     STOP RUN.

Ekzemplo 2: modernstila COBOL.

        IDENTIFICATION DIVISION.
        PROGRAM-ID. Saluton-Mondo.
        DATE-WRITTEN. 15-07-2008.
        AUTHOR. Nekonato.
       *
        PROCEDURE DIVISION.
            display "Saluton, Mondo!"
            stop run
            .

Eksteraj ligiloj[redakti | redakti fonton]