CMD        PROMPT('Affichage membre fichier BD')
             PARM       KWD(FICHIER) TYPE(Q1) MIN(1) PROMPT('Fichier +
                          BD')
             PARM       KWD(MEMBRE) TYPE(*NAME) DFT(*FIRST) +
                          SPCVAL((*FIRST)) CHOICE('Membre du +
                          fichier') PROMPT('Nom du membre')
             PARM       KWD(SAVF) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*NO) VALUES(*NO *YES) PROMPT('Fichier +
                          de sauvegarde')
 Q1:         QUAL       TYPE(*NAME) MIN(1) CHOICE('Fichier')
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliotheque')