Variables constantes
Une variable constante en COBOL est une variable dont la valeur est fixée au début et qui ne varie pas durant l'exécution du programme.
Types de constantes
Constantes numériques : valeurs numériques fixes.
Exemple : 01 WS-TAUX PIC 9(3)V9(2) VALUE 2.75.
Constantes alphanumériques : textes fixes.
Exemple : 01 WS-SIGNE PIC X(03) VALUE "YES".
Constantes figuratives : mots-clés prédéfinis représentant des valeurs standards.
Constantes figuratives en COBOL
| Constante | Signification |
|---|---|
ZERO / ZEROS / ZEROES |
Un ou plusieurs zéros. |
SPACE / SPACES |
Un ou plusieurs espaces. |
HIGH-VALUE / HIGH-VALUES |
Valeur maximale (X'FF'). |
LOW-VALUE / LOW-VALUES |
Valeur minimale (X'00'). |
QUOTE / QUOTES |
Guillemets ou apostrophes. |
ALL |
Répétition d'un caractère ou d'une constante figurative. |
Exemples de code COBOL
01 WS-ZEROES-VAR PIC 9(5) VALUE ZEROES.
DISPLAY "Valeur initiale : " WS-ZEROES-VAR.
01 WS-SPACES-VAR PIC X(10) VALUE SPACES.
DISPLAY "Texte vide : " WS-SPACES-VAR.
01 WS-HIGH-VAR PIC X(05) VALUE HIGH-VALUES.
DISPLAY "Valeur haute : " WS-HIGH-VAR.
01 WS-QUOTE-VAR PIC X(10) VALUE QUOTES.
DISPLAY "Guillemets : " WS-QUOTE-VAR.// Simulation d'un affichage COBOL :
Valeur initiale : 00000
// WS-ZEROES-VAR contient cinq zéros car ZEROES = 00000
Texte vide :
// WS-SPACES-VAR contient dix espaces, donc rien de visible
Valeur haute : ÿÿÿÿÿ
// WS-HIGH-VAR contient cinq caractères 'ÿ' correspondant à X'FF'
Guillemets : \"\"\"\"\"
// WS-QUOTE-VAR contient dix guillemets \"