Tester nombre enregistrements dans un fichier (Os400 CLP)
jeudi 2 décembre 2010 10:37:46
Bonjour à tous,

Une portion de code très demandé. Tester, depuis un programme CL le nombre d'enregistrements dans un fichier.
Si vous avez de votre coté un autre code, n'hésitez pas à nous en faire profiter.


DCL        VAR(&NBENREG) TYPE(*DEC) LEN(10 0)    
            DCL        VAR(&NBREC) TYPE(*CHAR) LEN(10)       
                                                             
  /* EXTRACTION NOMBRE D'ENREGISTREMENTS               */    
  /* SI AUCUN RECORD ... FIN DE LA CHAINE              */    
            RTVMBRD    FILE(BIB/FICHIER) NBRCURRCD(&NBENREG) 
            CHGVAR     VAR(&NBREC) VALUE(&NBENREG)           
            IF         COND(&NBENREG *EQ 0) THEN(GOTO +      
                         CMDLBL(NORECORD))                   
                                                             
NORECORD:   ENDPGM

Bien cordialement



Modifié 1 fois. Dernière modification le 02/12/10 10:39 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

8 visiteurs actuellement sur le site