COBOL

COBOL - COmmon Business Oriented Langage

1957 : Création du premier langage de programmation universel, le FORTRAN (FORmula TRANslator) par John Backus d'IBM

1958 : Suite à une conférence entre Américains et Européens est lancée l'idée d'un langage standard universel : ALGOL 58 (ALGOrithmic Language).

1960 : Publication du cahier des charges du langage de programmation COBOL (COmmon Business Oriented Language). Il devient, après le FORTRAN, le second grand langage de programmation universel, faisant ainsi rapidement disparaître l'ALGOL.

COBOL a été défini par la CODASYL, COnference on DAta SYsystems Languages

Les travaux de la conférence, sous les auspices du Department Of Defense, avec des fabricants, universités et utilisateurs, ont duré de mai 1959 à avril 1960. Grace Murray Hopper, qui avait défini Flow-Matic, un langage compilé dans les années 50, faisait partie du comité. Langage procédural classique destiné à la gestion d’entreprise, dans lequel un programme est composé de 4 divisions: identification, environment, data et procedure qui peuvent comporter des sections. Il est fondé sur les données et défini précisément le matériel et les formats d’entrées et sorties de données. Il introduit la structure de donnée RECORD. Les programmes sont auto documentés par la syntaxe, ce qui ne les rend pas plus légers!

Il existe encore des milliards de lignes de COBOL, 60% des applications business, qui font marcher des millions d’ordinateurs. Pire, l’accroissement prévu des lignes de codes est de 5 millions par an pour les prochaines années..

Programmeuse!

Grace Hopper était une femme remarquable, qui contribua énormément à l'évolution des langages de programmation et à la convivialité des premiers ordinateurs. C'est notamment grâce à elle qu'un ordinateur comprend aujourd'hui l'anglais et que des non-mathématiciens et des entreprises ont commencé à s'adonner également à la programmation et à l'utilisation des ordinateurs. En 1950, Grace Hopper reçoit le titre de « programmeuse senior », une des 10 premières personnes à pouvoir bénéficier de ce titre. Dans une conférence restée célèbre, Grace Hopper prédit que les logiciels finiront par coûter plus cher que le matériel, ce qui, à cette époque, était difficilement imaginable. En 1969, elle fut la première à recevoir le prix du « Informaticien m/f de l'année ». En 1971, une nouvelle récompense annuelle dédiée aux jeunes scientifiques en informatique fut créée à son nom. »

Dernière nouvelle. COBOL sous LINUX

http://www.linux-center.org/fr/development/languages/cobol/

IDENTIFICATION DIVISION.
PROGRAMM-ID.DECOMPTE.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
        SELECT FGRILLE ASSIGN TO WORKSTATION-GDECOMPTE
        ORGANIZATION TRANSACTION
        CONTROL-AREA FTOUCHES.
DATA DIVISION.
FILE SECTION.
FD FGRILLE LABEL RECORD OMITTED.
01 EGRILLE.
        COPY DDS-ALL-FORMATS OF GDECOMPTE.
WORKING STORAGE SECTION.
01 FTOUCHES PIC XX.
88 F3 VALUE "03".
01 BILLETPIECE.
        02 BP OCCURS 9 PIC S9(4).
01 RESULTAT.
        02 RESULT OCCURS 9.
                03 RESUL PIC ZZZ9.
01 MONTANT.
        02 SOMME PIC S9(4).
01 I PIC 99.
PROCEDURE DIVISION.
DEBUT.
        OPEN I-O FGRILLE.
        MOVE 500 TO BP(1).
        MOVE 200 TO BP(2).
        MOVE 100 TO BP(3).
        MOVE 50 TO BP(4).
        MOVE 20 TO BP(5).
        MOVE 10 TO BP(6).
        MOVE 5 TO BP(7).
        MOVE 2 TO BP(8).
        MOVE 1 TO BP(9).
DEB.
        MOVE 1 TO I.
        INITIALIZE DECOM COMPTE.
        WRITE EGRILLE FORMAT "DECOM".
        READ FGRILLE.
        IF F3 GO TO FIN.
        MOVE CORR DECOM TO MONTANT.
TQ.
        IF I <10
                DIVIDE SOMME OF MONTANT BY BP(I) GIVING RESUL(I)
                REMAINDER SOMME OF MONTANT
                ADD 1 TO I
                GO TO TQ
        END-IF.
        MOVE RESULTAT TO BILLET.
        WRITE EGRILLE FORMAT "COMPTE".
        READ FGRILLE.
        IF F3 GO TO FIN.
        GO TO DEB.
FIN.
        CLOSE FGRILLE.
        STOP RUN.

Comments

[Rédigé par: JJH]

60% Vous êtes sûr?

[Rédigé par: Bath]

Sexy la programmeuse