Explication du remplissage dans un programme COBOL

Dans le langage de programmation COBOL, vous définissez toutes les variables et tous les champs de données dans une section de votre programme appelée Data Division. Ici, vous configurez des enregistrements pour les fichiers sur disque, les mises en page d'impression, les compteurs et le stockage de travail pour les calculs. Vous définissez la plupart des champs de données en leur donnant des noms uniques, mais le mot-clé FILLER vous permet de réserver de l'espace mémoire sans avoir besoin d'un nom.

REMPLISSAGE

FILLER est un mot réservé, ce qui signifie que vous ne pouvez pas utiliser le mot pour nommer des champs ou des enregistrements autrement que pour définir des éléments de mémoire individuels. Vous utilisez FILLER immédiatement après un numéro de niveau et avant une clause PICTURE qui définit la taille et le type de données d'un champ. COBOL limite l'utilisation de FILLER à la Data Division; elle ne s'applique pas aux divisions Identification, Environnement ou Procédure.

Dispositions d'enregistrement

L'une des utilisations les plus courantes de FILLER concerne les définitions d'enregistrements de données. Si vous utilisez un fichier de données avec une longueur d'enregistrement de 150 caractères et que vous n'avez pas besoin d'étiqueter chaque champ qu'il contient, vous pouvez définir les caractères inutiles comme FILLER, comme dans le code suivant :

01 fiche client. 05 FILLER PIC X(10). 05 nom-client PIC X(30). 05 adresse client PIC X(30). 05 client-ville PIC X(30). 05 FILLER PIC X(50).

Cela vous permet de lire un enregistrement de 150 caractères et d'identifier les champs souhaités (le nom, l'adresse et la ville du client) tout en ignorant le reste de l'enregistrement.

Extraction de sous-chaînes

Vous pouvez utiliser le mot-clé FILLER pour faciliter l'extraction des sous-chaînes d'une chaîne plus grande. Par exemple, pour extraire les cinq premiers chiffres d'un code postal, vous pouvez configurer les instructions suivantes dans la section Working-Storage :

01 code postal entier. 05 PIC primaire-zip X(5). 05 FILLER PIC X(5).

Dans la Procedure Division, vous déplacez un code ZIP-plus-4 vers le code postal entier, puis déplacez le code postal principal vers un champ de destination. Ce faisant, vous supprimez tout après les cinq premiers chiffres.

REMPLISSAGE et VALEUR

Dans un enregistrement, un champ FILLER réserve de l'espace mémoire et accepte tout type de données que vous y déplacez. Vous pouvez également définir un champ FILLER pour qu'il ait une valeur. Les programmeurs utilisent fréquemment cette technique pour configurer les en-têtes de rapport, comme dans l'exemple suivant :

01 ligne d'impression. 05 FILLER PIC X(10) ESPACES DE VALEUR. 05 FILLER PIC X(15) VALEUR "Rapport de fin d'année". 05 FILLER PIC X(20) ESPACES DE VALEUR. 05 FILLER PIC X(5) VALEUR "PAGE". 05 numéro de page PIC ZZZ9.

Notez que les titres et l'espacement des en-têtes de page de rapport sont tous effectués avec FILLER, à l'exception d'un champ nommé qui affiche un numéro de page.