CMD        PROMPT('Affichage séq. de tri')
             PARM       KWD(SRTSEQ) TYPE(Q1) SNGVAL((*JOB) +
                          (*LANGIDUNQ) (*LANGIDSHR) (*HEX)) MIN(1) +
                          PROMPT('Séquence de tri')
             PARM       KWD(LANGID) TYPE(*CHAR) LEN(10) DFT(*JOB) +
                          SPCVAL((*JOB)) PROMPT(LANGAGE)
             PARM       KWD(CCSID) TYPE(*INT4) DFT(*JOB) +
                          SPCVAL((*JOB 0)) PROMPT(CCSID)
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliothèque')