/********************************************************************/
/* */
/* A COMPILER PAR : */
/* */
/* CRTCMD CMD(?????/RTVPFNAM) PGM(?????/RTVPFNAMG) */
/* ALLOW(*BPGM *IPGM *BMOD *IMOD) */
/* */
/********************************************************************/
CMD PROMPT('Retrouver nom court DBF')
PARM KWD(NOM) TYPE(*NAME) LEN(128) EXPR(*YES) +
PROMPT('Nom long')
PARM KWD(LIB) TYPE(*NAME) DFT(*LIBL) +
SPCVAL((*LIBL) (*CURLIB)) +
PROMPT('Bibliothèque')
PARM KWD(NOM10) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
PROMPT('Variable retour. . . .CHAR(10)')
|