Forum As400
8 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 - Test si fichier vide (iSeries)

 

<<< Retour à la liste des tips

 

1 - Tester le nombre d'enregistrements dans un fichier. Cet exemple est développé en CL sur iSeries

 

Début du code
            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

 

Fin du code
Capture d'écran iSeries

 

  Copyright © Christophe Delage   2000 - 2017   administration