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

Recherche avancée

Message avec Reply dans CLP

Envoyé par admin 


Message avec Reply dans CLP
mercredi 9 février 2011 13:21:10
PGM                                                        

             DCL        VAR(&ECRAN) TYPE(*CHAR) LEN(10)                   
             DCL        VAR(&CLE1) TYPE(*CHAR) LEN(4)                   
             DCL        VAR(&REPONSE) TYPE(*CHAR) LEN(3) VALUE('NON')   

             RTVJOBA    JOB(&ECRAN)                                       
                                                                        
             SNDPGMMSG  MSG('Voulez vous vraiment effectuer cette action  ?') TOMSGQ(&ECRAN) +        
                          MSGTYPE(*INQ) KEYVAR(&CLE1)                   

             RCVMSG     MSGQ(&ECRAN) MSGTYPE(*RPY) WAIT(*MAX) RMV(*NO) +  
                          KEYVAR(&CLE1) MSG(&REPONSE)                   

             IF         COND(&REPONSE *NE 'OUI') THEN(DO)               
             SNDBRKMSG  MSG('Action annulée !!') TOMSGQ(&ECRAN)  
                        GOTO CMDLBL(FIN)                                
                        ENDDO                                           

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