Bienvenu(e)! Identification Créer un nouveau profil

Recherche avancée

Exemple de lecture d'un fichier par SQL dans un source RPG

Envoyé par admin 


Exemple de lecture d'un fichier par SQL dans un source RPG
mardi 14 décembre 2010 21:15:26
Exemple de lecture d'un fichier par SQL dans un source RPG. Cet exemple est développé en RPG - GAP sur iSeries

C/EXEC SQL                                     
 C+  DECLARE C1 CURSOR FOR                      
 C+ SELECT ZONE1, ZONE2, ZONE3, ZONE4, ZONE5,   
 C+ ZONE6 AS ALIAS                              
 C+ FROM BIB/FICHIER                            
 C+ WHERE                                       
 C+ ZONE1 > :TEST1                              
 C+ AND ZONE2 = :TEST2                          
 C+ ORDER BY ZONE1, ZONE2                       
 C/END-EXEC

*  OUVERTURE CURSEUR C1                       
 C/EXEC SQL                                     
 C+  OPEN C1                                    
 C/END-EXEC

*  RECUPERATION DES INFORMATION DANS LE MÊME ORDRE QUE LE SELECT   
  *  ET AVEC TOUTES LES ZONES...                               *     
 C/EXEC SQL                                                          
 C+ FETCH  FROM C1 INTO :ZONE1, :ZONE2, :ZONE3 :ZONE4, :ZONE5,       
 C+ :ALIAS                                                           
 C/END-EXEC                                                          
  *    -LECTURE DU CURSEUR LIGNE PAR LIGNE                           
 C     SQLSTATE      DOWEQ     '00000'                               
  *                                                                  
  *    - ON PEUT UTILISER MAINTENANT CHAQUE CHAMPS DU FETCH          
 C                   MOVEL     ZONE1         ZONE2                   
  *                                                                  
  *  RECUPERATION DES INFORMATION DANS LE MÊME ORDRE QUE LE SELECT   
  *  ET AVEC TOUTES LES ZONES...                                     
 C/EXEC SQL                                                          
 C+ FETCH  FROM C1 INTO :ZONE1, :ZONE2, :ZONE3 :ZONE4, :ZONE5,       
 C+ :ALIAS                                                           
 C/END-EXEC                                                          
 C                   ENDDO                                           
  *                                                            *     

  *  FERMETURE CURSEUR C1                       
 C/EXEC SQL                                     
 C+  CLOSE C1                                    
 C/END-EXEC                                     
  *



Modifié 1 fois. Dernière modification le 14/12/10 21:16 par admin.

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum. Cliquez sur idendification pour vous enregistrer ou cliquez sur Créer un nouveau profil pour vous inscrire gratuitement sur ces forums

Cliquez ici pour vous connecter

28 visiteurs actuellement sur le site