COBOL

El Vikipedio, la libera enciklopedio
Saltu al: navigado, serĉo

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]