/* */
/* CETTE COMMANDE À POUR CPP L'API QUSCRTUI */
/* */
/* ---------------------------------------- */
/* */
CMD PROMPT('Création d''un USER INDEX')
PARM KWD(USRIDX) TYPE(Q1) MIN(1) PROMPT('User +
Index')
PARM KWD(ATTRIBUT) TYPE(*NAME) MIN(1) +
PROMPT(ATTRIBUT)
PARM KWD(ENTRYTYPE) TYPE(*CHAR) LEN(1) RSTD(*YES) +
SPCVAL((*FIXED F) (*VARY V)) MIN(1) +
PROMPT('Entrées à lg fixe ou variable')
PARM KWD(ENTRYLEN) TYPE(*INT4) RANGE(1 2000) +
SPCVAL((*DFT120 0) (*DFT2000 -1)) MIN(1) +
PROMPT('Lg d''une entrée')
PARM KWD(KEYED) TYPE(*CHAR) LEN(1) RSTD(*YES) +
SPCVAL((*NO '0') (*YES '1')) MIN(1) +
PROMPT('Index avec clé ?')
PARM KWD(KEYLEN) TYPE(*INT4) DFT(0) RANGE(0 2000) +
PROMPT('Lg de la clé')
PARM KWD(FORCE) TYPE(*CHAR) LEN(1) RSTD(*YES) +
DFT(*NO) SPCVAL((*NO '0') (*YES '1')) +
PROMPT('Forcer écriture sur disque')
PARM KWD(OPTIMIZE) TYPE(*CHAR) LEN(1) RSTD(*YES) +
DFT(*RANDOM) SPCVAL((*RANDOM '0') +
(*SEQUENTIAL '1')) PROMPT('Optimisé pour +
quelle lecture')
PARM KWD(AUT) TYPE(*NAME) RSTD(*YES) +
DFT(*LIBCRTAUT) SPCVAL((*LIBCRTAUT) +
(*ALL) (*CHANGE) (*EXCLUDE) (*USE))
PARM KWD(TEXT) TYPE(*CHAR) LEN(50) DFT(*BLANK) +
SPCVAL((*BLANK ' ')) PROMPT('Texte +
descriptif')
Q1: QUAL TYPE(*NAME) MIN(1)
QUAL TYPE(*NAME) DFT(*CURLIB) SPCVAL((*CURLIB)) +
PROMPT('Bibliothèque')
| 
| 
