CMD        PROMPT('Informations USER INDEX')
             PARM       KWD(USRIDX) TYPE(Q1) MIN(1) PROMPT('User +
                          Index')
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*CURLIB) +
                          (*LIBL)) PROMPT('Bibliothèque')