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

Recherche avancée

Afficher un format écran dans un CL

Envoyé par admin 


Afficher un format écran dans un CL
jeudi 2 décembre 2010 11:42:25
Bonjour à tous

Afficher un écran depuis un programme 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

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

11 visiteurs actuellement sur le site