CMD        PROMPT('Soumettre commande à distance')
             PARM       KWD(CMD) TYPE(*CMDSTR) LEN(2000) MIN(1) +
                          PROMPT('Commande à exécuter')
             PARM       KWD(DDMFILE) TYPE(LAB) SNGVAL((*RMTLOCNAME)) +
                          MIN(0) PROMPT('Fichier DDM')
             PARM       KWD(RMTLOCNAME) TYPE(*NAME) PROMPT('Lieu +
                          éloigné')
 LAB:        QUAL       TYPE(*NAME) LEN(10) MIN(1)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) +
                          PROMPT('Bibliothèque')
             PARM       KWD(DDMCNV) TYPE(*CHAR) LEN(5) RSTD(*YES) +
                          DFT(*SAME) VALUES(*SAME *DROP *KEEP) +
                          MIN(0) PMTCTL(*PMTRQS) +
                          PROMPT('Conversation DDM')
             PARM       KWD(CMDCTL) TYPE(*CHAR) LEN(1) RSTD(*YES) +
                          DFT(O) VALUES(O N) MIN(0) PMTCTL(*PMTRQS) +
                          PROMPT('Controle syntaxe commande')
             DEP        CTL(&DDMFILE *EQ '*RMTLOCNAME') +
                          PARM((RMTLOCNAME))