Discussion :

[as40095]

Bonjour,

Je suis débutant dans le monde de l'AS400 et j'ai une question qui va vous paraitre bête
Voila, j'ai un CL qui copie depuis l'IFS les données d'un fichier texte vers un PF.
Dans mon fichier texte j'ai des doublons ( N° de matricule)
Comment puis je faire pour que lors de la copie je ne récupère pas les doublons

Merci

[K2R400]

Quand tu récupères ton fichier, au lieu de le mettre dans ta table, tu la mets dans une table équivalente mais décrite cette fois ci sans clé unique.
Tu peux la créer dans QTEMP par exemple avec l'ordre SQL ci-dessous que tu peux mettre dans un fichier source executable par un RUNSQLSTM :

Create table qtemp/new as (select * from anc) with no data;

Puis tu "descends" tes données dans ce fichier qui acceptera les clés en double, puis par une requete SQL tu inseres dans ton nouveau fichier en evitant les clés en double

[as40095]

Bonjour,

Merci pour ta réponse
Tu cites dans ton message précédent " puis par une requête SQL tu insères dans ton nouveau fichier en évitant les clés en double "
Comment via une requête SQL j'insère les données dans mon nouveau fichier en évitant les doublons ?

Merci pour le coup de main

[K2R400]

Quelle est la description de ta table ?
--> DSPFFD monfichier (sur une ligne de commande)

quelles sont les clés ?

[as40095]

Le fichier recevant les données n'a pas de clé
En lançant un SQL sur le fichier avec un distinct j'arrive à supprimer le doublon
Maintenant je souhaites copier le resultat de mon SQl avec le distinct dans un autre fichier et c'est la que ça bloque, car je ne sais pas faire

[K2R400]

INSERT INTO newtable SELECT .... FROM oldtable

[as40095]

Dernier renseignement
Quand je lance mon sql avec le distinct sur la zone en doublon ( Matricule ), il me récupère bien tous les matricules sans doublon
Mais pourquoi il ne m'affiche que la zone Matricule et pas les autres zones
Conséquence quand je lance le sql suivant :
insert into newtable select distinct cmatr from oldtable
il ne me copie que les données de la zone CMATR ( matricule ), alors que je souhaite avoir les autres zones aussi ( nom, prénom, adresse, etc... )

Encore merci et désolé

[K2R400]

Car tu demandes les valeurs distinctes que d'une seule colonne.
Sinon tu peux utiliser UNION pour enlever les doublons :

INSERT into matable
Select * from oldtable
UNION
select * from oldtable

[K2R400]

Pour faire la requête précédente, il faut que toutes les zones à insérées soient identiques.
Imagines du as 2 fois le même matricule et avec 2 adresses différentes, la requête donnée avec UNION génèrera aussi des clés en double.
Maintenant si tu veux insérer le premier enregistrement de chaque matricule, tout en faisant abstraction qu'il soit possible d'avoir des données différentes pour un même employé, tu utiliseras plutôt la requête ci-dessous :

Code :

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

1
2
3
4
5
6
insert into matable       
select * from oldtable     
where (rrn(oldtable)) in   
(select MIN(rrn(oldtable)) 
from oldtable              
group by CMATR)

MIN pour le premier enregistrement d'un employé
MAX pour le dernier

[as40095]

Merci
Maintenant je vais insérer ce sql dans un programme rpg
J'espère m'en sortir car c'est la première fois que je vais faire un programme RPG avec des commandes SQL à l'intérieur

[K2R400]

Vu qu'il s'agit d'un INSERT sans paramètres tu peux faire (dans un SQLRPGLE) un ordre SQL statique sans curseur avec directement :

EXec SQL INSERT into.... ;

[as40095]

insert into matable
select * from oldtable
where (rrn(oldtable)) in
(select MIN(rrn(oldtable))
from oldtable
group by CMATR)

Que veux dire RRN dans(RRN(oldtable))
Donc si j'ajoute la requête ci-dessus dans un SQLRPG je n'aurais plus de doublon

[K2R400]

RRN = Relative Record Number.

Imagines un fichier vide.
Tu ajoutes un enregistrement , il se positonne au premier rang (RRN = 1).
Le second au RRN = 2 etc...
Si tu as 10 enregistrements puis tu supprimes le N°3, il y a un trou.
Si tu ajoutes à nouveau un enregistrement, si ton fichier a été créé avec des DDS, le nouvel enregistrement est placé en N° 11.
Si ta table a été créée avec SQL (create table...), le nouvel enregistrement est placé en N°3 pour récupérer le gruyère.

[as40095]

Désolé
Mais je t'avoue que je n'arrive pas à suivre
Est ce que via programme il est possible de lire le fichier et de detecter le doublon et de le supprimer
car la je suis perdu, en faite je recherche une solution simple via programme en automatique pour supprimer les matricules en doublons
Encore merci

[K2R400]

Oui, cette requête va lire ton fichier qui accepte les doublons et ne prendre qu'un seul enregistrement par matricule (le premier car MIN) et l'insérer dans le nouveau qui lui n'accepte pas les doublons

[as40095]

insert into malib/newfile select *from malib/oldfile where
(rrn(malib/oldfilepf)) in (select min(rrn(malib/oldfilepf))
from malib/oldfilepf group by cmatr )

Est ce que quelque chose cloche car il me met des erreurs quand je le teste via STRSQL

Comment créer un sqlrpg ?

Merci

[K2R400]

insert into malib/newfile select *from malib/oldfilepf where
rrn(oldfilepf) in (select min(rrn(oldfilepf))
from malib/oldfilepf group by cmatr )

La requête devrait marcher sans problème, dans le cas contraire quel est le message d'erreur.
Un SQLRPGLE c'est pareil qu'un RPGLE, c'est le type de source qui change

[as40095]

Quand je lance la requête j'ai le message suivant :
Qualificatif de colonne ou table non défini, il parle de la table oldfilePF

[K2R400]

insert into malib/newfile select * from malib/oldfilepf where
rrn(oldfilepf) in (select min(rrn(oldfilepf))
from malib/oldfilepf group by cmatr )

Ne mets pas le nom de la biblio dans RRN, prends exemple sur la requête ci-dessus

[as40095]

Voila le message que j'ai en enlevant la bib :

L'instruction contient un nombre erroné de valeurs

insert into malib/newfile select *from malib/oldfile where
rrn(oldfile) in (select min(rrn(oldfile))
from malib/oldfile group by cmatr )