/********************************************************************/
/*                                                                  */
/* A COMPILER PAR :                                                 */
/*                                                                  */
/*    CRTCMD CMD(AF4TOOL/RTVSQLSRC) PGM(AF4TOOL/RTVSQLSRCP)          */
/*                                                                  */
/********************************************************************/
             CMD        PROMPT('Retrouver source SQL')
             PARM       KWD(FILE) TYPE(LBL1) MIN(1) PROMPT('Nom +
                          (long) du fichier')
             PARM       KWD(SRCFILE) TYPE(LBL2) PROMPT('Nom du +
                          fichier source')
             PARM       KWD(SRCMBR) TYPE(*NAME) LEN(10) DFT(*FILE) +
                          SPCVAL((*FILE)) PROMPT('Nom du membre +
                          source')
 LBL1:       QUAL       TYPE(*NAME) LEN(128) MIN(1)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) SPCVAL((*LIBL) +
                          (*CURLIB)) PROMPT('Bibliothèque')
 LBL2:       QUAL       TYPE(*NAME) LEN(10) DFT(QDDSSRC)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) SPCVAL((*LIBL) +
                          (*CURLIB)) PROMPT('Bibliothèque')