« COBOL/Structure du programme » : différence entre les versions

Contenu supprimé Contenu ajouté
m suite
m suite
Ligne 37 :
* Les paragraphes
 
# '''IDENTIFICATION DIVISION'''
 
Elle permet d'identifier le programme.
Dans l'exemple ci-dessous les <font color="blue">commentaires sont en bleu</font>, et les <font color="red">mots réservés en rouge</font>.
Ligne 74 ⟶ 75 :
</code>
 
# '''ENVIRONMENT DIVISION'''
 
Elle décrit l'environnement logique sur lequel va travailler le programme : sur quel type de machine, de fichier(s), etc.
 
On y trouve les deux sections suivantesuivantes :
* CONFIGURATION SECTION.
* INPUT-OUTPUT SECTION.
 
## '''CONFIGURATION SECTION'''
 
voici quelques exemples de paramétrage. En générale, vous devrez utiliser les normes du site.
Voici quelques exemples de paramétrage.
DECIMAL-POINT IS COMMA : Permet d'indiquer que l'on utilise la virgule au lieu du point décimal lors des éditions.
voici quelques exemples de paramétrage. En générale, vous devrez utiliser les normes du site.
CURRENCY SIGN IS "F" : Permet d'indiquer au programme que le $ par défaut sera remplacé par le "F" lors des éditions
 
DECIMAL-POINT IS COMMA :
 
DECIMAL-POINT IS COMMA : Permet d'indiquer que l'on utilise la virgule au lieu du point décimal lors des éditions.
 
CURRENCY SIGN IS "F" :
 
CURRENCY SIGN IS "F" :- Permet d'indiquer au programme que lel'unité monétaire, $ par défaut, sera remplacéremplacée par le "F" lors des éditions
lors des éditions.
La valeur du caractère euros est X'9F'
 
 
## '''INPUT-OUTPUT SECTION'''
 
L'INPUT-OUTPUT SECTION précise, dans le paragraphe FILE-CONTROL, la description logique des fichiers utilisés dans le programme.
 
Ligne 97 ⟶ 110 :
<font color="blue">*----------------------- </font>
<font color="red">CONFIGURATION SECTION.</font>
<font color="red"> DECIMAL-POINT IS COMMA. </font>
<font color="red"> CURRENCY SIGN IS</font> X'9F'. </font>
<font color="red">SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
Ligne 103 ⟶ 118 :
* FICHIER ===> C R E X E C (FICHIER COMPTE RENDU) *
*===============================================================* </font>
<font color="red">SELECT</font> CREXEC <font color="red">ASSIGN TO</font> CREXECPHY_CREXEC
<font color="red">FILE STATUS IS</font> WW-STATUSSTATUS1.
<font color="blue">*===============================================================*
* FICHIER ===> F $ $ $ $ $ $ (FICHIER F$$$$$$ ............) *
*===============================================================* </font>
<font color="red">SELECT</font> F$$$$$$FICHIER1 <font color="red">ASSIGN TO</font> F$$$$$$PHY_FICHIER1
<font color="red">FILE STATUS ORGANIZATION IS</font> WW-STATUS.<font color="green"><type organisation></font>
<font color="red">ACCESS MODE IS</font> <font color="green"><type d'accès></font>
<font color="green"><type de clé></font><font color="red">KEY IS</font> <font color="green"><nom de la clé></font>
<font color="red">FILE STATUS IS</font> WW-STATUS2.
</code>
 
Dans l'exmple ci-dessus, nous definition l'euro comme monnaie et la virgule comme séparateur d'affichage des décimales.
 
Deux fichiers seront utilisés dans le programme.
 
Le fichier logique CREXEC est rattaché à un fichier physique PHY_CREXEC.
Celui-ci sera nommé dans le JCL.
 
Le deuxième fichier logique est FICHIER1.
 
En COBOL, il est possible de traiter plusieurs types de fichier.
C'est ce qui est précisé dans le paragraphe FILE-CONTROL. Les différents types de fichier seront développés dans un prochain chapitre.
 
 
 
[[Catégorie:COBOL]]