Chapitre I: Premiers pas en COBOL

Premier programme très simple

IDENTIFICATION DIVISION.
PROGRAM-ID.EXO1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 Z1 PIC X(10).
77 Z2 PIC X(10).
PROCEDURE DIVISION.
DEBUT.
        DISPLAY "Entrez une valeur pour zone".
        MOVE SPACES TO Z1.
        ACCEPT Z1.
        MOVE Z1 TO Z2.
        DISPLAY Z2.
        STOP RUN.


Ce programme s'appelle EXO1. Son principe est de définir deux variables Z1 et Z2, de saisir une valeur dans Z1 puis de la mettre dans Z2. Pour finir on affiche Z2.

IDENTIFICATION DIVISION

Ce premier paragraphe permet d'identifier le programme pour l'utilisateur en indiquantle nom du programme, le nom de l'auteur, la date de création etc...
Tout cela s'écrit en colonne 8.

Retour au programme.

PROGRAM-ID

Ce terme sert à nommer le programme, il est suivi de son nom.

Retour au programme.

ENVIRONMENT DIVISION

Ce deuxième paragraphe contient une description sommaire de la configuration du calculateur utilisé ainsi que des informations relatives à la gestion des entrées-sorties, aux conditions spéciales de traitement des fichiers.

Retour au programme.

DATA DIVISION

Ce troisième paragraphe est divisé en plusieurs sections. Il permet de définir toutes les données utiles au programme:

• -Fichiers manipulés par le programme
  -Données internes comme les variables, les vecteurs etc...
  

Les trois sections les plus utilisées sont:

• -FILE SECTION
  -WORKING-STORAGE SECTION
  -LINKAGE SECTION
  

Retour au programme.

WORKING-STORAGE SECTION

Cette section permet de déclarer les variables internes au programme.

Retour au programme.

77 Z1 PIC X(10)

• 77 permet de déclarer une variable.
  Z1 correspond à son nom.
  PIC permet de donner son type d'image.
  X représente le type d'image alphanumérique.
  (10) correspond à la taille de la variable.
  

(Cf: Chapitre II "Les différentes déclarations")

Retour au programme.

PROCEDURE DIVISION

Le programmeur y décrit le traitement à effectuer par le calculateur. C'est donc le lieu de la traduction de l'algorithme conçu par le programmeur. Le programme ainsi défini s'écrit en colonne 12.

Retour au programme.

DEBUT

Il s'agit d'une étiquette. On en utilisera de manière à faire des boucles ou pour donner les noms des fonctions et procédures de notre programme.

Retour au programme.

DISPLAY

Commande qui permet d'afficher à l'écran.

Retour au programme.

MOVE

Cette commande permet de faire une affectation.
Exemple:

• MOVE SPACES TO Z1.
  Cela met des espaces dans la variable Z1.
  
  MOVE Z1 TO Z2.
  Cela met le contenu de la variable Z1 dans la variable Z2.

Retour au programme.

ACCEPT

Cette commande permet de saisir queque chose au clavier et de le mettre dans une variable.

Retour au programme.

STOP RUN

Cette commande marque la fin du programme.

Retour au programme.