CMD        PROMPT('Extraction entrée USER INDEX')
             PARM       KWD(USRIDX) TYPE(Q1) MIN(1) PROMPT('User +
                          Index')
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*CURLIB) SPCVAL((*CURLIB)) +
                          PROMPT('Bibliothèque')
             PARM       KWD(SELECT) TYPE(E1) MIN(1) PROMPT('Critère +
                          de séléction')
 E1:         ELEM       TYPE(*INT4) RSTD(*YES) SPCVAL((*EQ 1) (*GT +
                          2) (*LT 3) (*GE 4) (*LE 5) (*FIRST 6) +
                          (*LAST 7) (*RANGE 8)) MIN(1) PROMPT('Test +
                          logique')
             ELEM       TYPE(*CHAR) LEN(2000) DFT(*NONE) +
                          SPCVAL((*NONE X'00')) MIN(0) EXPR(*YES) +
                          VARY(*YES) PROMPT('Valeur 1 (si <> +
                          *FIRST,*LAST)')
             ELEM       TYPE(*CHAR) LEN(2000) DFT(*NONE) +
                          SPCVAL((*NONE X'00')) MIN(0) EXPR(*YES) +
                          VARY(*YES) PROMPT('Valeur 2 (si *RANGE)')
             PARM       KWD(RTNVAL) TYPE(*CHAR) LEN(1) RTNVAL(*YES) +
                          MIN(1) VARY(*YES) PROMPT('variable en +
                          retour')