CMD        PROMPT('Extraire infos/job')
             PARM       KWD(JOB) TYPE(Q1) DFT(*) SNGVAL((*)) +
                          PROMPT(TRAVAIL)
 Q1:         QUAL       TYPE(*NAME)
             QUAL       TYPE(*NAME) PROMPT(PROFIL)
             QUAL       TYPE(*CHAR) LEN(6) PROMPT('Numéro')
             PARM       KWD(STATUS) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
                          PROMPT('Variable pour STATUS (10c)')
             PARM       KWD(JOBTYP) TYPE(*CHAR) LEN(1) RTNVAL(*YES) +
                          PROMPT('Variable pour type de job (1c)')
             PARM       KWD(JOBSUBT) TYPE(*CHAR) LEN(1) RTNVAL(*YES) +
                          PROMPT('Variable pour sous type (1c)')
             PARM       KWD(SBS) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
                          PROMPT('Variable pour SBS (10c)')
             PARM       KWD(POOLID) TYPE(*DEC) LEN(2 0) RTNVAL(*YES) +
                          PROMPT('Variable pour ID pool (2 0)')
             PARM       KWD(NBAUXIO) TYPE(*DEC) LEN(5 0) +
                          RTNVAL(*YES) PROMPT('Variable nbr d''IO +
                          aux.(5 0)')
             PARM       KWD(NBTRANS) TYPE(*DEC) LEN(5 0) +
                          RTNVAL(*YES) PROMPT('Variable nbr de +
                          transact.(5 0)')
             PARM       KWD(RESPTIM) TYPE(*DEC) LEN(5 0) +
                          RTNVAL(*YES) PROMPT('Variable temps de +
                          réponse(5 0)')
             PARM       KWD(FONCTYP) TYPE(*CHAR) LEN(1) RTNVAL(*YES) +
                          PROMPT('Variable type de fonction (1c)')
             PARM       KWD(FONCNAM) TYPE(*CHAR) LEN(10) +
                          RTNVAL(*YES) PROMPT('Variable +
                          nom/fonction (10c)')
             PARM       KWD(ACTSTS) TYPE(*CHAR) LEN(4) RTNVAL(*YES) +
                          PROMPT('Variable status/actif (4c)')