4.6 LES STRUCTURES

Pour les travaux de gestion, il est nécessaire d’attribuer un nom collectif à tout ensemble de données puis des noms collectifs à des sous-ensembles,….
En COBOL nous disposons de 2 sortes d’ensembles de données, les structures et les tables.

Une structure est un système hiérarchique de noms qui renvoie à une zone de mémoire centrale regroupant un ensemble de données.

Au premier niveau 01, se trouve le nom de la structure principale qui désigne l’ensemble des éléments de données mémorisées dans la totalité de la zone attribuée à cette structure. Ce nom ne pourra plus être utilisé pour définir une variable simple ou une autre structure ou un quelconque autre nom dans ce programme.

Au niveau 02, il est attribué de nouveaux noms à certaines portions de la zone. Ce processus se poursuit jusqu’à ce qu’au dernier niveau un seul nom désigne un seul et même élément de données appelé élément simple.

Un élément collectif de structure est appelé un groupe et est toujours de type alphanumérique.

Remarque :

Toute ligne de description d’un niveau se termine par un point, un niveau par ligne.

Le niveau 01 doit être en marge A.

Les niveau suivant de 02 à 49 sont écrits à partir de la marge B, avec indentation.

Les éléments simples sont les seuls à disposer d’une PICTURE, le mode DISPLAY étant l’option par défaut.

Si pour certaines raisons, le programme dispose de zones décrites dans une ou plusieurs structures et qui ne doivent pas être utilisées, nous pouvons utiliser l’option FILLER.

01 MADATE.
   02 ANNEE       PIC 9999.
   02 MOIS        PIC 99.
   02 JOUR        PIC 99.
01 EECOls.
   02 ARTECOls    PIC X(38).
   02 TOTECOls    PIC S9(7)V9(4).
   02 TOTDEPECOls PIC S9(7)V99.
   02 FOURNECOls  PIC X(20).
   02 NOFACECOls  PIC X(20).
   02 IMPRECOls   PIC 9 VALUE 0.
   02 MSECOls     PIC 999v99.