|
La langue orientée métier commun , COBOL, offre une variété de façons d'accéder aux données en mémoire. En COBOL , vous définissez les éléments de données tels que les dossiers , les comptoirs et les variables mathématiques temporaires dans une zone appelée la section de stockage de travail de la Division des données . Une fois défini , vous utilisez les variables simplement en les appelant par leur nom. Si vous avez besoin de référencer un octet à l'intérieur d'une variable , mis en place une variable ultérieure à l'aide de la clause " REDEFINES » de COBOL . Si vous créez la nouvelle variable dans un tableau , vous pouvez référencer un seul octet dans la première variable. Instructions
1 créer une variable de la mémoire dans la mémoire de travail , comme dans l'exemple suivant:
WORKING-STORAGE SECTION.01 DISPLAY- VARIABLES.05 AFFICHAGE DE LA RÉGION DE PIC X (30 ) .
Ceci crée une variable appelée « DISPLAY- région».
2 Définir une nouvelle variable après la première utilisation de la clause REDEFINES . Cette variable est un tableau. Il référence les mêmes données que la première variable utilisant le nouveau nom .
05 DISPLAY-BY TES REDEFINES DISPLAY- AREAOCCURS 30 fois indexés par DISPLAY- INDEXPIC X (1).
Le " indexé par "clause définit une variable d' index. Vous n'avez pas défini ailleurs dans le stockage de travail , car cela va générer une erreur. La taille du champ , affichage en zone d'origine , est le même que l'affichage en OCTETS qui redéfinit. Un champ ayant un octet se produisant 30 fois est la même que celle d'un champ de 30 octets.
3 Mettre en place un champ de stockage de travail d'un octet dans lequel vous souhaitez recevoir les données , comme cet exemple illustre : .
05 SINGLE-BYT E -FIELD PIC X (1)
4 déplacer des données à la première variable de la " Division de la procédure " de votre programme , comme dans le l'exemple suivant : .
MOUVEMENT INPUT- enregistrement à afficher -AREA
5 Réglez la valeur de l'index du tableau de choisir l'octet que vous voulez. Cette ligne devrait suivre le précédent de la Division de l' intérieur de votre programme. En COBOL , contrairement à la plupart des autres langues que Fortran , le premier élément a un indice de personne, pas zéro. Donc, si vous souhaitez référencer le premier octet dans le domaine , définir l'index à un, comme le montre l' exemple suivant:
SET DISPLAY- INDEX 1
6 de Move. l'octet que vous avez choisie pour le domaine que vous avez configuré pour recevoir les données . Pour ce faire , vous devez spécifier le champ de tableau et son indice associé, comme dans la déclaration suivante :
MOUVEMENT affichage octets ( DISPLAY- Index) pour un seul octet -FIELD
Le .
|
