CMD        PROMPT('Réviser contenue DTAARA')
             PARM       KWD(DTAARA) TYPE(Q1) SNGVAL((*LDA) (*GDA) +
                          (*PDA)) MIN(1) PROMPT('Nom de la DTAARA')
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) +
                          PROMPT('Bibliothèque')