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

10 visiteurs actuellement sur le site