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 - Affichage d'un fichier écran dans un CL(iSeries)

 

<<< Retour à la liste des tips

 

1 - Affichage d'un fichier écran dans un CL(iSeries). Cet exemple est développé en CL sur iSeries

 

Début du code

     /*=================================================*/ 
     /* AFFICHAGE D'UN ECRAN DANS UN CL                 */ 
     /*=================================================*/ 
                                                           
     /*  DECLARATION DU FICHIER  ECRAN                  */ 
             DCLF       FILE(FICHECRAN)                    
                                                           
  AFFICH:                                                  
     /* AFFICHAGE DU FORMAT  LECTURE/ECRITURE           */ 
             SNDRCVF    RCDFMT(FORMAT)                     
                                                           
/*  FIN DE TRAVAIL PAR F3                               */ 
             IF         COND(&IN03) THEN(DO)               
             GOTO       FIN                                
             ENDDO                                         
/*  RETOUR AFFICHAGE                                    */ 
             GOTO       CMDLBL(AFFICH)                     
                                                           
 FIN:        ENDPGM                                        

 

Fin du code
Capture d'écran iSeries

 

  Copyright © Christophe Delage   2000 - 2017   administration