/*------------------------------------------------------------------*/
/*                                                                  */
/*  Essai de pgm avec programme de choix paramètre CHOICE(*PGM)     */
/*              et CHOICEPGM(Bib/Nompgm)                            */
/*                                                                  */
/*------------------------------------------------------------------*/
/*                                                                  */
             CMD        PROMPT('Essai CHOICEPGM')
/*  Nom de fichier                                                  */
             PARM       KWD(FILE) TYPE(*CHAR) LEN(10) MIN(1) +
                          CHOICE(*PGM) CHOICEPGM(*LIBL/CMD2P1) +
                          PROMPT('Nom du fichier')