Discussion :

[K2R400]

Tu n'as pas le même nombre de zones en les deux fichiers !
Lequel des fichiers à le plus de zones ?

[as40095]

Super merci ça marche
Effectivement dans mon fichier newfile, je n'avais qu'une seule zone alors que dans le fichier oldfile j'en avais plusieurs
Bon maintenant le plus dur reste à faire c'est de créer un SQLRPG et d'insérer la requête

[K2R400]

Si tu créés un SQLRPGLE juste pour mettre la requête, ce n'est pas necessaire.
Tu saisis ta requête dans un fichier source avec SEU, et tu l'éxécutes avec RUNSQLSTM (que tu peux mettre dans un CLP)

RUNSQLSTM SRCFILE(QCLSRC) SRCMBR(MONSOURCE) COMMIT(*NONE)

[as40095]

Super merci ça marche
Tu sais comment je peux faire maintenant pour lire un fichier et détecter un doublon et arrêter le traitement pour signaler qu'il y a un doublon dans le fichier

[K2R400]

Voici un exexmple de SQLRPGLE.
La variable Nbr contiendra le nombre de clés en double détectées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
H dftactgrp(*no) actgrp(*new)                              
d Nbr             s             15  0                      
 /free                                                     
                                                           
   Exec SQL  with temp as (                                
             select CMATR, count(*) from matable      
             group by CMATR                                
             having count(*) > 1)                          
             select count(*) into :Nbr from temp;          
     Dsply %char(Nbr);                                     
     *inlr = *on;

[as40095]

Bonjour,

Merci pour le code source
donc je procède par étape :

1°) création du sqlrpgle via la commande ==> CRTSQLRPGI + F4

2°) je copie ton code source dans mon pgm

3°) je compile

-----------------------------------------------------------------

- from matable ==> matable correspond à mon fichier contenant les doublons ?

H dftactgrp(*no) actgrp(*new)
d Nbr s 15 0
/free

Exec SQL with temp as (
select CMATR, count(*) from matable
group by CMATR
having count(*) > 1)
select count(*) into :Nbr from temp;
Dsply %char(Nbr);
*inlr = *on;

[K2R400]

1°) je copie ton code source dans mon pgm

C'est un programme complet en exmple que j'ai donné.

2°) création du sqlrpgle via la commande ==> CRTSQLRPGI + F4
3°) je compile

Oui ou 14 + F4 dans STRPDM devant le membre source.
C'est la compilation

- from matable ==> matable correspond à mon fichier contenant les doublons ?

Oui et CMATR dans mon exemple est la clé

[as40095]

désolé mais la je m'en sors pas pour la création du sqlrpg
Je vais me débrouiller en écrivant un programme RPG classique
Si tu as des idées pour détecter un doublon en lisant un fichier sans utiliser SQL, je suis preneur, sinon je te remercie de ton aide et du temps passé

MERCI