/*                                                                   */
/* CPP = API QWSSETWS QUI ATTEND LES PARAMETRES SUIVANT :            */
/*                                                                   */
/* ==> UNIQUEMENT INTERACTIF (ALLOW(*IPGM *INTERACT *EXEC).)         */
/*                                                                   */
             CMD        PROMPT('Modifier mémorisation clavier')
             PARM       KWD(ETAT) TYPE(*CHAR) RSTD(*YES) +
                          SPCVAL((*OFF '0') (*ON '1') (*ATTN '2')) +
                          MIN(1) PROMPT('*ON,*OFF ou *ON sauf ATTN')
             PARM       KWD(DEVICE) TYPE(*NAME) DFT(*REQUESTER) +
                          SPCVAL((*REQUESTER)) PROMPT('Ecran')