CMD        PROMPT('Ajout d''une entrée USER INDEX')
             PARM       KWD(USRIDX) TYPE(Q1) MIN(1) PROMPT('User +
                          Index')
             PARM       KWD(INSERTYPE) TYPE(*INT4) RSTD(*YES) +
                          SPCVAL((*UNIQUE 1) (*RPLKEY 2) (*NORPLKEY +
                          3)) MIN(1) PROMPT('Type d''ajout')
             PARM       KWD(ENTRY) TYPE(*CHAR) LEN(2000) MIN(1) +
                          VARY(*YES) PROMPT('Entrée à ajouter')
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*CURLIB) SPCVAL((*CURLIB)) +
                          PROMPT('Bibliothèque')