probléme de compilation tableau [Résolu]

[lah.123]

Bonjour,

J’ai un tableau déclarer comme ça :

Code :

1
2
01 WS-CLI-X                              PIC X(198000).
01 WS-DMN  REDEFINES WS-CLI-X  OCCURS 500.

Quand je compile il me donne ce message d'erreur :

Code :

1
2
An "OCCURS" clause was found in the definition of a level-1 item.  The
"OCCURS" clause was discarded.

Merci pour votre aide.

[ekans]

Bonjour,

Comme le texte l'indique tu ne peux pas écrire OCCURS au niveau 01. Tu dois ajouter un sous-niveau pour la clause OCCURS.
Sinon la doc c'est bien aussi

[lah.123]

Merci pour pour la réponse

[Hédhili Jaïdane]

Bonjour.

Certains compilateurs autorisent l"OCCURS" au niveau 01, par exemple ici le Cobol/2 d'IBM.

Code :

1
2
000410 01  A           pic X(100).
000420 01  B REDEFINES A pic X(2) OCCURS 50.

Mais de toute façon il faut compléter ta clause par la redécomposition de WS-DMN par un 03 ou en en donnant son PIC.

[lah.123]

Bonjour,

Dans mon cas je le corrige comme ca :

Code :

1
2
3
4
5
6
01 WS-CLI-X                              PIC X(198000).
01 WS-DMN  REDEFINES WS-CLI-X PIC X(??)  OCCURS 500.
   03 WS-CL                                   PIC X(32).
   03 WS-REF                                 PIC X(80).
   03 WS-ADR                                 PIC 9(4).
   03 WS-CP                                   PIC X(120).

PIC X (??) c'est le total de toutes les PIC de niveau 03 ?

Merci

[Pico-----]

La picture n'est pas obligatoire sur une "zone groupe" (et si ça se trouve interdite, j'avoue que je n'ai jamais essayé).

Ensuite, ton compilateur n'accepte pas les OCCURS sur les niveaux 01 (cf, ton premier post) , ton code ne passera donc pas. Tu dois créer une autre ligne en niveau 02 (ou autre, mais cela t'oblige à tout re-niveler) sur laquelle tu pourras mettre la clause OCCURS.

[Hédhili Jaïdane]

Bonjour.

Si ton compilateur l'accepte oui mais sans mettre le pic(??) au niveau du groupe et en veillant à ce que la somme des pic du niveau 03 soit égale à 396 (198000/500).

Comme on soupçonne ton compilateur de ne pas accepter l'OCCURS au niveau 01, je préfère la décomposition suivante :

Code :

1
2
3
4
5
6
7
8
01 WS-CLI-X                              PIC X(198000).
01 WS-CLI-X2  REDEFINES WS-CLI-X.
     03 WS-DMN  OCCURS 500.
        05 WS-CL                          PIC X(32).
        05 WS-REF                        PIC X(80).
        05 WS-ADR                        PIC 9(4).
        05 WS-CP                          PIC X(120).

La somme des 05 doit être égale , comme indiqué, à 396.