Discussion :

[totofff78]

Bonjour,

J'ai fais une procedure qui lit dans un premier curseur un fichier de travail ou je récupère les infos suivantes: nom de fichier, sa bib et le nom du champ.(ex: Fic1/BIB1/CHAMP1)
Avec ces infos j'exécute une requête pour savoir si dans ce fichier j'ai une valeur EP1 dans le champ (SELECTCOUNT(*) from BIB1/FIC1 WHERE CHAMP1='EP1')
Si COUNT*) >0 alors je mets le nom du fichier correspondant dans une table File3 .

Mais j'ai un pbm dans la déclaration du curseur curcount. A l'exécution, au niveau de

Code :

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

 OPEN CurCount;

j'ai le message "L'instruction préparée WSTMT n'a pas été trouvée" .

Le code de la procédure

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
CREATE OR REPLACE PROCEDURE NLORG()        
LANGUAGE SQL                                          
BEGIN                                                 
    DECLARE SQLSTATE CHAR(5);                         
    DECLARE WStmt  CHAR(200);                      
    DECLARE V_NAME CHAR(10);                      
    DECLARE V_LIB CHAR(10);                       
    DECLARE V_FILE CHAR(10);                      
    DECLARE V_SQL VARCHAR(200);                       
    DECLARE V_RESULT  VARCHAR(200);                   
    DECLARE COTE  CHAR(1) DEFAULT '''';               
    DECLARE CurCount CURSOR FOR wstmt;                                                                 
 
    DECLARE CurFile2 CURSOR FOR                       
        SELECT WhLIB, WHFILE, WHFLDI                  
        FROM ikspobj_pf.file2;                        
 
	OPEN CurFile2;                                    
    FETCH_LOOP: LOOP                                  
        FETCH CurFile2 INTO V_LIB, V_FILE, V_NAME;    
        IF SQLSTATE = '02000' THEN                    
            LEAVE FETCH_LOOP;                                                   
        END IF;                                                                 
 
    SET wstmt='SELECT COUNT(*) ' ||                                              
        'FROM '||V_LIB || '/' || V_FILE ||                                      
       ' WHERE '||V_NAME ||' = ' ||cote||'EP1'||cote;                           
 
     OPEN CurCount;                                                             
     FETCH CurCount INTO V_RESULT;                                              
     CLOSE CurCount;                                                            
       IF V_RESULT > 0 THEN                                                     
             SET V_SQL = 'INSERT INTO ikspobj_pf.file3 VALUES ('||V_FILE||')';  
       EXECUTE IMMEDIATE V_SQL;                                                 
      END IF;                                                                   
    END LOOP;                                                                     
    CLOSE CurFile2;                                                               
 END;

Le pbm est que le curseur change à chaque itération puisque la bib et le fichier change. Et si je mets le déclare dans la boucle du curseur2 à la compile ça passe pas.
Ensuite s'il y a plus simple , je suis preneur! Une idée escartefigue?

[totofff78]

il manquait

Code :

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

prepare wstmt from wstmt

entre le Set et l'open;

Code :

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

1
2
3
4
5
 SET wstmt='SELECT COUNT(*) ' ||                                              
        'FROM '||V_LIB || '/' || V_FILE ||                                      
       ' WHERE '||V_NAME ||' = ' ||cote||'EP1'||cote;                           
 
     OPEN CurCount;

[escartefigue]

Avec ces infos j'exécute une requête pour savoir si dans ce fichier j'ai une valeur EP1 dans le champ (SELECTCOUNT(*) from BIB1/FIC1 WHERE CHAMP1='EP1')
Si COUNT*) >0 alors je mets le nom du fichier correspondant dans une table File3 .

Deux remarques :

• dans une table d'une base de données relationnelle, il n'y a pas de champs, il y a des COLONNES.
  Les champs sont les zones des formulaires de saisie et des états.
• pour vérifier l'existence d'une valeur dans une colonne, il ne faut pas utiliser un comptage, c'est contre performant : la comptage va compter toutes les occurrences de la valeur et donc parcourir toute la table si la colonne n'est pas éligible pour un index et au mieux toutes les valeurs de l'index s'il en existe un éligible.
  Pour ce besoin, il faut utiliser EXISTS qui arrêtera la recherche dès qu'une occurrence sera trouvée et ne transportera qu'un booléen vrai/faux au lieu d'un compteur plus encombrant