CMD        PROMPT('Extraire un source PF')
             PARM       KWD(FILE) TYPE(LBL1) MIN(1) PROMPT('Nom du +
                          fichier physique')
             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')
             PARM       KWD(MBROPT) TYPE(*CHAR) LEN(8) RSTD(*YES) +
                          DFT(*REPLACE) VALUES(*REPLACE *ADD) +
                          PROMPT('Option de membre')
 LBL1:       QUAL       TYPE(*NAME) LEN(10) 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')