Bonjour,
je voudrais déplacer dans une zone unique provenant des éléments d'une table définie en data division par occurs. Ce faire sans écraser les données déplacées dans cette zone précédemment.
exemple :
est-ce que je ne vais pas chaque fois écraser la donnée du "move" précédent?
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38 data division. 01 samuuser-out. 03 nomsamu pic x(27). 03 nom-samu redefines nomsamu. 05 stab occurs 27 times pic x. 03 filler pic x value ",". 03 prenomsamu pic x(24). 01 gmailuser-out. 03 prenomgmail pic x(24). 03 filler pic x value ",". 03 nomgmail pic x(27). 03 nom-gmail redefines nomgmail. 05 gtab occurs 27 times pic x. 03 filler pic x value ",". 03 emailgmail pic x(38). 01 scanzone. 03 teststab pic x(27). 03 testgtab pic x(27). procedure division. move 1 to I perform scanchar varying I from 1 by 1 until gtab (I) not= stab (I) or I=27 .......... .......... ........... scanchar. move gtab (I) to testgtab. move stab (I) to teststab. Add 1 to I.
peux t-on faire un unstring gtab (I) et stab (I) into une autre zone élément par élément? ou dois je utiliser des tables supplémentaires?
s étrJe dois tester une égalité entre deux variables contenant des noms venant de 2 fichiers différents.
Le nom dans un fichier est raccourci par rapport au nom venant de l'autre fichier et dans ce fichier il y a beaucoup de noms composés de différentes origines.
par exemple 1er fichier : DA CUNHA
RAMIREZ
TAWIL ABRAOUI
Di ROBERTO2eme fichier : DA CUNHA GONCALVES GONZALES
RAMIREZ NARWAEZ RODRIGEZ
TALWIL ABRAOUI EL DRAOUI
DI ROBERTO DI MARIA
Merci pour vos idées
Negob
Partager