CMD        PROMPT('Trier contenu d''un user space')
             PARM       KWD(USRSPC) TYPE(Q1) MIN(1) PROMPT('USER +
                          SPACE')
             PARM       KWD(KEYPOS) TYPE(*INT4) MIN(1) +
                          PROMPT('Position de début')
             PARM       KWD(KEYLEN) TYPE(*INT4) MIN(1) PROMPT('Lg +
                          physique')
             PARM       KWD(KEYTYP) TYPE(*INT4) DFT(*CHAR) +
                          SPCVAL((*BIN 0) (*ZONED 2) (*DEC 3) +
                          (*CHAR 4)) PROMPT('Type de zone')
             PARM       KWD(SRTSEQ) TYPE(Q2) DFT(*JOB) SNGVAL((*JOB) +
                          (*HEX)) PROMPT('Table de sequence')
             PARM       KWD(SRTORDER) TYPE(*INT4) RSTD(*YES) +
                          DFT(*ASCEND) SPCVAL((*ASCEND 1) (*DESCEND +
                          2)) PROMPT('Tri croissant/décroissant')
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliothèque')
 Q2:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliothèque')