Forum As400
10 visiteurs actuellement sur le site
Quizz As400
 Newsletter 

  Sommaire  


  Espricréa, créateur de site internet
Mon application pour smartphones Android   New 
Le quizz aléatoire 
Le quizz RPG
Le quizz OS400 CLP
Le quizz DDS-DSPF
quizz champions
Mes utilitaires 400
Exercices  New 
Tips 400
Mes scripts PHP
Statistiques






Forum : développements sur As400
Forum : développements vos tips
Forum : Emploi As400
Forum : PHP Mysql
Création codes 2D
Livre d'or

Partager sur Twitter
 


  Carteacarte
Bû - A voir
Recommandation

Les sondages

Me contacter
 


  Mon Curriculum vitae
Me contacter
Télécharger mon CV (.doc)
 








 

Tips CL - Exemple de lecture d'un fichier par SQL dans un source RPG (iSeries)

 

<<< Retour à la liste des tips

 

1 - Exemple de lecture d'un fichier par SQL dans un source RPG. Cet exemple est développé en RPG - GAP sur iSeries

 

Début du code

  *                                             
 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                                     
  *          

 

 

 

Fin du code

 

 

  Copyright © Christophe Delage   2000 - 2017   administration