< Cobol ANS 74
Cobol ANS 74 |
Sommaire |
Liens |
Modifier ce modèle |
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
? Soit le champ article divisé en description et code article qui est divisé en code magasin et numéro couleur.
ARTICLE | |||||
DESCRIPTION |
|
- 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...
Cet article est issu de Wikibooks. Le texte est sous licence Creative Commons - Attribution - Partage dans les Mêmes. Des conditions supplémentaires peuvent s'appliquer aux fichiers multimédias.