CMD PROMPT('Modifier objet via API')
PARM KWD(OBJ) TYPE(Q1) MIN(1) PROMPT('Nom d''objet')
Q1: QUAL TYPE(*NAME) MIN(1)
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
PROMPT('Bibliothèque')
PARM KWD(OBJTYPE) TYPE(*CHAR) LEN(10) RSTD(*YES) +
VALUES(*ALRTBL *AUTL *CFGL *CHTFMT *CLD +
*CLS *CMD *COSD *CSPMAP *CSPTBL *CTLD +
*DEVD *DOC *DTAARA *DTAQ *EDTD *FCT *FILE +
*FLR *FNTRSC *FORMDF *GSS *JOBD *JOBQ +
*JRN *JRNRCV *LIB *LIND *MENU *MODD *MSGF +
*MSGQ *OUTQ *OVL *PAGSEG *PGM *PNLGRP +
*PRDDFN *QRYDFN *RCT *SBSD *SCHIDX +
*SPADCT *SSND *S36 *TBL *USRSPC *USRPRF) +
MIN(1) PROMPT('Type d''objet')
PARM KWD(SOURCE) TYPE(E1) DFT(*SAME) +
SNGVAL((*SAME)) PROMPT('Coordonnées +
source')
E1: ELEM TYPE(Q2) MIN(1) PROMPT('Fichier source')
ELEM TYPE(*NAME) MIN(1) PROMPT('Membre source')
Q2: QUAL TYPE(*NAME) MIN(1)
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
PROMPT('Bibliothèque')
PARM KWD(SRCCHGDATE) TYPE(*CHAR) LEN(13) +
DFT(*SAME) PROMPT('Date de modif du source')
PARM KWD(COMPIL) TYPE(E2) DFT(*SAME) +
SNGVAL((*SAME) (*BLANK)) +
PROMPT(COMPILATEUR)
E2: ELEM TYPE(*CHAR) LEN(7) MIN(1) PROMPT('Produit IBM +
(5738xxn)')
ELEM TYPE(*CHAR) LEN(6) MIN(1) PROMPT('Version +
(VxRyMz)')
PARM KWD(PRODUIT) TYPE(E3) DFT(*SAME) +
SNGVAL((*SAME) (*BLANK)) PROMPT(PRODUIT)
E3: ELEM TYPE(*CHAR) LEN(7) MIN(1) PROMPT('Produit +
(5738xxn)')
ELEM TYPE(*CHAR) LEN(6) MIN(1) PROMPT('Version +
(VxRyMz)')
PARM KWD(OPTION) TYPE(*CHAR) LEN(2) DFT(*SAME) +
RANGE('00' '99') SPCVAL((*BASE 00) (*SAME +
X'41')) PROMPT('Option de produit')
PARM KWD(ATTRIBUT) TYPE(*CHAR) LEN(10) DFT(*SAME) +
SPCVAL((*BLANK ' ') (*SAME X'41')) +
PROMPT('Attribut utilisateur')
| 
| 
| 