Problème dans un tableau

**a_karim_fr** · 19/11/2009, 17h26

Bonjour,

J'ai un traitement d'alimenter un tableau mais au niveau d'affichage j'ai que le dernier donné alimenté est t’afficher et non toutes les données affichées car j e veux afficher tous les messages.

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
17
18
19
01  WS-NBR-ANO         PIC  9(02).
01  WS-ERREUR                    PIC  X(100) value space.
01  WS-I                             Pic  S9(4) binary.

01  WS-Q-NBR-ANO               PIC   9(02).
01  WS-G-TAB-ANO         OCCURS  10.
     05 WS-MSG-ERREUR         PIC  X(100).

IF WS-NBR-ANO  > 10
   DISPLAY ' WS-MSG-ERREUR           :' WS-MSG-ERREUR(WS-I)
   Perfrom Arrête-traitement
Else 
   PERFORM VARYING WS-I FROM 1 BY 1 UNTIL  WS-Q-NBR-ANO > 10
                                       OR  WS-I > 20

     MOVE WS-ERREUR                   TO  WS-MSG-ERREUR(WS-I)

   END-PERFOROM
End-IF

Exemple au niveau d'affichage j'ai ' Code A incorrect'

et non ' Code A incorrect'
' Code B incorrect'
' Code C incorrec
....

**Homer-ac** · 19/11/2009, 18h11

A chaud au moins 2 choses qui clochent + quelques erreurs de ressaisie qui ne peuvent passer à la compilation

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
17
18
19
20
01  WS-NBR-ANO         PIC  9(02).
01  WS-ERREUR                    PIC  X(100) value space.
01  WS-I                             Pic  S9(4) binary.

01  WS-Q-NBR-ANO               PIC   9(02).
01  WS-G-TAB-ANO         OCCURS  10.
     05 WS-MSG-ERREUR         PIC  X(100).

IF WS-NBR-ANO  > 10
   DISPLAY ' WS-MSG-ERREUR           :' WS-MSG-ERREUR(WS-I)
   Perfrom???  Arrête-traitement
Else 
   PERFORM VARYING WS-I FROM 1 BY 1 UNTIL  WS-Q-NBR-ANO > 20
                                       OR  WS-I > 20

     MOVE WS-ERREUR                   TO  WS-MSG-ERREUR(WS-I).
     on est sur un tableau en occurs 10 et on boucle 20 fois !?
     C'est quoi ce point à la fin ? je ne pense pas que ça passe à la compile avec un END-IF orphelin plus loin
   END-PERFOROM???
End-If

Il serait préférable de faire des copies d'écran, sinon ça ne va pas être facile d'essayer de faire le distingo entre erreurs de code et erreurs de saisie.

**a_karim_fr** · 19/11/2009, 18h20

Désolé j'ai corrigé votre remarque :

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
17
18
19
20
21
01  WS-NBR-ANO          PIC  9(02).
01  WS-ERREUR         PIC  X(100) value space.
01  WS-I                Pic  S9(4) binary.
 
01  WS-Q-NBR-ANO               PIC   9(02).
01  WS-G-TAB-ANO         OCCURS  10.
     05 WS-MSG-ERREUR         PIC  X(100).

IF WS-NBR-ANO  > 10
   DISPLAY ' WS-MSG-ERREUR           :' WS-MSG-ERREUR(WS-I)
   Perfrom Arrête-traitement
Else 
   PERFORM VARYING WS-I FROM 1 BY 1 UNTIL  WS-Q-NBR-ANO > 10
                                                            OR  WS-I > 10

     MOVE WS-ERREUR                   TO  WS-MSG-ERREUR(WS-I)

   END-PERFOROM
   ADD  1                                     TO  WS-Q-NBR-ANO
   MOVE   WS-Q-NBR-ANO              TO  WS-I 
End-IF

Mais j'ai toujours même problème

**Homer-ac** · 20/11/2009, 11h56

Bonjour.
Je crois qu'il faut reprendre point par point la logique de ce code qui m'échappe !

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
17
18
19
20
21
22
23
24
01  WS-NBR-ANO          PIC  9(02).                                     
1) Où est initialisé WS-NBR-ANO ?                                       
01  WS-ERREUR           PIC  X(100) value space.                        
01  WS-I                Pic  S9(4) binary.                              
                                                                        
01  WS-Q-NBR-ANO        PIC   9(02).                                    
2) Où est initialisé WS-Q-NBR-ANO ?                                     
   Quels cas de gestion pour les 2 WS-NBR-ANO et WS-Q-NBR-ANO distincts ?
01  WS-G-TAB-ANO         OCCURS  10.                                    
     05 WS-MSG-ERREUR   PIC  X(100).                                    
                                                                        
IF WS-NBR-ANO  > 10    (1)                                             
   DISPLAY ' WS-MSG-ERREUR           :' WS-MSG-ERREUR(WS-I)             
3) Quelle valeur dans WS-I A cet endroit ? Probablement 11 si dédié     
   Perform Arrête-traitement                                            
