/*                                                                   */
/* CETTE COMMANDE UTILISE DIRECTEMENT POUR CPP L'API QUSCRTUS.       */
/*                                               ============        */
/*                                                                   */
/*                                                                   */
             CMD        PROMPT('Création USER SPACE.')
             PARM       KWD(USRSPC) TYPE(Q1) MIN(1) PROMPT('User +
                          space')
             PARM       KWD(ATTRIBUT) TYPE(*SNAME) PROMPT('Attribut')
             PARM       KWD(SIZE) TYPE(*INT4) DFT(256) +
                          PROMPT('Taille initiale')
             PARM       KWD(VALUE) TYPE(*CHAR) LEN(1) PROMPT('Valeur +
                          initiale')
             PARM       KWD(AUT) TYPE(*NAME) DFT(*USE) SPCVAL((*USE) +
                          (*CHANGE) (*EXCLUDE) (*ALL) (*LIBCRTAUT)) +
                          PROMPT('Autorisations')
             PARM       KWD(TEXTE) TYPE(*CHAR) LEN(50) DFT(*NONE) +
                          SPCVAL((*NONE ' ')) PROMPT('Texte associé')
             PARM       KWD(REPLACE) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*YES) VALUES(*NO *YES) +
                          PROMPT('Remplacement')
             PARM       KWD(ERRCOD) TYPE(*INT4) CONSTANT(0)
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*CURLIB) SPCVAL((*CURLIB)) +
                          PROMPT('Bibliothèque.')