Bonjour,
Je débute dans la programmation Cobol que j'exerce uniquement en maintenance, nous sommes sur Cobol microfocus.
Mon code :
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.
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
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
Partager