Else                                                                    
   PERFORM VARYING WS-I FROM 1 BY 1 UNTIL  WS-Q-NBR-ANO > 10  (2)       
                                    OR  WS-I > 10                       
     MOVE WS-ERREUR                   TO  WS-MSG-ERREUR(WS-I)           
4) Quand WS-NBR-ANO est < 10, Le perform remplit TOUTES les occurences  
   du tableau avec le même WS-MSG-ERREUR                                
                                                                        
   END-PERFORM                                                          
End-IF

Si on veut alimenter une occurence à chaque fois, ce n'est pas un perform qu'il faut faire mais une alimentation d'un nouveau poste via un incrément de WS-NBR-ANO (WS-Q-NBR-ANO est superflu)
Si j'ai bien compris :

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
01.                                                                 
    05  WS-I                PIC  s9(03) Comp-3.                     
    05  WS-NBR-ANO          PIC  s9(03) Comp-3 Value 0.             
    05  WS-ERREUR           PIC  x(100).                            
    05  WS-MSG-ERREUR       PIC  x(100)      Occurs 10.             
CAS-ANO.                                                            
If WS-NBR-ANO not > 10                                              
    Add  1          to WS-NBR-ANO                                   
    Move WS-ERREUR  to WS-MSG-ERREUR (WS-NBR-ANO)                
Else                                                                
    Perform Varying WS-I From 1 By 1 Until  WS-I > 10               
       Display "MESSAGE D'ERREUR NO " WS-I " : " WS-MSG-ERREUR(WS-I)
    End-Perform                                                     
    Display    "MESSAGE D'ERREUR NO " WS-I " : " WS-ERREUR          
    Perform ARRETE-TRAITEMENT                                       
End-IF.

**a_karim_fr** · 20/11/2009, 12h31

Bonjour,

J'ai met le même chose comme votre code mais j'ai le même message pas des messages déférentes

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
17
01  WS-NBR-ANO          PIC  9(02)   value 0.
01  WS-ERREUR           PIC  X(100) value space.
01  WS-I                             Pic  S9(4) binary.
01  WS-Q-NBR-ANO               PIC   9(02) value 0.
01  WS-G-TAB-ANO         OCCURS  10.
     05 WS-MSG-ERREUR         PIC  X(100).

IF WS-NBR-ANO  not > 10
   ADD  1                                     TO  WS-Q-NBR-ANO
   MOVE   WS-Q-NBR-ANO              TO  WS-I 
    PERFORM VARYING WS-I FROM 1 BY 1 UNTIL  WS-Q-NBR-ANO > 10 OR WS-I > 10                                                        
     MOVE WS-ERREUR                   TO  WS-MSG-ERREUR(WS-I)
   END-PERFOROM
ELSE 
   DISPLAY ' WS-MSG-ERREUR           :' WS-MSG-ERREUR(WS-I)
   Perfrom Arrête-traitement
End-IF

**xfanx** · 20/11/2009, 13h02

avec ce que tu as écrit, ton display, tu ne le fais que quand WS-NBR-ANO est > 10 et une seule fois pour un seul WS-MSG-ERREUR(WS-I)
au vu du coding, tu display toujours le meme poste, le 10eme puisque WS-I est incrementé jusqu'à 10.il garde donc cette valeur lors de ton display.

je ferai ça....

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
01  WS-ERREUR           PIC  X(100) value space.
01  WS-I                             Pic  S9(4) binary.
01  WS-Q-NBR-ANO               PIC   9(02) value 0.
01  WS-G-TAB-ANO         OCCURS  10.
     05 WS-MSG-ERREUR         PIC  X(100).

IF WS-NBR-ANO  not > 10
   ADD  1                                     TO  WS-NBR-ANO
     MOVE WS-ERREUR                   TO  WS-MSG-ERREUR(WS-NBR-ANO)  
ELSE 
   perform varying ws-i from 1 by 1 until ws-i > 10
   DISPLAY ' WS-MSG-ERREUR           :' WS-MSG-ERREUR(WS-I)
   end-perform
   Perfrom Arrête-traitement
End-IF

**Homer-ac** · 20/11/2009, 13h04

Non regardes encore le code que j'ai posé, il n'est pas du tout pareil. Tu continues à mélanger des compteurs WS-NBR-ANO et WS-Q-NBR-ANO en particulier. (IF WS-NBR-ANO not > 10 ADD 1 TO WS-Q-NBR-ANO)
Quand on bute sur un pb de logique, le mieux est le plus souvent de casser le code et de le revoir à froid complètement.

**xfanx** · 20/11/2009, 13h05

oups, désolée Homer-ac; je n'avais pas vu que tu avais répondu a peu pret la meme chose que l'exemple de code que je viens de poster

a-karim-fr, tu n'as pas du tout codé ce que Homer-ac t'as indiqué...d'ou ton erreur

**a_karim_fr** · 20/11/2009, 16h58

Merci pour votres aides

Problème dans un tableau

Cobol

Discussions similaires

Partager

Partager