Renommer objet et membre source

BoTTom | 
             CMD        PROMPT('Renommer objet et source')
             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(7) RSTD(*YES) +
                          VALUES(*ALRTBL *AUTL *BNDDIR *CFGL +
                          *CHTFMT *CLD *CLS *CMD *CNNL *COSD *CSI +
                          *CSPMAP *CSPTBL *CTLD *DEVD *DOC *DTAARA +
                          *DTAQ *EDTD *FCT *FILE *FLR *FNTRSC +
                          *FORMDF *FTR *GSS *JOBD *JOBQ *JOBSCD +
                          *JRN *JRNRCV *LIB *LIND *MENU *MODD +
                          *MODULE *MSGF *MSGQ *NODL *NWID *OUTQ +
                          *OVL *PAGDFN *PAGSEG *PDG *PGM *PNLGRP +
                          *PRDAVL *PRDDFN *PRDLOD *QMFORM *QMQRY +
                          *QRYDFN *RCT *SBSD *SCHIDX *SPADCT +
                          *SQLPKG *SRVPGM *SSND *S36 *TBL *USRIDX +
                          *USRPRF *USRQ *USRSPC *WSCST) MIN(1) +
                          PROMPT('Type d''objet')
             PARM       KWD(TEXT) TYPE(*CHAR) LEN(50) CONSTANT(' ')
             PARM       KWD(NEWNAM) TYPE(*NAME) MIN(1) +
                          PROMPT('Nouveau nom')
             PARM       KWD(COD) TYPE(*CHAR) LEN(1) CONSTANT(R)




©AF400