**********************************************************************
*
* Prototypes des fonctions "date"
*
* un prototype inutile à été ajouté pour vérifier que le compilateur
* est capable d'ignorer les prototypes dont il n'a pas besoin ...
* --> c'est le cas .
**********************************************************************
DFINDEMOIS PR 2P 0
D DATEIN D DATFMT(*DMY/) CONST
DISDATE PR n
D DATEIN 6 0 CONST
DCVTDAT PR D DATFMT(*DMY/)
D DATEIN 6 0 CONST
DADDNBJ PR 6 0
D DATEIN 6 0 CONST
D NBJOUR 3 0 CONST
*
* à vous d'imaginer les autres ....
| 
| 
