/*                                                     */
 /* CETTE COMMANDE à POUR CPP DIRECTEMENT L'API QLIRNMO */
 /*                                                     */
             CMD        PROMPT('déplace/renomme/remplace')
             PARM       KWD(FROMOBJ) TYPE(Q1) MIN(1) PROMPT(ORIGINE)
             PARM       KWD(OBJTYPE) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          VALUES(*ALRTBL *AUTL *BNDDIR *CFGL +
                          *CHTFMT *CLD *CLS *CMD *CNNL *COSD *CSI +
                          *CSPMAP *CSPTBL *CTLD *DEVD *DOC *DTAARA +
                          *DTAQ *EDTD *FCT *FILE *FLR *FNTRSC +
                          *FORMDF *FTR *GSS *JOBD *JOBQ *JOBSCD +
                          *JRN *JRNRCV *LIB *LIND *MENU *MODD +
                          *MODULE *MSGF *MSGQ *NODL *NWID *OUTQ +
                          *OVL *PAGDFN *PAGSEG *PDG *PGM *PNLGRP +
                          *PRDAVL *PRDDFN *PRDLOD *QMFORM *QMQRY +
                          *QRYDFN *RCT *SBSD *SCHIDX *SPADCT +
                          *SQLPKG *SRVPGM *SSND *S36 *TBL *USRIDX +
                          *USRPRF *USRQ *USRSPC *WSCST) MIN(1) +
                          PROMPT('Type d''objet')
             PARM       KWD(TOOBJ) TYPE(Q1) MIN(1) PROMPT(DESTINATION)
             PARM       KWD(REPLACE) TYPE(*LGL) RSTD(*YES) +
                          SPCVAL((*YES '1') (*NO '0')) MIN(1) +
                          PROMPT('Remplacement ?')
             PARM       KWD(CODERR) TYPE(*INT4) CONSTANT(0)
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
                          (*CURLIB)) PROMPT('Bibliothèque')