Discussion :

[el_slapper]

Bonjour

Je dois actuellement développer dans le cadre de mon activité professionelle un batch qui génère du XML. Le truc, c'est que les specs sont en retard. J'en suis donc à fabriquer un moteur.....dont le dimensionnement sera vraisemblablement à revoir.

Afin d'industrialiser tout ça, j'use et j'abuse de la fonction LENGTH OF. Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
                 20 XML-SUBJECT                    PIC X(0100).
      *                                                   
              MOVE XML-SUBJECT            TO CHAINE-ECRITE
              MOVE LENGTH OF XML-SUBJECT  TO LONGUEUR-LUE

et le compilateur remplacera LENGTH OF par 100, ou autre chose si ma définition change.

Mon souci est que j'aimerais faire le même genre de manip avec des occurs. J'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
                    25 XML-LIGNES OCCURS 15.                   
                       30 XML-NOM-LIGNE            PIC X(0004).
                       30 XML-LIGNE                PIC X(0226).


           SET W-SORTIE-KO TO TRUE      
           MOVE  +00 TO I               
           PERFORM UNTIL W-SORTIE-OK    
              ADD  +01 TO I             
              IF I > 15                 
                 SET W-SORTIE-OK TO TRUE
              ELSE                      
-  -  -  -  -  -  -  -  -  -  -  -  -  -
              END-IF                    
           END-PERFORM

et j'aimerais remplacer ce 15 par une fonction du même type que LENGTH OF, parceque ça ne restera sans doute pas à 15.

Vous avez des idées?

[Hédhili Jaïdane]

Bonjour.

Utilise les tableaux longueur variable (Occurs Depending On).

Code Extrait doc IBM ILE Cobol pour iSeries :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
01 EMPLOYEE-TABLE.
    05 EMP-COUNT PIC 9(4).
    05 EMPLOYEE-RECORD OCCURS 1 TO 1000 TIMES DEPENDING ON EMP-COUNT.
       10 HOURS PIC +9(5)E+99.

[el_slapper]

hmmm, je vais voir..... Je préfèrerais un truc en dur, avec un valeur en dur dans la COPY de description de données(histoire de ne pas avoir à toucher au code), mais je vais essauyer ta solution.

Merci, en tous cas.

[Hédhili Jaïdane]

Dans le cas où tu n'as aucune idée sur le max de l'occurs de ton tableau, utilise alors un fichier avec une identification des enregistrements appartenant à la même entité et comme ça tu n'as aucun problème de dimension (ici nombre d'enregistrements)

[fremen167]

Même si ça ne répond pas complètement à ta question, je te conseillerais de toutes façon de ne jamais laisser un "15" dans une boucle comme tu l'as fait.

Mieux vaut utiliser une constance du genre WS-NB-MAX-XXXX.

Pour traiter ton problème, tu peux faire comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
                    25 XML-LIGNE-GRP.
                       30 XML-LIGNES OCCURS 15.                   
                          35 XML-NOM-LIGNE            PIC X(0004).
                          35 XML-LIGNE                PIC X(0226).

puis en initialisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
COMPUTE WS-NB-MAX-LIGNES = (LENGTH OF XML-LIGNE-GRP) / (LENGTH OF XML-LIGNES)

[el_slapper]

Merci beaucoup Fremen, c'est exactement ce que je cherchais ==> Résolu(et j'aurais du y penser moi-même.....)

Mais bien sur, je n'avais pas l'intention de laisser ce 15 traîner, c'est sale...

[fremen167]

Pas de quoi

Ceci étant, on parle ici de "dynamique", c'est un abus de langage, puisque la taille du tableau ne change pas pendant l'exécution du programme.

De ce point de vue, la réponse d'Hédhili Jaïdane correspondait plus à la notion de tableau à taille dynamique, même si ce n'était pas vraiment ton besoin...

[el_slapper]

mmh, mon titre était en effet trompeur, je m'en excuse. le "Dynamique" ne concerne pas l'execution du programme, en effet.

Par contre, je garde sa solution en mémoire, je pourrais en avoir besoin à d'autres occasions. Merci à tous les deux.

[xfanx]

j'aurais fait un truc du genre te permettant d'avoir ton nbr d'occurs max calculé dynamiquement en fonction du nombre d'occurs que tu indiques dans ta description. Plus (mais ça c'est mes "tic" de programmation perso), une simplification du coding de ta boucle..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
01 max-i pic s9(9) comp.
25 XML-LIGNES OCCURS 15.   
           26  toto.     
                       30 XML-NOM-LIGNE            PIC X(0004).
                       30 XML-LIGNE                PIC X(0226).

           compute max-i = length of xml-lignes / length of toto
           perform varying i from 1 by 1 until i > max-i
            .....
            .....
           end-perform

[mosaab]

Pas de quoi

Ceci étant, on parle ici de "dynamique", c'est un abus de langage, puisque la taille du tableau ne change pas pendant l'exécution du programme.

De ce point de vue, la réponse d'Hédhili Jaïdane correspondait plus à la notion de tableau à taille dynamique, même si ce n'était pas vraiment ton besoin...

bonjour ,
pourriez vous m'expliquer cette ligne
05 variable
occurs 0 to 22 depending on var2
merci

[Darkzinus]

Cela signifie que le tableau contient de 0 à 22 lignes et la variable qui contient le nombre de lignes est "var2".

[mosaab]

Cela signifie que le tableau contient de 0 à 22 lignes et la variable qui contient le nombre de lignes est "var2".

merci beaucoup