CMD PROMPT('Donne taille d''une bibli')
PARM KWD(COD) TYPE(*CHAR) LEN(1) CONSTANT(D)
PARM KWD(LIB) TYPE(*NAME) MIN(1) +
PROMPT('Bibliothèque')
PARM KWD(RTNSIZ) TYPE(*DEC) LEN(15 0) CONSTANT(0)
/* type d'objet (normalement à jour V3R10) */
PARM KWD(OBJTYPE) TYPE(*CHAR) LEN(7) RSTD(*YES) +
DFT(*ALL) VALUES(*ALRTBL *AUTL *BNDDIR +
*CFGL *CHTFMT *CLD *CLS *CMD *CNNL *COSD +
*CRQD *CSI *CSPMAP *CSPTBL *CTLD *DEVD +
*DOC *DTAARA *DTAQ *EDTD *EXITRG *FCT +
*FILE *FLR *FNTRSC *FORMDF *FTR *GSS +
*JOBD *JOBQ *JOBSCD *JRN *JRNRCV *LIB +
*LIND *MENU *MODD *MODULE *MSGF *MSGQ +
*NODL *NWID *NWSD *OUTQ *OVL *PAGDFN +
*PAGSEG *PDG *PGM *PNLGRP *PRDAVL *PRDDFN +
*PRDLOD *QMFORM *QMQRY *QRYDFN *RCT *SBSD +
*SCHIDX *SPADCT *SQLPKG *SRVPGM *SRVSTG +
*SSND *S36 *TBL *USRIDX *USRPRF *USRQ +
*USRSPC *WSCST) SPCVAL((*ALL)) +
PROMPT('Type d''objet')
| 
| 
