CMD        PROMPT('Envoi ecran de veille')
             PARM       KWD(JOB) TYPE(QUAL1)                    +
                          MIN(1) PROMPT('Travail à mettre en veille')
             PARM       KWD(MISEABLANC) TYPE(*CHAR) LEN(4) +
                          RSTD(*YES) DFT(*NO) VALUES(*NO *YES) +
                          PROMPT('Effacement de l''écran')
 QUAL1:      QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) MIN(0) EXPR(*YES) +
                          PROMPT('Utilisateur')
             QUAL       TYPE(*CHAR) LEN(6) RANGE(000000 999999) +
                          MIN(0) FULL(*YES) PROMPT('Numéro')