CMD        PROMPT('File transfert support')
             PARM       KWD(OPTION) TYPE(*CHAR) LEN(1) RSTD(*YES) +
                          SPCVAL((*SND S) (*RCV R)) MIN(1) +
                          PROMPT('Envoi ou réception')
             PARM       KWD(RMTS36) TYPE(*LGL) SPCVAL((*YES '1') +
                          (*NO '0')) MIN(1) CHOICE('*YES , *NO') +
                          PROMPT('Transfert avec un 36 ?')
             PARM       KWD(RMTLOCNAME) TYPE(*NAME) LEN(8) MIN(1) +
                          PROMPT('Nom de lieu éloigné')
             PARM       KWD(PASSWORD) TYPE(*NAME) MIN(1) +
                          DSPINPUT(*NO) PROMPT('Mot de passe')
             PARM       KWD(FROMFILE) TYPE(*NAME) MIN(1) +
                          PROMPT('Fichier d''origine')
             PARM       KWD(TOFILE) TYPE(*NAME) DFT(*FROMFILE) +
                          SPCVAL((*FROMFILE *)) PROMPT('Fichier de +
                          destination')
             PARM       KWD(REPLACE) TYPE(*CHAR) LEN(1) RSTD(*YES) +
                          DFT(*NO) SPCVAL((*NO N) (*YES Y)) +
                          PROMPT('Remplacement DU FICHIER')
 
 
             PARM       KWD(FROMLIB) TYPE(*NAME) DFT(*LIBL) +
                          SPCVAL((*LIBL)) PMTCTL(P1) +
                          PROMPT('Bibliotheque')
             PARM       KWD(TOLIB) TYPE(*NAME) DFT(*LIBL) +
                          SPCVAL((*LIBL)) PMTCTL(P2) +
                          PROMPT('Bibliotheque')
             PARM       KWD(FROMMBR) TYPE(*NAME) DFT(*FILENAME) +
                          SPCVAL((*FILENAME '*')) PMTCTL(P1) +
                          PROMPT('Membre d''origine')
             PARM       KWD(TOMBR) TYPE(*NAME) DFT(*FILENAME) +
                          SPCVAL((*FILENAME '*')) PMTCTL(P2) +
                          PROMPT('Membre de destination')
 
 P1:         PMTCTL     CTL(OPTION) COND((*EQ 'S'))
             PMTCTL     CTL(RMTS36) COND((*EQ '0')) LGLREL(*OR)
 
 P2:         PMTCTL     CTL(OPTION) COND((*EQ 'R'))
             PMTCTL     CTL(RMTS36) COND((*EQ '0')) LGLREL(*OR)