Plutôt que de faire :
INITIALIZE : remise à zéro contrôlée des données
L'instruction INITIALIZE est utilisée pour réinitialiser une ou plusieurs variables en COBOL . Elle permet de remettre une zone de mémoire à son état initial sans devoir écrire plusieurs instructions MOVE manuelles.
Plutôt que de faire :
MOVE SPACES TO NOM.
MOVE ZERO TO TOTAL.
MOVE SPACES TO ADRESSE.
On peut simplement écrire :
INITIALIZE NOM TOTAL ADRESSE.
PIC X(n) → initialisé à SPACES PIC 9(n) → initialisé à ZEROS FILLER → ignoré (non modifié) REDEFINES → seul l’original est affecté, pas les redéfinitions
01 FICHE-CLIENT.
05 NOM PIC X(30).
05 ADRESSE PIC X(40).
05 TOTAL-ACHATS PIC 9(5)V99.
INITIALIZE FICHE-CLIENT.
Toutes les sous-variables de FICHE-CLIENT seront remises à blanc ou à zéro selon leur type.
INITIALIZE ... REPLACING NUMERIC BY VALUE 99999 → initialise tous les numériques à 99999 INITIALIZE ... REPLACING ALPHANUMERIC BY "VIDE" → remplace les chaînes par "VIDE"
INITIALIZE FICHE-CLIENT
REPLACING NUMERIC BY 99999
ALPHANUMERIC BY "VIDE".
INITIALIZE pour simplifier la remise à zéro avant une boucle ou un nouveau traitement 01 FICHE ) pour tout initialiser en un seul mot INITIALIZE pour effacer des données sensibles (préférez un MOVE explicite)
L'instruction INITIALIZE est :
Elle s’intègre parfaitement dans une logique structurée, notamment en début de paragraphe, avant de charger ou manipuler des données.