Déclarer un tableau

WORKING-STORAGE SECTION.

01 nomTab OCCURS NbElts format.

Ex : 01 tabCar OCCURS 10 PIC A.

Déclarer un tableau de structures

WORKING-STORAGE SECTION.

01 tab-de-struc OCCURS NbElts. *> taille du tableau

02 NomChamp1 format.

02 NomChamp2 format.

Rq : un champ peut être un tableau

Ex : 01 tabGlobal OCCURS 10.

02 tab OCCURS 10 PIC X.

02 i PIC 9.

Initialiser un tableau

INITIALIZE nomtab(nb-1^e-Cases)

Þ met les nb 1^e cases à 0

MOVE val TO tab-de-struct

Þ initialise tous les champs du tableau à val

Accéder à un élément du tableau

nom-tab(indice)

Accéder à un champ d'un tableau de structures

nom-champ(indice)

Þ renvoit la valeur du champ àl'indice indice du tableau de structures

Attn : Indices :

· 1 ® MAX

· du type entier +/ – entier

Attn aux accès erronés !!

Déclarer un tableau de taille effective variable (nbElts variable)

WORKING-STORAGE SECTION.

01 nom-Tab OCCURS Taille-Max DEPENDING Taille-Effective ...

Rq : TailleMax est une valeur ou une cte

nom-tab(ALL)

Þ désigne l'ensemble des valeurs effectives du tableau

Déclarer un T2D

01 nomT2D.

02 nom-Lignes OCCURS nbLignes.

03 nom-Colonnes OCCURS nbColonnes format.

ou

03 nom-Colonnes OCCURS nbColonnes.

04 nom-Elt format.

Déclarer un tableau de structures trié

01 nom-tab OCCURS nbElts DEPENDING ON nbEffectif

MODE-DE-TRI KEY champ1 champ2.

…

ASCENDING Þ tri croissant (alphabétique si car)

DESCENDING Þ tri décroissant

Trier un tableau

SORT nom-tab MODE-DE-TRI KEY liste-critères(champs)