CMD        PROMPT('Création d''un env. pour LODRUN')
             PARM       KWD(PGM) TYPE(Q1) MIN(1) PROMPT('Programme +
                          pour QTEMP/QINSTAPP.')
             PARM       KWD(DEV) TYPE(*NAME) DFT(TAP01) +
                          PROMPT('Unitée de sauvegarde')
             PARM       KWD(SEQNBR) TYPE(*DEC) LEN(2 0) DFT(*END) +
                          SPCVAL((*END 0)) PROMPT('N° de séquence')
             PARM       KWD(DTACPR) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*DEV) VALUES(*DEV *YES *NO) +
                          PROMPT('Compression des données')
             PARM       KWD(CMD) TYPE(*CMDSTR) LEN(512) +
                          PROMPT('Commande à executer.')
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliothèque.')