Dans le langage de programmation COBOL, vous définissez toutes les variables et les champs de données dans une section de votre programme appelée Data Division. Ici, vous configurez des enregistrements pour les fichiers de 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 Division des données; elle ne s'applique pas aux divisions Identification, Environnement ou Procédure.
Vidéo du jour
Dispositions d'enregistrement
L'une des utilisations les plus courantes de FILLER est la définition 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 REMPLISSAGE PIC X(10). 05 nom de client PIC X(30). 05 adresse client PIC X(30). 05 client-ville PIC X(30). 05 REMPLISSAGE PIC X (50).
Cela vous permet de lire un enregistrement de 150 caractères et d'identifier les champs que vous voulez -- le nom du client, l'adresse et la ville -- tout en ignorant le reste de l'enregistrement.
Extraction de sous-chaîne
Vous pouvez utiliser le mot-clé FILLER pour faciliter l'extraction de sous-chaînes à partir 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 primaire-zip PIC X (5). 05 REMPLISSAGE PIC X(5).
Dans la Procedure Division, vous déplacez un code postal-plus-4 vers entier-zip-code, puis déplacez primaire-zip 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 avoir une valeur. Les programmeurs utilisent fréquemment cette technique pour configurer des en-têtes de rapport, comme dans l'exemple suivant :
01 ligne d'impression. 05 FILLER PIC X(10) ESPACES DE VALEUR. 05 VALEUR PIC DE REMPLISSAGE X(15) "RAPPORT DE FIN D'ANNÉE". 05 FILLER PIC X(20) ESPACES DE VALEUR. 05 REMPLISSAGE 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 du rapport sont tous effectués avec FILLER, à l'exception d'un champ nommé qui affiche un numéro de page.
