/*------------------------------------------------------------------*/
/*                                                                  */
/*  Essai de pgm avec programme d'Overide                           */
/*     Les paramètres affiché avant l'overide KEYPARM(*yes)         */
/*  a compiler avec le parametre PMTOVRPGM(bib/CMD4P1)              */
/*------------------------------------------------------------------*/
/*                                                                  */
             CMD        PROMPT('Modification du prop. d''un obj')
/* Bibliothèque/OBJET                                               */
             PARM       KWD(OBJ) TYPE(QUAL1) KEYPARM(*YES) MIN(1) +
                          PROMPT('OBJET')
 QUAL1:      QUAL       TYPE(*NAME) LEN(10)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) +
                          PROMPT('Bibliothèque')
/* TYPE                                                             */
             PARM       KWD(TYPE) TYPE(*CHAR) LEN(10) MIN(1) +
                          KEYPARM(*YES) PROMPT('TYPE')
/* PROPRIETAIRE                                                     */
             PARM       KWD(NEWOWN) TYPE(*NAME) LEN(10) MIN(1) +
                          PROMPT('NOUVEAU PROP.')