CMD        PROMPT('Enlever une entrée à *VLDL')
             PARM       KWD(VLDL) TYPE(Q1) MIN(1) PROMPT('Liste de +
                          validation')
             PARM       KWD(ENTRY) TYPE(*CHAR) LEN(20) MIN(1) +
                          PROMPT('Entrée')
 
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
                          (*CURLIB)) PROMPT('Bibliothèque')