01 nom-tab OCCURS bEltsMax DEPENDING ON
NbEltsEffectif.
02 nomtab2
FORMAT.
Þ permet d'utiliser les fc°
intrinsèques (DEPENDING ON)
TAB(ALL) concerne la taille
effective du tableau
Traitement d'un tableau
PERFORM VARYING i FROM 1 BY 1
UNTIL eof OR i=MAX
tab(i)
END-PERFORM
NbElts=i-1
Attn : il peut y avoir des
débordements du tableau Þ penser à s'arrêter qd i=MAX
Accéder à un champ d'une
structure d'un tableau
Algo : tab[i].nom-champ
Cobol : nom-champ(i)
COMPUTE somme=FUNCTION SUM(tab(ALL))
SORT nom-structure
Þ trie sur la clé déjà
définie
DISPLAY "moyenne : " FUNCTION
MEAN(tab(ALL))
En W-SS, on peut utiliser VALUE
77 var PIC X VALUE 0.
INITIALIZE var
Þ remet var à 0
IF
var IS NUMERIC
Þ teste si var est numérique
nom-champ(i,j) Û champ indexé par i et j Û champ( j,i)
Rq : l'ordre des indices n'a
pas d'importance car les champs sont indexés
|
tab |
tab[i] |
champ1 |
|
|
nom-champ |
1 |
||
|
2 |
|||
|
… |
|||
|
j |
|||
|
tab[i+1] |
champ1 |
|
|
|
nom-champ |
1 |
||
|
2 |
|||
|
… |
|||
|
j |