CMD        PROMPT('Création table SQL')
             PARM       KWD(TABLE) TYPE(Q1) MIN(1) PROMPT('Table sql')
 Q1:         QUAL       TYPE(*NAME) MIN(1) CHOICE('NOM DE TABLE')
             QUAL       TYPE(*NAME) DFT(*CURLIB) SPCVAL((*CURLIB)) +
                          PROMPT('Bibliotheque')
             PARM       KWD(ZONE) TYPE(E1) MIN(1) MAX(25) +
                          PROMPT('Définition de zone')
 E1:         ELEM       TYPE(*NAME) MIN(1) PROMPT('Nom de zone')
             ELEM       TYPE(*CHAR) LEN(8) RSTD(*YES) SPCVAL((*CHAR +
                          CHAR) (*ZONED NUMERIC) (*DEC DEC) (*BIN2 +
                          SMALLINT) (*BIN4 INTEGER) (*FLOAT FLOAT) +
                          (*REAL REAL)) MIN(1) PROMPT('Type de zone')
             ELEM       TYPE(*DEC) LEN(5 0) MIN(1) PROMPT('Lg logique')
             ELEM       TYPE(*DEC) LEN(1 0) PROMPT('Nb de décimales')
             ELEM       TYPE(*CHAR) LEN(4) RSTD(*YES) DFT(*YES) +
                          VALUES(*YES *NO) PROMPT('Valeur par défaut')
             PARM       KWD(TEXT) TYPE(*CHAR) LEN(50) DFT(*SQLTXT) +
                          PROMPT('Texte associé')
             PARM       KWD(AUT) TYPE(*CHAR) LEN(8) RSTD(*YES) +
                          DFT(*USE) VALUES(*ALL *USE *PUBLIC +
                          *EXCLUDE) PROMPT('Droits d''usage')