CMD        PROMPT('Copier contenue DTAARA')
             PARM       KWD(FROMDTAARA) TYPE(LAB1) MIN(1) +
                          PROMPT('Depuis la DTAARA')
 LAB1:       QUAL       TYPE(*NAME) LEN(10) SPCVAL((*LDA) (*GDA) +
                          (*PDA)) MIN(1)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) +
                          PROMPT('Bibliothèque')
             PARM       KWD(TODTAARA) TYPE(LAB2) MIN(1) PROMPT('Vers +
                          la DTAARA')
 LAB2:       QUAL       TYPE(*NAME) LEN(10) SPCVAL((*LDA) (*GDA) +
                          (*PDA)) MIN(1)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) +
                          PROMPT('Bibliothèque')
             PARM       KWD(CRTDTAARA) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*NO) VALUES(*NO *YES) PMTCTL(*PMTRQS) +
                          PROMPT('Création de la dtaara')
             DEP        CTL(&TODTAARA *EQ '*GDA') PARM((&CRTDTAARA *NE +
                          '*YES'))
             DEP        CTL(&TODTAARA *EQ '*LDA') PARM((&CRTDTAARA *NE +
                          '*YES'))
             DEP        CTL(&TODTAARA *EQ '*PDA') PARM((&CRTDTAARA *NE +
                          '*YES'))
             DEP        CTL(TODTAARA) PARM((&FROMDTAARA *NE &TODTAARA))
             DEP        CTL(FROMDTAARA) PARM((&FROMDTAARA *NE +
                          &TODTAARA))