CMD        PROMPT('change prop. de tous les obj.')
/* BIBLIOTHÈQUE À TRAITER */
             PARM       KWD(LIB) TYPE(*NAME) PROMPT(BIBLIOTHEQUE)
/* NOUVEAU PROPRIÉTAIRE */
             PARM       KWD(NEWOWN) TYPE(*NAME) DFT(*CURRENT) +
                          SPCVAL((*CURRENT)) PROMPT('nouveau +
                          propriétaire')