| 
/*********************************************************************/
/* */
/* COMPIL PGM DE SERVICE ET AJOUT DANS RÉPERTOIRE DE LIAGE */
/* (merci Ph.)*/
/*********************************************************************/
CMD PROMPT('Ajout programme de Service')
PARM KWD(SRVPGM) TYPE(QUAL0) MIN(1) +
PROMPT('Programme de service')
PARM KWD(SRCFILE) TYPE(QUAL2) MIN(1) +
PROMPT('Fichier source')
PARM KWD(SRCMBR) TYPE(*NAME) DFT(*SRVPGM) +
SPCVAL((*SRVPGM)) EXPR(*YES) +
PROMPT('Membre source')
PARM KWD(BNDDIR) TYPE(QUAL3) DFT(*NONE) +
SNGVAL((*NONE)) PROMPT('Répertoire de liage')
PARM KWD(OPTION) TYPE(*CHAR) LEN(10) RSTD(*YES) +
DFT(*NOEVENTF) VALUES(*EVENTF *NOEVENTF) +
PROMPT('Option de compilation')
QUAL0: QUAL TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) DFT(*CURLIB) +
SPCVAL((*CURLIB)) EXPR(*YES) +
PROMPT('Bibliothèque')
|
|
QUAL1: QUAL TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) +
SPCVAL((*CURLIB)) EXPR(*YES) +
PROMPT('Bibliothèque')
QUAL2: QUAL TYPE(*NAME) LEN(10) DFT(QRPGLESRC) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) +
SPCVAL((*LIBL)) EXPR(*YES) +
PROMPT('Bibliothèque')
QUAL3: QUAL TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) SPCVAL((*LIBL)) +
EXPR(*YES) PROMPT('Bibliothèque')
|
