🔤 Utilisation de la clause PICTURE X

La clause PIC X permet de stocker un caractère alphanumérique, c’est-à-dire une lettre, un chiffre ou un symbole. Elle est utile pour manipuler du texte ou des identifiants mixtes.

Voir cette animation

01 SYMBOLE PIC X VALUE "A". Cette ligne définit une variable appelée SYMBOLE dans la section de travail du programme COBOL. Le chiffre 01 indique qu’il s’agit d’un niveau principal, ce qui signifie que la variable n’est pas imbriquée dans une structure. Le mot SYMBOLE est le nom de la variable, que l’on pourra utiliser dans les instructions du programme. La clause PIC X précise que la variable peut contenir un caractère alphanumérique, c’est-à-dire une lettre, un chiffre ou un symbole. Contrairement à PIC A qui n’accepte que des lettres, PIC X accepte n’importe quel caractère imprimable. Enfin, la clause VALUE "A" permet d’initialiser cette variable avec la lettre A dès le début de l’exécution. C’est une manière simple de réserver un espace mémoire capable de stocker un caractère générique prêt à être utilisé.

Voici un exemple simple de programme COBOL qui affiche un caractère stocké dans une variable définie avec PIC X :