Bonjour,
Je débute dans la programmation Cobol que j'exerce uniquement en maintenance, nous sommes sur Cobol microfocus.

Mon code :
Code cobol : 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
            PERFORM VARYING W-I FROM 1 BY 1
                      UNTIL W-I > 100 OR W-I > QNBR-A4G39MMR
                  MOVE LTITCPT-A4G39MMR(W-I)   TO LTITCPT-IDE-ASGRSMWM(W-I)
                  MOVE NCPTIBN-A4G39MMR(W-I)   TO NCPTIBN-IDE-ASGRSMWM(W-I)
                  MOVE CSYS-A4G39MMR(W-I)       TO CSYS-IDE-ASGRSMWM(W-I)
      *         
               IF G-DISPLAY-ACTIF
                  DISPLAY WS-PGM " - LTITCPT-A4G39MMR(W-I) = "
                                 LTITCPT-A4G39MMR(W-I)
                  DISPLAY WS-PGM " - NCPTIBN-A4G39MMR(W-I) = "
                                 NCPTIBN-A4G39MMR(W-I)
                  DISPLAY WS-PGM " - CSYS-A4G39MMR(W-I) = "
                                 CSYS-A4G39MMR(W-I)
               END-IF
            END-PERFORM
Je récupère 3 données issus d'un module externe appelé G39MMR correspondant a des RIB (N°de compte, Titulaire du compte et Code système). Il peut y avoir de 1 à n RIB. Ces données sont copiés dans mon module uniquement.
L'évolution que je dois apporter est que l'on peut remonter plusieurs RIB ayant le même numéro, le même titulaire mais avec un code système différent.
Dans ce cas, il faudrait remonter qu'une seule ligne avec les différents codes systèmes et non plusieurs lignes.

le résultat serait : N°de compte Tituaire du compte Code Sytème 1, code Système 2,....

Je continue à chercher de mon côté.
Merci