CMD        PROMPT('Chgt de profil.')
             PARM       KWD(USER) TYPE(*NAME) LEN(10) MIN(1) +
                          PROMPT(UTILISATEUR)
             PARM       KWD(PASSWORD) TYPE(*CHAR) LEN(512) +
                          DFT(*NOPWD) SPCVAL((*NOPWD)) +
                          DSPINPUT(*NO) PROMPT('Mot de passe du +
                          profil')
             PARM       KWD(ADOPT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*NO) VALUES(*YES *NO) +
                          PMTCTL(*PMTRQS) PROMPT('adoption de droits')
             PARM       KWD(RQS) TYPE(*CMDSTR) LEN(50) CHOICE('Blanc +
                          = pgm/menu initial') PMTCTL(*PMTRQS) +
                          PROMPT('Commande à éxecuter')