Aller au contenu
ArKaNN

COBOL

Messages recommandés

Oula ! Le COBOL ...

 

C'est grave docteur ?

 

Bon, pour la date de création je ne sais pas mais je sais que la norme de ce langage la plus ancienne que je connais date de 1977 (COBOL 77).

 

Utilisation principale : gestion (la seule d'ailleurs). Masques de saisie, gestion de fichiers de données, etc ...

 

Au passage c'est un langage tres verbeux assez proche de l'anglais dans la syntaxe.

 

Bon, ca fait 6 ans que j'ai pas touché au COBOL (vachement heureux d'ailleurs !) alors mes souvenir sont assez effacés.

 

Automne

Partager ce message


Lien à poster
Partager sur d’autres sites

Oui, oui, ça va... je sais, j'ai "COBOL" dans mon CV, amis j'en ai fait un semestre en école d'ingé, et trois mois sur un contrat...

 

Pour info, le COBOL est apparu en 1957 (merci le DoD !) et la première norme COBOL ANSI date de 1974, remplacé par le standard ISO/ANSI COBOL 85, et les drafts COBOL 97 sont orientées-objets (ca fait peur !!)

 

automne :

1977 ? Tu confondrais pas avec l'ADA ??

par contre, je confirme, le COBOL est confiné au monde de l'informatique de gestion...

 

Les commandes sont pas très nombreuses, les sources sont pas très compliqués à lire (mais à comprendre, des fois, y'a des algos qui ont du mal à passer, surtout si les programmeurs ont abusé du PERFORM), mais la programmation est compliquée par la rigueur des déclarations de variables à fournir.

Partager ce message


Lien à poster
Partager sur d’autres sites

Exemple de code :

 

Working-Storage Section.

01  Input-Date.

   05  MM-IN          Pic 9(02).

   05  DD-IN          Pic 9(02).

   05  Y4-IN          Pic 9(04).

 

01  WS-Current-Date.

   05  Y4-CD          Pic 9(04).

   05  MM-CD          Pic 9(02).

   05  DD-CD          Pic 9(02).

 

01  Temp-Integer-fields.

   05  INT-Inp-DATE   Pic 9(10).

   05  INT-Cur-DATE   Pic 9(10).

 

01  Reformatted-Input-Date.

   05  Y4-IN          Pic 9(04).

   05  MM-IN          Pic 9(02).

   05  DD-IN          Pic 9(02).

 

01  Num-Input-Date redefines Reformatted-Input-Date

                      Pic 9(08).

 

Procedure Division.

 

* Do in initialization code

 

   Move Function Current-Date (1:8) to WS-Current-Date

   Compute INT-Cur-date = Function Integer-of-Date

     (Function NumVal(WS‑Current‑Date))

   End-Compute

 ***

 

* Do in each validation loop

* Some programmers HATE "MOVE CORR" -

* but this is a reasonable place to use it - IMHO

 

   Move Corr Input-Date to Reformatted-Input-Date

   Compute INT-Inp-date = Function Integer-of-Date (Num-Input-Date)

   End-Compute

   If Int-Inp-Date > Int-Cur-Date

       Display "Whatever happens when Input date is bigger than today"

   Else

       If (Int-Inp-Date + 60) >= Int-Cur-Date

           Display "Whatever happens when input date is OK"

       Else

           Display "Whatever happens when input date is too old"

       End-IF

   End-IF

 

NB : c'est de la programmation "comme sur grand système"" c'est à dire "comme avec des cartes perforées".

Je m'explique :

- chaque ligne de code ne doit pas dépasser 72 caractères (et pas 80 !)

- les 5 premières colonnes sont réservées aux directives du compilateur

- il ne peut y avoir qu'une instruction par ligne

- etc.

Partager ce message


Lien à poster
Partager sur d’autres sites

Merci pour les infos.

Et est ce qu'il est encore utilisé de nos jours ?

Je voudrais savoir s'il est encore possible de pratiquer de très vieux languages genre BCPL , B ... ?

Partager ce message


Lien à poster
Partager sur d’autres sites

Oups oui, mal réveillé, c'etait bien 74 ...

 

Pour la lourdeur du COBOL, je crois que le programme minimum en COBOL doit faire dans les 50 lignes. Vous savez le bon vieux "Hello world !!".

 

Sinon c'est toujours utilisé vu la taille de l'existant. Ca doit meme etre le langage ou l'existant est le plus gros sur la planete (bon faut dire qu'avec son coté verbeux, ca aide ...). Dans les grosses boites, y compris banques et assurances, tu as encore des programmes qui datent d'une bonne 20ene d'années qui tournent encore en masse.

 

Automne

Partager ce message


Lien à poster
Partager sur d’autres sites

C'est encore TRES TRES utilisé pour les simples et bonnes raisons que :

- les machines sur lesquelles ça tourne ont un taux de disponibilité de 99,99999% (les fameux neuf "9")

- les machines sur lesquelles ca tourne ont été achetées au prix fort donc il faut les rentabiliser

- les applis COBOL ont environ vingt ans de bons et loyaux services, et il est plus facile de maintenir un existant de 20 ans que de le ré-écrire

Partager ce message


Lien à poster
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant

×