/*                                                     */
 /* CETTE COMMANDE à POUR CPP DIRECTEMENT L'API QLICHGLL*/
 /*                                                     */
             CMD        PROMPT('Chg CURLIB et PRDLIB')
             PARM       KWD(CURLIB) TYPE(*NAME) DFT(*SAME) +
                          SPCVAL((*SAME) (*CRTDFT)) +
                          PROMPT('Bibliothèque en cours')
             PARM       KWD(PRDLIB1) TYPE(*NAME) DFT(*SAME) +
                          SPCVAL((*SAME) (*NONE)) +
                          PROMPT('Bibliothèque produit 1')
             PARM       KWD(PRDLIB2) TYPE(*NAME) DFT(*SAME) +
                          SPCVAL((*SAME) (*NONE)) +
                          PROMPT('Bibliothèque produit 2')
 /* CONSTANTES POUR COMPATIBILTé AVEC API */
             PARM       KWD(USRLIBL) TYPE(*CHAR) LEN(11) +
                          CONSTANT('           ')
             PARM       KWD(NBUSRLIBL) TYPE(*INT4) CONSTANT(-1)
             PARM       KWD(CODERR) TYPE(*INT4) CONSTANT(0)