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
....