/*------------------------------------------------------------------*/
/*                                                                  */
/*  Essai de pgm avec programme de Controle d'affichage paramètre   */
/*                 PMTCTLPGM(Bib/Nompgm)                            */
/*                                                                  */
/*------------------------------------------------------------------*/
/*                                                                  */
             CMD        PROMPT('Essai PMTCTLPGM')
/*    Nom du fichier                                                */
             PARM       KWD(FIC) TYPE(*CHAR) LEN(10) MIN(1)       +
                          PMTCTLPGM(CMD3P1) PROMPT('Nom du fichier')
/*    Paramétre a afficher si controle non vérifié                  */
/*    Nom de la bibliothèque si fichier non trouvé dans la liste    */
             PARM       KWD(BIB) TYPE(*CHAR) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) PMTCTL(EXI) +
                          PROMPT('Précisez la bibliothèque')
/*    Controle de la valeur retournée (* si inexistant)             */
 EXI:        PMTCTL     CTL(FIC) COND((*EQ *))