Gestion des tables
COBOL

Il était déjà facile d’utiliser des tables avant l’apparition de la norme 74 mais celle-ci a introduit de nouvelles fonctions, fondamentales pour leur gestion. Rappelons qu’une table est un groupe ordonné de données composé d’éléments simples ayant tous des attributs identiques. Chacun des éléments de la table est désigné à l’aide d’un numéro d’ordre appelé indice sous la forme ELEMENT (indice ). L’indice peut être utilisé sous forme d’un nombre entier, par exemple ELEMENT (5) pour désigner le cinquième élément d’une table. L’indice peut aussi être utilisé sous forme d’un Nom-Donnée, par exemple SALAIRE (ECHELLE) avec ECHELLE prenant exclusivement des valeurs entières. Puisque COBOL autorise jusqu’à trois indices pour une table nous pouvons écrire dans le cas le plus général ELEMENT (indice-1, indice-2, indice-3 ). Depuis 1974, COBOL offre la possibilité de remplacer les indices par des index jouant pratiquement le même rôle mais implicitement réservés par COBOL lors de la déclaration de la table.

À première vue, index et indices paraissent jouer exactement le même rôle. En fait le contenu de l’indice est un nombre entier désignant le numéro d’ordre de l’élément compté à partir de 1 pour le premier ; par contre, le contenu de l’index est le nombre de positions de mémoires (octets par exemple) désignant le déplacement de l’élément par rapport au début de la table. On peut résumer en disant que l’indice désigne un nombre d’éléments alors que l’index est un offset (décalage) par rapport à une adresse interne de mémoire. On donne une valeur à un index par l’instruction SET IND1 TO 1 qui ici positionne l’index sur la première occurrence des éléments de la table.

Pour rechercher dans une table un élément qui satisfait à une ou plusieurs conditions données, on utilise l’instruction SEARCH.