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

Recherche avancée

Exemple de READC dans un source RPGILE (iSeries)

Envoyé par admin 


Exemple de READC dans un source RPGILE (iSeries)
lundi 6 décembre 2010 16:14:42
Exemple de READC dans un source RPGILE (iSeries)


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

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

12 visiteurs actuellement sur le site