*PARAMETRES*
*Domitime - Chevauchements*
*Date de dbut (JJ/MM/AAAA) |10X|TXT|O*
*Date de fin (JJ/MM/AAAA) |10X|TXT|O*
*FIN PARAMETRES*

SUBROUTINE DOMICHEVAUCHEMENTSPRX(RETURNVAL,PARAMETRES,W_Sortie)

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

W_Params=""
W_Params<1>=ICONV(PARAMETRES<1>,"D4/")
W_Params<2>=ICONV(PARAMETRES<2>,"D4/")
W_Params<3>="PRX"

CALL CHEVAUCHEMENTSDOMITIME(RETURNVAL,W_Params,W_TabRetour)

W_DateDeb=W_Params<1>
W_DateFin=W_Params<2>

W_Sortie='Le fichier suivant a t gnr dans le rpertoire DOMITIME :':CHAR(13):CHAR(10):'       - Liste des chevauchements du ':OCONV(W_DateDeb,"D4-"):' au ':OCONV(W_DateFin,"D4-"):'.txt'

RETURN