CMD        PROMPT('Dup table SQL')
             PARM       KWD(FICHIER) TYPE(Q1) MIN(1) PROMPT('Fichier +
                          OS/400')
 Q1:         QUAL       TYPE(*NAME) MIN(1) CHOICE('NOM DE FICHIER')
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
                          (*CURLIB)) PROMPT('Bibliotheque')
             PARM       KWD(TABLE) TYPE(Q2) MIN(1) PROMPT('Table SQL +
                          à créer')
 Q2:         QUAL       TYPE(*NAME) MIN(1) CHOICE('NOM DE TABLE')
             QUAL       TYPE(*NAME) DFT(*CURLIB) SPCVAL((*CURLIB)) +
                          PROMPT('Bibliotheque')
             PARM       KWD(DATA) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          VALUES(*YES *NO) MIN(1) PROMPT('Copie des +
                          données')