Forum As400
11 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 READC dans un source RPGILE (iSeries)

 

<<< Retour à la liste des tips

 

4 - Exemple de READC dans un source RPGILE. Cet exemple est développé en RPG IV sur iSeries

 

Début du code
                                                                      
  LE READC SE FAIT SUR LE FORMAT DE SOUS FICHIER                      
  DE DONNÉES ET PAS CELUI DE CONTROLE                                 
                                                                      
    ON TEST ICI SI LA ZONE SEL A ÉTÉ SELECTIONNEE                     
    ET ON AJOUTE 1 DANS UN COMPTEUR ...                               
                  READC     FMTSFLDATA                                
                  DOW       NOT %EOF                                  
    SEL           IFEQ      'X'                                       
                  ADD       1             LIGSL                       
                  ENDIF                                               
                  READC     FMTSFLDATA                                
                  ENDDO                                               
                                                                      
                  SETON                                        LR     
                                                                      

 

Fin du code
Capture d'écran iSeries

 

  Copyright © Christophe Delage   2000 - 2017   administration