« Cobol ANS 74 » : différence entre les versions

2 287 octets supprimés ,  il y a 13 ans
(→‎Bases du COBOL : fractionnement)
{{à fractionner}}
{{Cobol ANS 74}}
= Divisions, sections, paragraphes =
 
== IDENTIFICATION DIVISION ==
Identification du programme, n'est formé que de paragraphes.
 
78 |
IDENTIFICATION DIVISION
*-----------------------
PROGRAM-ID. EXEMPLE.
AUTHOR. NOM.
 
== ENVIRONMENT DIVISION ==
CONFIGURATION SECTION. (obligatoire)
[INPUT-OUTPUT SECTION] (facultatif)
 
78 |
ENVIRONMENT DIVISION
*--------------------
CONFIGURATION SECTION.
OBJECT-COMPUTER. MINTA.
SOURCE-COMPUTER. MINTA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT (F1) ASSIGN TO DISK;
FILE STATUS IS FS.
SELECT (F2) ASSIGN TO PRINTER.
 
== DATA DIVISION ==
=== WORKING STORAGE SECTION. ===
 
78 |
DATA DIVISION
*-------------
WORKING STORAGE SECTION.
 
 
 
==== Les champs ====
Reçoit les vars
 
nombre_niveau {nom } [clause] ...
{FILLER}
 
*nombre_niveau : niveau en pallier hiérarchique. En cobol tout est organisé en Enreg dont l'info principale est de niveau 1.
*FILLER : ligne DUMMY
*clause : taille/type/val. initiale
 
<b>? Soit le champ article divisé en description et code article qui est divisé en code magasin et numéro couleur.</b>
 
{| border="1" align="center"
|- align=left
| ARTICLE ||
|- align=left
| DESCRIPTION ||
{| border="1" align="center"
|- align=left
| CODE ARTICLE ||
|- align=left
| CODE MAGASIN || NUMERO COULEUR
|}
|}
 
*ici 3 Niveaux
*Champs de groupes avec (.) contient :
*des champs élémentaires.
 
78 |
DATA DIVISION
*-------------------------
WORKING STORAGE SECTION.
01 ARTICLE.
02 DESCRIPTION PIC X(10).
02 CODE-ARTICLE.
03 CODE-MAGASIN PIC XXX.
03 NUMERO-COULEUR PIC 99.
77 CPT PIC 99.
 
*CARACTERES PICTURES (type de contenu de variable)
Les champs élémentaires recoivent PIC :
:*9 [0-9] ,v (donne position de virgule)
:ex: PIC 99v999 (trois chiffres après la virgule)
:*X alphanumerique
:ex: PIC X(6) = PIC XXXXXX (6 alphanumeriques)
 
== PROCEDURE DIVISION ==
*Reçoit les instructions de PROG.
*Reçoit toujours un paragraphe avant la premiére instruction.
*Toutes les instructions vont en marge B.
 
78 |
PROCEDURE DIVISION
*------------------
PROG.
ADD...
MOVE...
 
= fichiers =