Discussion :

[Lisogane]

Bonjour.
Voici un programme de test créé en ILE avec du SQL
la compilation marche mais l'exécution ne crée pas le fichier,
quelqu'un peut m'aider?

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
H                                                                     
Dsrcsql           s            300                                    
 /free                                                                
   srcsql='CREATE TABLE SWTSTOD/TESTE AS'                             
   + ' (SELECT * FROM SWTSTOD/MITWHSP WHERE I3WHS£ like ''BA%'' and ' 
   + '(I3BOH <> 0 or I3QINT <> 0 or I3QRES <> 0) and '                
   + 'I3ALOC <> ''MSOE'') '                                           
   + 'WITH DATA';                                                     
 /end-free                                                            
C                   if        SQLSTT='00000'                          
C/EXEC SQL                                                            
C+ PREPARE REQUET FROM :srcsql                                        
C/END-EXEC                                                            
C/EXEC SQL                                                            
C+ DECLARE C1 CURSOR FOR  REQUET                                      
C/END-EXEC   
 /end-free                                       
C                   if        SQLSTT='00000'     
C/EXEC SQL                                       
C+ PREPARE REQUET FROM :srcsql                   
C/END-EXEC                                       
C/EXEC SQL                                       
C+ DECLARE C1 CURSOR FOR  REQUET                 
C/END-EXEC                                       
C/EXEC SQL OPEN C1                               
C/END-EXEC                                       
C                   endif                        
C                   eval      *inlr=*on

[K2R400]

Pas besoin de curseur dans ton cas, en plus le sql peut être statique !

Faire plutôt :

Code :

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

1
2
3
4
5
6
7
8
 /free                                                                
   Exec SQL 
   CREATE TABLE SWTSTOD/TESTE AS                             
    (SELECT * FROM SWTSTOD/MITWHSP WHERE I3WHS£ like 'BA%' and 
    (I3BOH <> 0 or I3QINT <> 0 or I3QRES <> 0) and                
    I3ALOC <> 'MSOE')                                           
    WITH DATA;                                                     
  *inlr = *on;

[m4k-Hurrican]

Quelle est la valeur du paramètre COMMIT (contrôle de validation) sur l'option de compilation ?
Si ce n'est pas *NONE, tu dois valider tes mises à jour par une instruction COMMIT. Dans le cas contraire tout sera invalidé à la fermeture du programme.