/********************************************************************/
/*                                                                  */
/* A COMPILER PAR :                                                 */
/*                                                                  */
/*    CRTCMD CMD(AF4TOOL/RTVPFNAM) PGM(AF4TOOL/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)')