Afficher un format écran dans un CL

     /*=================================================*/ 
     /* 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