CMD PROMPT('Copie de SAVF')
PARM KWD(FROM) TYPE(Q1) SNGVAL((*DOC)) MIN(1) +
PROMPT('Fichier origine')
PARM KWD(TO) TYPE(Q2) SNGVAL((*DOC)) MIN(1) +
PROMPT('Fichier destination')
PARM KWD(OPTION) TYPE(*CHAR) LEN(8) RSTD(*YES) +
DFT(*REPLACE) VALUES(*REPLACE *ADD) +
PROMPT('Option fichier')
PARM KWD(FROMSAVF) TYPE(*CHAR) LEN(4) RSTD(*YES) +
SPCVAL((*NO '0') (*YES '1')) PMTCTL(C1) +
PROMPT('Fichier de sauvegarde')
PARM KWD(TOSAVF) TYPE(*CHAR) LEN(4) RSTD(*YES) +
SPCVAL((*NO '0') (*YES '1')) PMTCTL(C2) +
PROMPT('Fichier de sauvegarde')
PARM KWD(CRTFILE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
DFT(*NO) VALUES(*NO *YES) PMTCTL(C2) +
PROMPT('Création du fichier')
PARM KWD(DOC) TYPE(*CHAR) LEN(12) PMTCTL(C3) +
PROMPT('Document')
PARM KWD(FLR) TYPE(*CHAR) LEN(63) PMTCTL(C3) +
PROMPT('Dossier')
PARM KWD(TAILLEMAX) TYPE(*DEC) LEN(4 0) +
RSTD(*YES) DFT('*1.44') SPCVAL(('*1.44' +
2600) ('*720' 1300) (*NONE 0)) PMTCTL(C4) +
PROMPT('Taille maxi du document')
Q1: QUAL TYPE(*NAME) MIN(1) CHOICE('Fichier')
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
PROMPT('Bibliotheque')
Q2: QUAL TYPE(*NAME) MIN(1) CHOICE('Fichier')
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
PROMPT('Bibliotheque')
C1: PMTCTL CTL(FROM) COND((*NE '*DOC'))
C2: PMTCTL CTL(TO) COND((*NE '*DOC'))
C3: PMTCTL CTL(FROM) COND((*EQ '*DOC'))
PMTCTL CTL(TO) COND((*EQ *DOC)) LGLREL(*OR)
DEP CTL(*ALWAYS) PARM((&FROM *EQ *DOC) (&TO *EQ +
*DOC)) NBRTRUE(*LE 1)
C4: PMTCTL CTL(TO) COND((*EQ '*DOC'))
| 
| 
