CMD        PROMPT('Retrouve taille d''une bibli')
             PARM       KWD(COD) TYPE(*CHAR) LEN(1) CONSTANT(R)
             PARM       KWD(LIB) TYPE(*NAME) MIN(1) +
                          PROMPT('Bibliothèque')
             PARM       KWD(RTNSIZ) TYPE(*DEC) LEN(15 0) +
                          RTNVAL(*YES) MIN(1) PROMPT('Variable pour +
                          taille (15 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')