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') |