/*                                                                   */
/* ATTENTION: CE PGM EST LIVRE A TITRE D'EXEMPLE.                    */
/*                                                                   */
/* IL N'A PAS ETE TESTE DANS UN ENVIRONNEMENT NORMAL D'ENTREPRISE.   */
/*            L'UTILISATION ET LA MISE AU POINT EST DONC SOUS        */
/*            VOTRE RESPONSABILITE.                                  */
/*           ----------------------                                  */
             CMD        PROMPT('recreer ref. d''un fichier')
             PARM       KWD(FIC) TYPE(LBL1) MIN(1) PROMPT('Fichier +
                          base de donnée')
 LBL1:       QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliothèque')
             PARM       KWD(EXEC) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*YES) VALUES(*YES *NO) +
                          PROMPT('Exécution de DSPPGMREF')
             PARM       KWD(INFILE) TYPE(LBL2) PMTCTL(LBL3) +
                          PROMPT('Fichier à lire')
 LBL2:       QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliothèque')
             PARM       KWD(DBR) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*NO) VALUES(*YES *NO) PROMPT('Tenir +
                          compte des DBR')
 LBL3:       PMTCTL     CTL(EXEC) COND((*EQ *NO))