CMD        PROMPT('Affichage messages stagiaire')
             PARM       KWD(MSG) TYPE(*CHAR) LEN(80) MIN(1) +
                          EXPR(*YES) PROMPT(MESSAGE)
             PARM       KWD(LIGNE) TYPE(*CHAR) LEN(2) DFT(01) +
                          RANGE(01 24) PROMPT('N° de ligne')
             PARM       KWD(COLONNE) TYPE(*CHAR) LEN(2) DFT(02) +
                          RANGE(01 80) PROMPT('N° de colonne')
             PARM       KWD(ATTRIBUT) TYPE(*CHAR) LEN(2) RSTD(*YES) +
                          DFT(*NONE) VALUES('  ' RI HI UL BL CS) +
                          SNGVAL((*NONE '  ')) MAX(5) PROMPT(ATTRIBUT)
             PARM       KWD(ARRET) TYPE(*CHAR) LEN(1) RSTD(*YES) +
                          DFT(*YES) SPCVAL((*YES O) (*NO N)) +
                          PROMPT('Attendre la touche <ENTREE>')
             PARM       KWD(WAIT) TYPE(*CHAR) LEN(1) RSTD(*YES) +
                          DFT(*YES) SPCVAL((*YES O) (*NO N)) +
                          PMTCTL(P1) PROMPT('Temporiser l''affichage')
             PARM       KWD(NBS) TYPE(*CHAR) LEN(2) DFT(01) RANGE(01 +
                          60) PMTCTL(P2) PROMPT('Nombre de secondes')
 P1:         PMTCTL     CTL(ARRET) COND((*EQ 'N'))
 P2:         PMTCTL     CTL(ARRET) COND((*EQ 'N'))
             PMTCTL     CTL(WAIT) COND((*EQ 'O'))