CMD        PROMPT(DUPSPOOL)
             PARM       KWD(SPLF) TYPE(*NAME) MIN(1) PROMPT('Fichier +
                          spool')
             PARM       KWD(EDIT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          VALUES(*YES *NO) MIN(1) PROMPT('Editer +
                          les données du spool ?')
             PARM       KWD(JOB) TYPE(Q1) DFT(*) SNGVAL((*)) +
                          PROMPT('Du travail')
             PARM       KWD(SPLNBR) TYPE(*CHAR) LEN(5) DFT(*ONLY) +
                          SPCVAL((*ONLY) (*LAST)) PROMPT('N° de spool')
             PARM       KWD(SPLFNAME) TYPE(*NAME) DFT(*SAME) +
                          SPCVAL((*SAME)) PROMPT('Nouveau nom')
             PARM       KWD(CPI) TYPE(*CHAR) LEN(2) RSTD(*YES) +
                          DFT(*SAME) VALUES(10 15) SPCVAL((*SAME +
                          *)) PROMPT('Car. au pouce')
             PARM       KWD(LPI) TYPE(*CHAR) LEN(1) RSTD(*YES) +
                          DFT(*SAME) VALUES(6 8) SPCVAL((*SAME *)) +
                          PROMPT('Lignes au pouce')
             PARM       KWD(LIN) TYPE(*CHAR) LEN(2) RSTD(*YES) +
                          DFT(*SAME) VALUES(66 88) SPCVAL((*SAME +
                          *)) PROMPT('Lignes par page')
             PARM       KWD(COL) TYPE(*CHAR) LEN(3) RSTD(*YES) +
                          DFT(*SAME) VALUES(132 198) SPCVAL((*SAME +
                          *)) PROMPT('Colonnes par ligne')
             PARM       KWD(OUTQ) TYPE(Q2) DFT(*SAME) SNGVAL((*JOB) +
                          (*SAME)) PROMPT('File d''attente')
             PARM       KWD(HOLD) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*SAME) VALUES(*YES *NO) SPCVAL((*SAME +
                          *)) PROMPT('Nouveau spool retenu')
             PARM       KWD(SAVE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*SAME) VALUES(*YES *NO) SPCVAL((*SAME +
                          *)) PROMPT('Nouveau spool sauvegardé')
             PARM       KWD(USRDTA) TYPE(*CHAR) LEN(10) DFT(*SAME) +
                          SPCVAL((*BLANK '          ') (*SAME *)) +
                          PROMPT('Donnée utilisateur')
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) MIN(1) PROMPT('Utilisateur')
             QUAL       TYPE(*CHAR) LEN(6) MIN(1) PROMPT('Numéro')
 Q2:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
                          (*CURLIB)) PROMPT('Bibliothèque')