CMD        PROMPT('Modifier propio d''un objet')
/******************************************************************/
/* PARAMETRES DE LA COMMANDE                                      */
/* OBJ ET OBJTYPE SONT DES PARAMETRES CLES                        */
/* NEWOWN DOIT ETRE RENVOYE AVEC LE NOM DU PROPRIO PAR LE "POP"   */
/******************************************************************/
             PARM       KWD(OBJ) TYPE(Q1) MIN(0) KEYPARM(*YES) +
                          PROMPT(OBJET)
             PARM       KWD(OBJTYPE) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          VALUES(*LIB *FILE *PGM *DTAARA) MIN(1) +
                          KEYPARM(*YES) PROMPT('Type d''objet')
             PARM       KWD(NEWOWN) TYPE(*NAME) MIN(1) +
                          PROMPT('Nouveau proriétaire')
/******************************************************************/
/* QUALIFICATEURS DU PARAMETRE OBJ                                */
/******************************************************************/
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT(BIBLIOTHEQUE)